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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE UDA HOST RESIDENT DIAGNOSTIC CAUSES THE EXECUTION OF THE UDA 
AND DRIVE RESIDENT DIAGNOSTIC INDIVIDUAL PROGRAMS AND REPORTS 
THE RESULTS ON THE PDP=11 CONSOLE TERMINAL OR LINE PRINTER. 
EXERCISES ALSO PERFORMS TO VERIFY THAT: 


1. THE UDA CAN PROPERLY COMMUNICATE WITH THE PDP-11 PROCESSOR 
AND CAN TRANSFER BLOCKS OF DATA TO AND FROM UNIBUS MEMORY. 


2. THE UDA AND THE DISK DRIVES CAN COMMUNICATE AND TRANSFER DATA 
PROPERLY. 


ae THE DISK DRIVES CAN FUNCTION PROPERLY AS DEFINED BY THE SDI. 


THE DISK DRIVES CAN SEEK, READ AND WRITE TO ALL BLOCKS ON THE 
DISK AND” ALLOW THE MEASUREMENT OF THE DRIVES' PERFORMANCE IN 
A RATi0 OF ERRORS PER MILLION BITS TRANSFERRED. 


THE UDA HOST RESIDENT DIAGNOSTIC CONSISTS OF ONE PDP=-11 DIAGNOSTIC 
SUPERVISOR PROGRAM THAT RUNS IN THE PDP=-11 PROCESSOR AND FOUR 
PROGRAMS THAT RUNS IN THE UDA'S BUFFER MEMORY THROUGH AN INTER= 
PRETER CALLED THE ‘DIAGNOSTIC MACHINE'’ WHICH RESIDES IN THE UDA. THE 
PDP-11 PROGRAM MAINLY IS RESPONSIBLE FOR DOWNLINE LOADING THE 
“DIAGNOSTIC MACHINE’* PROGRAMS INTO THE UDA AND STARTING THEIR EXECU- 
TION. THE ‘DIAGNOSTIC MACHINE'' PROGRAM CONTROLS THE TESTING FROM 
THAT POINT BY REQUESTING THE PDP-11 PROCESSOR TO SUPPLY INFORMATION 
PRINT ERROR MESSAGES AND UPDATE STATISTICS. THE ‘DIAGNOSTIC MACHINE” 
PROGRAM INFORMS THE PDP-11 PROCESSOR WHEN A TEST IS COMPLETE. 


THE NU4BER OF UDAS AND DISK DRIVES THAT CAN BE TESTED AT ONE TIME BY 
THIS DIAGNOSTIC PROGRAM IS LIMITED BY THE PDP-11 MEMORY SIZE. 

WITH THE MINIMUM MEMORY SIZE OF 28K WORDS, AT LEAST TWO UDAS WITH FOUR 
DISK DRIVES EACH ARE SELECTABLE. THE NUMBER OF UDAS AND DISK 

DRIVES SELECTABLE BY THE DIAGNOSTIC INCREASES WITH ADDITIONAL 

tty BUT THERE IS NO GOAL IMPLIED FOR THE MAXIMUM POSSIBLE CONF IGU- 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE oF gag OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


THIS PROGRAM WILL BE DESIGNED USING THE PDP-11 SUPERVISOR REVISION C. 
RUN TIME ENVIRONMENTS ARE DETERMINED BY THE SUPERVISOR AND MAY CHANGE 
AS NEW VERSIONS OF THE SUPERVISOR ARE DEVELOPED. THE INITIAL VERSION 
WILL REQUIRE THE FOLLOWING: 


SEQ 0003 
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PDP=11 PROCESSOR 
28k WORDS OF MEMORY (MINIMUM) 
XXDP+ LOAD erty 

A SUB-SYSTEMS 


ONE OR MORE Ui 
LINE CLOCK = UPITHER TYPE | OR P 
THE LINE CLOCK WILL BE USED FOR ALL TIMED LOOPS IN THE PROGRAM, THE 
DIAGNOSTIC WILL RUN ON A SYSTEM WITH NO CLOCK BUT WILL HANG WHENEVER 
AN EVENT FOR WHICH THE PROGRAM IS WAITING DOES NOT HAPPEN (1.E£., A 
TIME=OUT ERROR MESSAGE WILL NOT RESULT). 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ “iONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNi_ FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4. nn 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHA a so 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF “‘START' 


| SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF ey LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EAC 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY. “DpppD"’. 


~ SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10, 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 10 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN, 


SEQ 0004 
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/PASS :DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS S ttn Le FLAGS ARE DESCRIBED 
/EOP: DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS A he 

IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10=12 

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1=5/PASS: 1000/E0OP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE ena oD aa YOU MAY, 
FOR EXAMPLE, TYPE ''/TES:1-5'* INSTEAD OF °'/TESTS:1=5"" 


ppt IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EP UNITS 


FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SW'TCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


SEQ 0005 
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1XR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PR] DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL’ ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSi:ICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE + eta CODE 

LOT LOOP ON iEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 
HAVE EVALUATION SUPPORT) 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE 4 ‘*BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE:]ER:BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘'CHANGE HW (L) ?°' 
YOU MUST ANSWER *'Y’' AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN 'PRELOADED'' USING THE SETUP UTILITY (SEE 
CHAPTE? 6 OF THE XXDP+ USER*S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A ‘“'Y*', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


THE PROGRAM WILL a THE FOLLOWING QUESTIONS IN RESPONSE TO A START 
COMMAND (NON~SCRIP 


CHANGE HW? 


ANSWER NO TO USE THE PRE-BUILT ANSWERS FOR ALL HARDWARE 
QUESTIONS. THIS PROGRAM WILL BE RELEASED PRE-BUILT TO TEST 
ONE UNIT WITH THE DEFAULT ANSWERS SHOWN BELOW. THE PRE-BUILT 
ANSWERS MAY BE CHANGED AT ANY TIME WITH THE SETU® UTILITY. 
ANSWER ‘YES* TO BE ASKED ALL THE HARDWARE QUESTIONS. 


# UNITS (D) ? 


ANSWER WITH THE NUMBER OF UNITS TO BE TESTED (NO DEFAULT). 
THIS ANSWER WILL DETERMINE HOW MANY TIMES THE FOLLOWING 
QUESTIONS ARE ASKED. A UNIT IS A LOGICAL DISK DRIVE ON 4 UDA. 
1 TO 64 UNITS MAY BE SPECIFIED. 


Le 
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UNIBUS ADDRESS OF UDA (0) 177510 ? 


ANSWER WITH THE ADDRESS OF THE UDAIP REGISTER OF ONE UDA AS 
ADDRESSED BY THE PROCESSOR WITH MEMORY MANAGEMENT TURNED OFF 
1565; EVEN 16=BIT ADDRESS IN THE RANGE OF 160000 TO 


VECTOR (0) 154 ? 


ANSWER WITH THE INTERRUPT VECTOR ADDRESS OF THE UDA. A VECTOR 
ADDRESS IN THE RANGE OF 4 TO 774 MAY BE SPECIFIED. 


BR LEVEL (D) 5 ? 


ANSWER WITH THE INTERRUPT PRIORITY USED BY THE UDA. LEVELS 4 
TO 7 ARE ACCEPTED. 


UNIBUS BURST RATE (D) 0 ? 


THE UDA ALLOWS THE ABILITY TO CONTROL THE MAXIMUM NUMBER OF 
WORDS TRANSFERRED ACROSS THE UNIB S EACH TIME THE UDA BECOMES 
MASTER. ANSWER WITH THE VALUE YOUR OPERATING SYSTEM ons OR 
USE ZERO WHICH WILL TELL THE UDA TO SUPPLY A VALUE. 
DECIMAL NUMBER IN THE RANGE OF 0 TO 63 MAY BE SPECIFIED. THE 
ne WILL BE PASSED DIRECTLY TO THE UDA DURING !NITIALIZA- 


DRIVE NUMBER (D) 0 ? 


ANSWER WITH THE So “ihe NUMBER ON THE FRONT OF THE 
DRIVE YOU WISH TO TEST. ON A MULTI-UNIT DRIVE, EACH SUB-UNIT 
NUMBER ON THE DRIVE MUST BE TESTED AS A SEPARATE UNIT TO 
COMPLETELY TEST THE DRIVE. A MAXIMUM OF EIGHT LOGICAL DRIVES 
MAY BE TESTED ON ONE UDA AT A TIME (UDA CONFIGURATION LIMIT). 


EXERCISE ON CUSTOMER DATA AREA IN TEST 4 (L) N ? 


ANSWER NO TO HAVE TEST 4 (DRIVE EXERCISER) RUN ON THE 
DIAGNOSTIC AREA OF THE DISK. ANSWER YES TO RUN ON TH 
CUSTOMER DATA AREA. A YES ANSWER WILL DESTROY ANY CUSTOMER 
DATA _ THAT MAY BE ON THE DISK. A WARNING MESSAGE WILL BE 
PRINTED IF inJS QUESTION IS ANSWERED YES (SEE SECTION 4.3). 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERLD THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THrSE PARAMETERS WILL GOVERN SOME Se oof ECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY ‘'CHANGE SW ( 

IF YOU WISH 70 CHANGE ANY PARAMETERS, ANSWER BY TYP ING” 

“*y**, THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


THE PROGRAM WILL ASK THE FOLLOWING QUESTIONS IN RESPONSE TO THE START, 


SEQ 0007 
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RESTART, AND CONTINUE COMMANDS. 
CHANGE SW ? 


ANSWER NO TO BYPASS THE FOLLOWING QUESTIONS IN THIS SECTION. 
A YES ANSWER WILL CAUSE THE QUESTIONS TO BE ASKED AND ALLOW 
THE DEFAULT ANSWERS TO BE CHANGED. 


ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAGNOSIS (L) N ? 


TESTS 2 AND 4 HAVE MANUAL INTERVENTION MODES WHICH ALLOW 
ADDITIONAL PARAMETERS TO BE_INPUT TO ALTER THE NORMAL TESTING 
OF A DISK DRIVE. THIS QUESTION SHOULD NORMALLY BE ANSWERED 
NO WHEN THIS DIAGNOSTIC IS FIRST RUN. THEN, DEPENDING ON THE 
ERRORS DETECTED, IT MAY BE DESIRABLE TO CHANGE THIS ANSWER TO 
YES AND ALTER THE TESTING TO FURTHER ISOLATE THE PROBLEM. IF 
THIS QUESTION IS ANSWERED YES, AND THE UAM (UNATTENDED MODE 
OPERATION) FLAG IS SET, TESTS 2 AND 4 WILL PRINT A WARNING 
MESSAGE THAT THE MODE CANNOT BE ENTERED AND WILL PROCEED AS 
IF ANSWERED NO. SEE THE DESCRIPTION OF THE INDIVIDUAL TESTS 
FOR MORE INFORMATION. 


REMAINING SOFTWARE QUESTIONS APPLY TO TEST 4 ONLY 


THIS INFORMATIONAL MESSAGE IS PRINTED TO DESCRIBE THE USE OF 
THE REMAINING QUESTIONS. IF TEST 4 IS NOT BEING RUN, A 
"CONTROL Z'' CAN BE TYPED TO BYPASS THEM. 


ERROR LIMIT (D) 32 ? 


ENTER THE NUMBER OF HARD ERRORS ALLOWED BEFORE A DRIVE IS 
DROPPED FROM EXERCISE BY TEST #4. A NUMBER IN THE RANGE OF 1 
TO 65535 WILL BE ACCEPTED. 


READ T.:ANSFER LIMIT IN MEGABYTES = 0 FOR NO LIMIT (D) 0 ? 


WHEN THE SPECIFIED NUMBER OF BYTES HAVE BEEN READ FROM A 
DRIVE BY TEST #4, THE DRIVE WILL BE DROPPED FROM TESTING. 
WHEN ALL DRIVES ARE DROPPED, AN END OF PASS WILL BE INDICATED 
AND THE SELECTED TESTS WILL BE RUN AGAIN. THIS IS THE METHOD 
USED TO DETERMINE HOW LONG TEST #4 IS TO RUN. ANSWER WITH A 
ZERO TO PREVENT TEST FROM ENDJNG. THE ONLY OTHER WAY TEST #4 
CAN END IS TO HAVE ALL DRIVES DROPPED BECAUSE THE ERROR LIMIT 
ON EACH IS EXCEEDED. OF COURSE, THE OPERATOR CAN ALWAYS STOP 
TEST #4 BY TYPING A CONTROL-C. 


SUPPRESS PRINTING SOFT ERRORS (L) Y? 


WHEN TEST #4 NEEDS TO PERFORM Re TRIES, SOFT ERROR REPORTS 
WILL _BE PRINTED TO GIVE AS MUCH INFORMATION AS POSSIBLE. 
THESE ACTIONS ARE CONSIDERED NORMAL OPERATION AND ARE NOT 
ERROR CONDITIONS UNTIL THE RETRIES FAIL. WHEN THE TEST IS 


HARD ERRORS. THE NUMBER OF THESE SOFT ERRORS IS ALWAYS 
REPORTED IN THE STATISTICAL REPORT. ANSWER NO TO SEE ALL THE 
SOFT ERROR REPORTS. 
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DO INITIAL WRITE ON START (L) Y ? 


IF TEST #4 IS TO DO DATA COMPARES, THE DRIVE WILL NEED TO BE 
WRITTEN WITH DATA PATTERNS READABLE BY THE PROGRAM. 


IF THE DIAGNOSTIC AREA IS SELECTED FOR TESTING, THE INITIAL 
poe hs Ria ety PERFORMED (REGARDLESS OF HOW THIS QUESTION IS 
ANSW . 


IF THE CUSTOMER DATA AREA IS SELECTED FOR TESTING, THE 
ne WRITE WILL BE PERFORMED WHEN ALL OF THE FOLLOWING ARE 
UE: 


1. THIS QUESTION IS ANSWERED YES. 


$ THIS IS THE FIRST TIME TEST #4 IS BEING RUN AFTER A 
START COMMAND. 


3. THE DISK IS WRITE ENABLED. 


ANSWERING THIS QUESTION NO WHEN TESTING ON THE CUSTOMER DATA 
AREA WILL NORMALLY RESULT IN DATA COMPARISON ERRORS IF THE 
a a PREVIOUSLY WRITTEN BY THIS DIAGNOSTIC OR THE 


nite NOTE THAT WRITE CHECKS ARE NOT PERFORMED DURING THE INITIAL 
W ° 


ENABLE ERROR LOG (L) N ? 


A YES ANSWER WILL CAUSE ERROR MESSAGES IN TEST #4 TO BE 
STORED IN A LOG BUFFER. ONCE THE LOG BUFFER IS FULL, ADDI- 
TIONAL ERROR INFORMATION IS LOST. THE CONTENTS OF THE LOG 
BUFFER WILL BE PRINTED WHEN TEST #4 IS STOPPED AND A STATIS~ 
TICAL REPORT REQUESTED. THIS LOG FEATURE IS INTENDED TO ALLOW 
THE DIGITAL DIAGNOSIS CENTER (DDC) TO START TEST #4 THEN HANG 


DDC CAN CALL THE SYSTEM BACK LATER, TYPE CONTROL-C, THEN 
PRINT AND SEE THE ERRORS THAT HAVE OCCURRED (UP TO THE LIMIT 
OF THE LOG BUFFER). A MESSAGE WILL BE PRINTED TO INDICATE NO 
ERRORS HAVE OCCURRED IF THE LOG BUFFER IS egit TEST #4 WILL 
NOT BE ALLOWED TO END WHILE THE ERROR LQG ENABLED EVEN 
THOUGH TESTING MAY ACTUALLY STOP. THE LOG BUFFER WILL HOLD A 
MINIMUM OF 30 ERROR MESSAGES. 


2.6 EXTENDED P-TABLE DIALOGUE 


THE FOLLOWING WARNING WILL BE PRINTED IN RESPONSE TO A START COMMAND 
IF ANY DRIVE IS SELECTED FOR TESTING ON THE CUSTOMER DATA AREA. THE 
cae: Be APPEAR IMMEDIATELY AFTER THE SOFTWARE QUESTIONING IS 


CUSTOMER DATA WILL BE DESTROYED ON: 
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UNIT UDA AT DRIVE 
XX XXXXXX XXX 


UNLESS THE DIAGNOSTIC IS BEING RUN IN UNATTENDED MODE (E.G. 
START/FLAG:UAM TO SUPERVISOR PROMPT), A CONFIRMATION WILL ALSO BE 

| REQUIRED AS FOLLOWS: 

ARE YOU SURE CUSTOMER DATA CAN BE DESTROYED (L) ? 

IF THE ABOVE QUESTION IS ANSWERED NO, THE ENTIRE DIAGNOSTIC WILL STOP 


AND THE SUPERVISOR PROMPT WILL BE DISPLAYED. NO DEFAULT ANSWER IS 
PROVIDED FOR THIS QUESTION. 


TO START-UP THIS PROGRAM: 
- BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ‘'R NAME'', WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


. TYPE °'START'' 
P 5. ANSWER THE “'CHANGE HW'’ QUESTION WITH ‘'Y"’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 


| 
| 2.7 QUICK START-UP PROCEDURE (XXDP+) 
| 


7. ANSWER THE ‘'CHANGE SWw'' QUESTION WITH ‘'N’’ 


WHEN YJU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES : 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER"’ 4d IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC :XXXXXX 
ERROR MESSAGE 
DIAGNOSTIC NAM 


- WHERE ; ~~ NAME 
TYP ERROR TYPE (SYS FATAL. DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N_IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


Loo eae cab lta el elie NEC AS eh os dicr aaa earl 


SEQ 0010 


9 a 
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BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “"IER"' OR ““IBR’’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY weet” INF ORMAT ION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE ““IER'', ‘‘IBR'' OR ‘'IXR'' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


4.0 PERFORMANCE AND PROGRESS REPORTS 

A STATISTICAL REPORT WILL AUTOMATICALLY BE PRINTED PERIODICALLY 
(APPROXIMATELY EVERY SEVENTEEN MINUTES) AND AT THE END OF TEST 44. IT 
CAN BE SUPPRESSED BY SETTING THE INHIBIT STATISTICAL REPORT FLAG (E.G. 
START/FLAGS: ISR). THIS IS THE SAME REPORT THAT CAN BE PRINTED ON 
DEMAND WITH THE PRINT COMMAND. 


DURING TEST 1, 2, AND 3, THE REPORT WILL £30K LIKE THE FOLLOWING 
EXAMPLE : 


DURING TEST #4, THE REPORT WiLL CONTAIN STATISTICS ON EACH DRIVE FOR 
THE CURRENT PASS OF THE TEST; FOR EXAMPLE: 


TEST 4 IN PROGRESS RUN TIME 2:24:10 


UNIT DRIVE SERIAL-NUMBER SEEKS MBYTES MBYTES HARD SOF T ECC 
READ WRITTEN ERRORS ERRORS 
10) 0 1002 12000 36 22 0 0 


1 4 67342102112 14000 42 29 0 2 0 


5.0 TEST SUMMARIES 
TEST # 1 = UNIBUSS ADDRESSING TEST 


THE PURPOSE OF TEST #1 IS TO COMPLETE THE TESTING OF THE UNIBUS 
INTERFACE IN ThE UDA. THE UDA RESIDENT DIAGNOSTIC IS NOT ABLE TO 
COMPLETELY TEST THE UNIBUS INTERFACE BECAUSE COMMUNICATION WITH THE 
PDP-11 PROCESSOR IS NECESSARY. SPECIFICALLY, THIS TEST WILL: 


TEST 1 IN PROGRESS RUN TIME 2:24:10 
‘. CHECK THAT EVERY ADDRESS LINE ON THE UNIBUS CAN BE 
DRIVEN TO BOTH ONE AND ZERO STATES. 
r CHECK THAT THE UDA oe = THE PDP=i11 PROCESSOR 
AT THE PROPER PRIORITY LEVEL AND VECTO 


.S EXERCISE THE UNIBUS INTERFACE BY TRANSFERRING BLOCKS OF 
DATA TO AND FROM UNIBUS MEMORY. 


THIS TEST ASSUMES THAT THE FOLLOWING ARE BEING TESTED BY THE UDA 
RESIDENT DIAGNOSTIC: 





(ee 
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1. ALL DATA BITS CAN BE WRITTEN AND READ CORRECTLY. 
2. NPR CYCLES CAN BE EXECUTED CORRECTLY. 


ONE AT A TIME, EACH UDA SELECTED FOR TESTING WILL BE INITIALIZED AND 
BROUGHT ON-LINE BY FOLLOWING THE INITIALIZATION PROTOCOL. SEVERAL 
SIZES OF THE HOST COMMUNICATIONS AREA WILL BE SUPPLIED TO ALLOW THE 
UDA RESIDENT DIAGNOSTIC TO DO THE MOST UNIBUS ADDRESS TESTING POSSI- 
BLE. INTERRUPTS WILL BE DISABLED. ANY UDA RESIDENT DIAGNOSTIC ERRORS 
WILL BE REPORTED. 


THE UDA WILL THEN BE INITIALIZED AGAIN, THIS TIME WITH INTERRUPTS 


SOLELY FROM THE ANSWERS TO THE HARDWARE QUESTIONS. IF THE HARDWARE 
VECTORS TO THE WRONG ADDRESS, IT IS IMPOSSIBLE TO DETERMINE THE 
~ 34 A git thy ERROR MESSAGE OF THE PROBLEM WILL NOT OCCUR (THE 
PROGRAM OR PROCESSOR MAY HANG OR AN UNRELATED MESSAGE MAY OCCUR). 
THEREFORE, THE MESSAGE ‘TESTING INTERRUPT ABILITY OF UDA AT ADR XXXXXX 
VEC . XXX. WILL BE PRINTED JUST BEFORE THE UDA IS REQUESTED TO CAUSE 
AN INTERRUPT AND THE WORD ‘‘COMPLETED’* WILL BE PRINTED (ON THE SAME 
LINE) WHEN THE INTERRUPT TEST IS COMPLETED. IF THE WORD ‘‘COMPLETED’’ 
DOES NOT FOLLOW THE FIRST MESSAGE, IT SHOULD BE APPARENT THAT THE 
INTERRUPT CAUSED THE DIAGNOSTIC OR PROCESSOR TO GO ASTRAY. THE 
PRIORITY LEVEL OF THE INTERRUPT REQUEST WILL ALSO BE VERIFIED. 


A ‘DIAGNOSTIC MACHINE*’ PROGRAM WILL THEN BE DOWNLINE LOADED IN THE UDA 
FROM THE MEMORY SPACE INCLUDED IN THE HOST COMMUNICATIONS AREA WHEN 
THE UDA WAS FIRST INITIALIZED. THE UDA RESIDENT DIAGNOSTIC HAS ALREADY 
VERIFIED THAT IT CAN ACCESS THESE MEMORY ADDRESSES, SO THE DOWNLINE 
ne cee PERFORM PROPERLY. THE ‘DIAGNOSTIC MACHINE’' PROGRAM 


THE "DIAGNOSTIC MACHINE** PROGRAM WILL ASK THE PDP-11 PROGRAM TO FILL 
FREE MEMORY (THAT MEMORY AVAILABLE TO THE PDP-11 PROGRAM THAT IS NOT 
BEING JSED BY THE PROGRAM OR THE PDP-11 SUPERVISOR) WITH AN ADDRESSING 
PATTERN AND REPORT THE LOCATION AND SIZE OF THE FREE MEMORY. EVERY 
LOCATION OF FREE MEMORY WILL BE READ AND THE DATA CHECKED. THEN, ONE 
BY ONE, EACH ADDRESS LINE WILL BE TESTED AS FOLLOWS: 


Te DETERMINE A TEST ADDRESS BY TAKING oo FIRST ADDRESS OF FREE 
MEMORY AND COMPLIMENTING THE ADDRESS BIT TO BE TESTED 


a. READ FROM THE TEST ADDRESS. 
3. IF A NON-EXISTANT MEMORY ERROR OCCURRS, THE TEST IS COMPLETE. 
4. WRITE ALL ONES TO THE FIRST ADDRESS OF FREE MEMORY THEN READ 
FROM THE TEST ADDRESS. IF DATA READ IS NOT ALL ONES, THEN 
TEST IS COMPLETE. 
Fe WRITE ZEROS TO THE FIRST ADDRESS OF FREE oe THEN READ 
FROM THE TEST ADDRESS. IF DATA READ IS NOT ZEROS, THEN TEST 
IS COMPLETE. 
6. REPORT UNIBUS ADDRESSING ERROR. 


WHEN ALL ADDRESS BITS HAVE BEEN TESTED, THEN BLOCK TRANSFERS TO AND 


-—-———_—_——— 
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FROM MEMORY WILL BE TESTED WITH DIFFERENT DATA PATTERNS. THIS DATA 
WILL BE TRANSFERRED AT THE RATE DISK DATA IS TRANSFERRED TO AND FROM 
MEMORY DURING NORMAL UDA OPERATION. 


THE NEXT UDA SELECTED FOR TESTING WILL THEN BE TESTED IN THE SAME 
MANNER. WHEN ALL UDAS HAVE BEEN TESTED, TEST #1 WILL END. 


TEST #2 = DISK RESIDENT DIAGNOSTIC TEST 


THE PURPOSE OF TEST #2 IS TO EXECUTE THE DIAGNOSTICS THAT RUN IN EACH 
DISK DRIVE. THESE DIAGNOSTIC PROGRAMS MAY BE RESIDENT IN THE DISK 
DRIVe OR REQUIRE ae LOADING FROM THE XXDP+ LOAD DEVICE. THESE 
DIAGNOSTIC PROGRAMS THAT RUN IN THE DISK DRIVES ARE NOT PART OF THIS 
DIAGNOSTIC PRODUCT, BUT ARE PRODUCED BY THE DISK DEVELOPMENT GROUP. 
THIS UDA DIAGNOSTIC PROGRAM ONLY KNOWS THE PROCEDURE TO EXECUTE THE 
ens aad DIAGNOSTICS AND HOW TO DETERMINE WHETHER A TEST PASSED 


ONE AT A TIME, EACH UDA SELECTED FOR TESTING WILL BE INITIALIZED AND A 
“DIAGNOSTIC MACHINE'’ PROGRAM DOWNLINE LOADED. THE ‘DIAGNOSTIC 
MACHINE** PROGRAM WILL ASK WHAT DRIVES ARE TO BE TESTED, THEN WILL 
ISSUE SEVERAL ECHO FRAMES TO THE DISK DRIVE AND CHECK FOR THE CORRECT 
RESPONSE FROM THE DRIVE. THIS SHOULD SERVE AS A GOOD INDICATOR THAT 
THE UDA AND DISK DRIVE CAN COMMUNICATE. 


A DIAGNOSE COMMAND WILL THEN BE ISSUED TO THE DRIVE TO REQUEST THE 
DRIVE RUN ALL OF ITS DIAGNOSTICS. IF THE DISK DRIVE REQUESTS A 
DOWNLINE | OAD OF A DRIVE DIAGNOSTIC, THE DIAGNOSTIC PROGRAM WILL BE 
READ FROM THE KXDP+ LOAD DEVICE, DOWNLINE LOAD THE FILE INTO THE DISK 
DRIVE AND START ITS EXECUTION. THERE IS NO LIMIT TO THE NUMBER OF 
DOWNLINE LOADS THAT CAN BE REQUESTED BY A DRIVE. 


IF THE “MANUAL INTERVENTION MODE’’ SOFTWARE QUESTION WAS ANSWERED NO 

(DEFAULT) TESTING WILL PROCEED TO THE NEXT DRIVE. WHEN ALL DRIVES ON 

THE UDA HAVE BEEN TESTED, THE NEXT UDA SELECTED FOR TESTING WILL THEN 

4 + rte # THE SAME MANNER. WHEN ALL UDA'S HAVE BEEN TESTED, TEST 
Ww . 


“MANUAL INTERVENTION MODE'* SOFTWARE QUESTION WAS ANSWERED YES, 

AN INTERACTIVE MODE WILL BE ENTERED TO ALLOW THE OPERATOR TO PERFORM 
DIAGNOSTIC ACTIVITIES ON THE DISK DRIVE AS DESIRED. THE SERVICF 

MANUAL FOR THE DISK DRIVE MUST BE USED TO DETERMINE WHAT DIAGNOSTIC 

CAPABILITIES ARE AVAILABLE. 


4g .. BRIEF DESCRIPTION OF AVAILABLE COMMANDS WILL BE PRINTED AS 


TEST #2 MANUAL INTERVENTION ON UNIT KX UDA AT 10000 DRIVE XXX 
TO WRITE AND READ MEMORY: 

iJ DATA REGION OFFSET 

R REGION OFFSET 
TO RUN A DIAGNOSTIC: 

D REGION 


TO EXIT QUESTIONING: 


SEQ 0013 


B 2 
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E 
DATA, REGION AND OFFSET ARE HEX VALUES. 


| COMMANDS MAY BE TYPED AFTER THE QUESTION MARK PROMPT. EACH COMMAND 
| WILL BE PROCESSED AS ENTERED AND RESULTS DISPLAYED IMMEDIATELY. THe 
EXIT COMMAND WILL ALLOW THE DIAGNOSTIC TO PROCEED. 


READ AND WRITE COMMANDS WILL REMEMBER THE REGION AND OFFSET VALU‘S. 
SUCCESSIVE READ AND SUCCESSIVE WRITE COMMANDS WILL AUTOMATICALLY 
INCREMENT TO THE NEXT OFFSET IF THE REGION AND OFFSET VALUES ARE NOT 
Bin agg, IF A REGION IS TYPED BUT NOT AN OFFSET, OFFSET ZERO WILL BE 
USED. 


ONE TO FOUR BYTES OF DATA MAY BE ENTERED BY A SINGLE WRITE COMMAND, 
DEPENDING ON THE NUMBER OF DIGITS TYPED IN THE HEX VALUE. A READ 
COMMAND WILL ALWAYS RETURN FOUR BYTES OF DATA. EXAMPLES: 


FF FFFC 4 

010203 

FFFC 0004 

FFFC Q004/ FF 01 02 03 
FOF IF QF3 FFFC 


FFFC OOOO/ FO Fl F2 F3 
FFFC 0004/ FF 01 02 03 


COMMAND 1 WRITES ONE BYTE (FF) INTO REGION FFFC, OFFSET 4. COMMAND 2 
WRITES THREE BYTES (01, 02 AND 03) INTO THE SAME REGION WITH OFFSETS 
5. 6 AND 7. COMMAND 3 READS FOUR BYTES STARTING AT REGION FFFC Fe 
4. COMMAND 4 WRITES FOUR BYTES AT REGION FFFC OFFSET 0. COMMANDS 5 AN 

6 READ THE EIGHT BYTES. 


THE DIAGNOSE COMMAND WILL REMEMBER THE REGION FROM PREVIOUS DIAGNOSE 
COMMANDS ONLY, BECAUSE THE REGION CONTAINING THE DIAGNOSTIC IS 
GENERALLY NOT THE SAME REGION USED TO WRITE PARAMETERS OR READ 

pe THE DIAGNOSTIC RETURNS ANY DATA, THE DATA WILL BE PRINTED 
+ Y. 


QO NSF Wr 
> DE WEE 


TEST #3 - DISK FUNCTION TEST 


THE PURPOSE OF TEST #3 IS TO FUNCTIONALLY TEST THE DISK DRIVE. ON A 
DRIVE THAT IS WELL DIAGNOSED BY ITS DISK RESIDENT DIAGNOSTICS (EXE- 
CUTED BY TEST #2) THESE FUNCTIONAL TESTS WILL HAVE LITTLE VALUE. ON A 
DRIVE THAT HAS NO OR MINIMAL RESIDENT DIAGNOSTICS, THESE FUNCTIONAL 
TESTS WILL HAVE MORE VALUE. 


TEST #3 WILL START BY INITIALIZING EACH UDA SELECTED FOR TESTING AND 
THEN DOWNLINE LOAD A ‘DIAGNOSTIC MACHINE'’ PROGRAM INTO na UDA. ONCE 
ALL UDAS HAVE BEEN STARTED, THE PDP-11 PROGRAM WILL RESPOND TO 
REQUESTS FROM ALL UDAS. WHEN ALL THE UDAS HAVE INDICATED. THE END OF 
TESTING, TEST #3 WILL END. 


THE “DIAGNOSTIC MACHINE'’ PROGRAM WILL PERFORM THE FOLLOWING FUNCTIONS 





p> on 


a 
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| ON EACH DRIVE: 
| 1. ISSUE A DRIVE CLEAR COMMAND. 
2. ISSUE INITIATE RECALIBRATE COMMAND. 


3. ISSUE A CHANGE MODE COMMAND TO ENABLE DIAGNOSTIC CYLINDER 
ACCESS AND SET THE DRIVE TO 512 BYTE SECTOR SIZE. 


4. ISSUE INITIATE SEEK COMMAND TO LAST DIAGNOSTIC CYLINDER. 


a. READ ALL FACTORY FORMATTED SECTOR HEADERS. IF NO HEADERS ON 
A TRACK CAN BE READ, REPORT THE ERROR, OTHERWISE CONTINUE. 


6. STARTING WITH CYLINDER 0, GROUP 0 AND Ty tie THROUGH 
EVERY GROUP ON THE DISK, SEEK TO THE SELECTED GROUP, READ A 
HEADER ON TRACK 0 AND THEN SEEK TO THE FACTORY FORMATTED 
DIAGNOSTIC CYLINDER. READ FROM THE DIAGNOSTIC CYLINDER TO 
VERIFY DiSK POSITIONED CORRECTLY. 


vs ISSUE A CHANGE MODE COMMAND TO ENABLE FORMATTING OPERATIONS. 
8. FORMAT ALL WRITABLE DBNS IN 512 BYTE FORMAT. 


v. WRITE AND READ SEVERAL DATA PATTERNS TO EACH WRITABLE DBN. 
REPORT AN ERROR IF ALL DBNS ON ONE TRACK HAVE AN ERROR, 


THE PURPOSE OF TEST #4 IS TO EXERCISE THE DISK DRIVES IN A MANNER 
SIMILAR TO NORMAL USAGE UNDER STANDARD OPERATING SYSTEMS. EXECUTION OF 
THIS TEST SHOULD GIVE AN INDICATION OF THE PERFORMANCE OF THE DISK 
DRIVE. THIS TEST MAY BE RUN FOR LONG OR SHORT PERIODS OF TIME, 
DEPENDING ON HOW THE SOFTWARE QUESTIONS ARE ANSWERED. 


THESE ARE TWO MODES OF OPERATION FOR TEST #4: 


Te DEFAULT OPERATION ON THE ENTIRE AREA SELECTED (CUSTOMER OR 
DIAGNOSTIC) WITH ALL PARAMETERS SELECTED FOR RANDOM 
OPERATION AS SHOWN BY DEFAULT ANSWERS BELOW. 


2. MANUAL INTERVENTION MODE WHERE A NUMBER OF QUESTIONS ARE 
ASKED AND OPERATION IS CONTROLLED BY THEIR ANSWERS. 


WHICH MODE IS ENTIRELY DETERMINED BY THE ANSWER TO THE FIRST SOFTWARE 
QUESTION ety “ENTER MANUAL INTERVENTION MODE FOR SPECIAL DIAG- 
NOSIS?** THIS QUESTION WOULD 1 A ai HAVE BEEN ANSWERED NO (DEFAULT) 
AND TESTING WILL BEGIN IMMEDIATELY. IF ANSWERED YES, THE FOLLOWING 
SERIES OF QUESTIONS WILL BE ASKED FOR EACH UNIT SELECTED FOR TESTING: 


THE FOLLOWING QUESTIONS REFER TO UNIT XX UDA AT XXXXXX DRIVE XXX 


THIS MESSAGE WILL IDENTIFY TO WHICH DRIVE THE 1 yh ae ARE 
BEING ASKED. THE ENTIRE SERIES OF QUESTIONS WILL BE ASKED FOR 
EACH DRIVE, THERE IS NO SHORT WAY TO ANSWER LIKE IN THE 


TEST #4 = DISK EXERCISER 


SEQ 0015 


vVv—x—————— SS 
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HARDWARE QUESTIONS. 
NUMBER OF BAD BLOCKS (D) 0 ? 


AN ANSWER IN THE RANGE OF 1 TO 16 WILL ALLOW THAT MANY BAD 
BLOCK NUMBERS TO BE ENTERED. THE PROGRAM WILL ALLOW WRITES 
AND READS TO THESE BLOCKS BUT NO ERROR MESSAGES WILL Bc 
PRINTED FOR THESE BLOCKS. ERRORS ENCOUNTERED ON THESE BLOCKS 
WILL NOT APPEAR IN THE STATISTICS. ANSWER ZERO TO BYPASS 
ENTERING BAD BLOCKS. 


BAD BLOCK (A) ? 


THIS QUESTION WILL BE ASKED THE NUMBER OF TIMES REQUESTED BY 
THE PREVIOUS ANSWER. ANY DECIMAL NUMBER THAT CAN BE CON- 
VERTED INTO A 28-BIT BINARY VALUE WILL BE ACCEPTED. NO OTHER 
ERROR CHECKING WILL BE MADE AT THIS TIME TO DETERMINE IF THE 
BLOCK NUMBER ACTUALLY EXISTS ON THE DISK. 


READ ONLY <L) N ? 


ANSWER YES TO DICTATE READ ONLY AND PREVENT TEST #4 FROM 
PERFORMING ANY WRITES TO THE DISK. NOTE THAT TEST #3 WILL 
STILL WRITE TO THE DIAGNOSTIC CYLINDERS. 


WRITE ONLY (L) N ? 


THIS QUESTION WILL ONLY BE ASKED IF ag PREVIOUS QUESTION WAS 
ANSWERED NO. ANSWER YES TO DICTATE WRITE ONLY 


CHECK ALL WRITES BY READING (L) N ? 


ANSWER YES TO CAUSE ALL WRITES TO BE CHECKED BY READING THE 
DATA IMMEDIATELY AFTER THE WRITE OPERATION. 


RANDOMLY CHECK WRITES BY READING (L) Y ? 


THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS 
ANSWERED NO. ANSWER YES FOR THE WRITE CHECK TO BE PERFORMED 
RANDOMLY. ANSWER NO IF WRITE CHECKS ARE NOT DESIRED. 


DATA PATTERN = 0 FOR RANDOM SELECTION (D) 0 ? 


THERE ARE 16 DATA PATTERNS AVAILABLE, SELECTED AS 1 TO 16. 
PATTERN NUMBER 0 WILL CAUSE PATTERNS 1 TO 15 TO BE RANDOMLY 
SELECTED FOR EACH WRITE. IF PATTERN NUMBER 16 IS SELECTED, 
hig FOLLOWING SET OF QUESTIONS WILL BE ASKED FOR A PATTERN TO 


ENABLE ECC DATA CORRECTION (L) Y ? 


A_YES ANSWER WILL ENABLE THE USE OF ECC TO CORRECT DATA 
ERRORS. NO ERROR MESSAGE WILL BE PRINTED WHEN THE ECC 
PROPERLY CORRECTS THE DATA ON THE FIRST READ OF ANY DISK 
BLOCK. READ RETRIES WILL END WHEN A RE-READ PRODUCES AN ECC 
CORRECTABLE ERROR. THE USE OF ECC CORRECTION WILL APPEAR ONLY 
IN THE STATISTICAL REPORT FOR THE DRIVE. 


cies cecccinntiicinitetcadenmmantinidemanihsscmnoman lines 
| 
E 2 
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A NO ANSWER WILL PREVENT THE USE OF ECC. ALL ECC ERRORS WILL 
ce = MESSAGE TO BE PRINTED AND RETRIES TO BE 


COMPARE ALL DATA READ (L) N ? 
ANSWER YES TO CAUSE A DATA COMPARE AFTER EVERY READ. 
RANDOMLY COMPARE DATA READ (L) Y ? 


THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS 
ANSWERED NO. ANSWER YES FOR THt DATA COMPARE TO BE PERFORMED 
cesineh. RECORDS. ANSWER NO IF DATA COMPARES ARE NOT 


ENABLE RETRIES (L) Y 


& YES ANSWER WILL ENABLE RETRIES TO BE PERFORMED ON DISK 
ERRORS. 


RANDOM SEEK MODE (L) Y ? 


ANSWER YES TO CAUSE BLOCK NUMBERS TO BE CHOSEN RANDOMLY. 
ANSWER NO TO CAUSE BLOCK NUMBERS TO BE SELECTED SEQUENTIALLY 
UP AND DOWN THE DISK SURFACE. 


| 
| 
1 

DO YOU WISH TO: 
- TEST ENTIRE AREA SELECTED 
SPECIFY BEGIN/END SETS TO TEST 
SPECIFY TRACKS AND CYLINDERS TO TEST 
SPECIFY GROUPS AND CYLINDERS TO TEST 
“os"e jo ECIFY CYLINDERS TO TEST 


WMO 
tee 


THIS QUESTION SPECIFIES THE OPTIONS AVAILABLE TO LIMIT 
TESTING TO A PORTION OF THE SELECTED AREA (CUSTOMER OR 
DIAGNOSTIC) OF THE DISK. A ZERO ANSWER IS THE DEFAULT WHICH 
SPECIFIES TO USE THE ENTIRE AREA FOR THE TEST. OTHER ANSWERS 
WILL CAUSE ADDITIONAL QUESTIONS TO BE ASKED. 


NUMBER OF BEGIN/END SETS (D) 1 ? 
BEGIN BLOCK (A) 0 ? 
END BLOCK (A) 0 ? 


THESE QUESTIONS ARE ASKED IF BEGIN/END SETS “~~ SELECTED TO 
LIMIT THE TESTING AREA (ANSWER 1). ONE TO FOUR SETS MAY BE 
SPECIFIED. THE BEGIN BLOCK AND END BLOCK QUESTIONS ARE ASKED 
AS MANY TIMES AS NEEDED. 


NUMBER OF TRACKS TO TEST (D) 1 ? 
TRACK (D) 0 ? 


NUMBER OF GROUPS TO TEST (D) 1 ? 
GROUP (D) 0 ? 


ONE OF THESE SETS OF QUESTIONS IS ASKED IF EITHER TRACKS AND 


ee 


[mon er 


F 2 
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CYLINDERS OR GROUPS AND CYLINDERS WAS SPECIFIED TO LIMIT THE 
TESTING AREA (ANSWERS 2 OR 3). UP TO SEVEN TRACKS OR GROUPS 
MAY BE SPECIFIED ON WHICH TESTING WILL BE LIMITED. 


DO YOU WISH TO LIMIT THE CYLINDERS TESTED (L) N ? 


THIS QUESTION IS ASKED ONLY AFTER THE TRACKS OR GROUPS HAVE 
BEEN SPECIFIED ABOVE. IF TESTING IS TO BE FURTHER LIMITED TO 
A SET OF CYLINDERS, ANSWER YES AND THE FOLLOWING TWO QUES- 
TIONS WILL BE ASKED: 


STARTING CYLINDER (A) 0 ? 
ENDING CYLINDER (A) 0 ? 


THESE QUESTIONS ARE ASKED IF THE QUESTION IMMEDIATELY ABOVE 
WAS ANSWERED YES OR IF CYLINDERS WERE SELECTED TO LIMIT THE 
TESTING AREA (ANSWER 4). ONE SET OF CYLINDER NUMBERS MAY BE 
SPECIFIED TO LIMIT THE TESTING AREA. 


AFTER THE ABOVE QUESTIONS HAVE BEEN ASKED FOR ALL DRIVES SELECTED FOR 
TESTING, THE FOLLOWING QUESTIONS WILL BE ASKED IF DATA PATTERN 16 WAS 
SELECTED FOR ANY DRIVE: 


NUMBER OF WORDS IN DATA PATTERN 16 (D) 1 ? 
DATA WORD (0) 0 ? 


DATA PATTERN 16 CAN BE INPUT BY THESE QUESTIONS. A DATA 
PATTERN CONSISTS OF A BUFFER OF ONE TO 16 WORDS WHICH IS 
REPEATED THROUGHOUT THE DATA PORTION OF THE DISK BLOCK. ENTER 
THE CONTENTS OF THE DATA PATTERN BUFFER. THE DATA WORD 
QUESTION WILL BE REPEATED AS NEEDED. 


TEST #4 WILL START BY INITIALIZING EACH UDA SELECTED FOR TESTING AND 
THEN DIWNLINE LOADING A "DIAGNOSTIC MACHINE’’ PROGRAM INTO EACH UDA. 
THE ‘DIAGNOSTIC MACHINE’* PROGRAM WILL ASK WHAT DRIVES ARE TO BE TESTED 
AND THEN WILL ASK FOR THE PARAMETERS FOR EACH DRIVE (THE ANSWERS TO 
THE MANUAL INTERVENTION QUESTIONS OR THEIR DEFAULTS). ONCE ALL UDAS 
— — STARTED, THE PDP-11 PROGRAM WILL RESPOND TO REQUESTS FROM 

LL UDAS. 


THE DISK WILL THEN BE EXERCISED ACCORDING TO THE PARAMETERS. THE 
EXERCISE CONSISTS OF SELECTING A DISK SECTOR, “CEKING TO THE PROPER 
CYLINDER, THEN READING OR WRITING THE SECTOR. iE PARAMETERS WILL 
CONTROL HOW THE DISK SECTOR IS SELECiED, WHETHER THE SECTOR IS WRITTEN 
OR READ AND WHETHER A WRITE IS FOLLOWED BY A READ (WRITE CHECK). 


THE ‘DIAGNOSTIC MACHINE’ PROGRAM WILL PERIODICALLY SEND STATISTICS TO 
THE PDP=-11 PROGRAM. THESE S"“TISTICS WILL INCLUDE COUNTS OF READS, 
WRITES, SEEKS AND ERRORS ON A PER DRIVE BASIS. THE PDP-11 PROGRAM WILL 
ACCUMULATE THE STATISTICS FROM ALL THE UDAS AND WATCH FOR THE TRANSFER 
LIMIT TO BE EXCEEDED. AS LONG AS THE ERROR LOG IS NOT ENABLED, THE 
EXCEEDING OF THE TRANSFER LIMIT WILL CAUSE THE END OF TEST #4, 


EACH TIME AN ERROR OCCURS, THE ‘DIAGNOSTIC MACHINE'’ WILL TELL THE 
PDP-11 PROGRAM, A MESSAGE WILL BE PRINTED (OR STORED IN THE LOG 
BUFFER) AND THEN THE ERROR LIMIT FOR THE DRIVE WILL BE CHECKED. IF THE 


| 


SEQ 0018 


me eee 
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ERROR LIMIT HAS BEEN REACHED, THE DRIVE WILL BE DROPPED FROM TESTING. 
IF NO MORE DRIVES REMAIN TO BE TESTED, TEST #4 WILL END (UNLESS THE 
ERROR LOG IS ENABLED?. 


WHEN THE END OF TEST #4 OCCURS, THE ACCUMULATED STATISTICS FOR EACH 
DRIVE WILL BE PRINTED. THIS STATISTICAL REPORT CAN BE PRINTED AT ANY 
TIME DURING TEST #4 BY TYPING CONTROL=C THEN THE PRINT COMMAND. 


THE DATA PATTERNS TO BE USED BY TEST #4 ARE INDICATED BELOW. EACH 
PATTERN IS GENERATED BY WRITING THE PATTERN NUMBER IN EACH 4-BIT 
NIBBLE OF THE FIPST WORD, THEN REPEATING THE DATA PATTERN (SEQUENCE OF 
ONE TO 16 WORDS) THROUGHOUT THE REST OF THE DATA BUFFER, PATTERN 
NUMBER 16 WRITES NIBBLES OF ZEROS. WHEN PATTERN NUMBER ZERO IS USED, 
THE ACTUAL PATTERN NUMBER WRITTEN (1 TO 15) IS PLACED IN THE NIBBLES 


PATTERN 0 THIS PATTERN NUMBER IS USED TO INDICATE ANY PATTERN 
NUMBER 1 TO 15 CHOSEN AT RANDOM, 
PATTERN ( WORDS IN PATTERN SEQUENCE = 1 


SEQUENCE (OCTAL) 105613 
SEQUENCE (HEX) 8B8B 


PATTERN 2 WORDS IN PATTERN SEQUENCE 


SEQUENCE (OCTAL) 031463 
SEQUENCE (HEX) 3333 


PATTERN 3 WORDS IN PATTERN SEQUENCE 


SEQUENCE (OCTAL) 030221 
SEQUENCE (HEX) 3091 


PATTERN 4 WORDS IN PATTERN SEQUENCE = 16 ‘SHIFTING ONES) 
SEQUENCE ve 000001, 000003, + 900007 000017, 000037, 


000077, 000177, 000377, 000777, 
5 fae Oo7797" 017777. 037777. 077777. 


' 
— 


' 
null 


SEQUENCE (HEX) 0001, 0003, 0007, es OO1F, OO3F, 
OO7F, OOFF, OFF, O3'r, O7FF, OFFF 
FF, SFE, TPFE, FFFF 


PATTERN 5 WORDS IN PATTERN SEGUENCE = 16 (SHIFTING ZEROS) 


SEQUENCE (OCTAL) 177776, 177774, 177770, 177760, 177740, 
177700, 177600, 177400, 177000, 176000, 
sone 170000, 160000, 140000, 100000, 


peOeNS (HEX) FFFE, FFFC, age? FFFO, FFEO, FFCO, 
F80, FFOO, FEQO, FCOO, F800, FOOD, 
£000; C000, 8000, 0000 


PATTERN 6 WORDS IN PATTERN SEQUENCE - 16 


SEQ 0019 


--- --—---—--_-_——- OE - ——— —. 
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| SEQUENCE (OCTAL) 990000, 990000, 000000, 177777, 177777, 
| 177777, 000000, 000000, 177777. 

990000; 177777, 000000, 177777. 0000007 


SEQUENCE (HEX) 0000, 0090 0000. {tt FFFF, FFFF, 
0000, 0000, FFFF , 0000, 
0000. FFFF. 0000. 
PATTERN 7 WORDS IN PATTERN SEQUENCE - (RINARY 1011011011011001) 
SEQUENCE (OCTAL) 133331 
SEQUENCE (HEX) B6D9 
PATTERN 8 WORDS IN PATTERN SEQUENCE - 16 


125252, 052525, 052525, 125252, 
O>eae° 125252, 052525, 125252, 052525, 


SEQUENCE (HEX) 5555, 5555, 5555, AAAA, AAAA, AAAA, 
5555, 5555, AAAA, AAAA, 5555, AAA, 
5555, AAAA, 5555, AAAA 


PATTERN 9 WORDS IN PATTERN SEQUENCE = 1 (BINARY 1101101101101100) 
SEQUENCE (OCTAL) 155554 

SEQUENCE (HEX) DB6C 

PATTERN 10 WORDS IN PATTERN SEQUENCE - 16 

SEQUENCE (OCTAL) 026455, 026455. 026455, 151322, 151322, 

151322, 026455, 026455, 151322, 151322, 


| 
SEQUENCE (OCTAL) 052525, 032383 052525, 125252, 125252, 


: 
026455, 151322. 026455, 151322, 026455, 
151322 


SEQUENCE (HEX) 2D2D, 2D2D, 2D2D, D2Dd2, D2Dd2, Dede, 
2D2D, 2D2D, D2D2, D2b2, 2D2D, Ded2, 
2D2D, D2D2, 2D2D, D2Dd2 


PATTERN 11 WORDS IN PATTERN SEQUENCE = 1 (BINARY 0110110110110110) 


SEQUENCE (OCTAL) 066666 
SEQUENCE (HEX) 6DD6 


PATTERN 12 WORDS IN PATTERN SEQUENCE - 16 (RIPPLE ONE) 
SEQUENCE (OCTAL) 000001, 000002, 000004, 200010, 000020, 
000040, 000100, 000200, 000400; 001000, 


pats ds 004000, 010000, 020000, 040000, 
100000 


SEQUENCE (HEX) 9000! 0002, 0004, 0008, 0010, 0020, 
0040, 0080, 010 9200, 0460, 0800, 
1000. 2000. 900. 800 





SEQ 0020 


+ 
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PATTERN 13 WORDS IN PATTERN SEQUENCE = 16 (RIPPLE ZERO) 
SEQUENCE (OCTAL) 177776, 177775, 177773, 177767, 177757, 


| 

| 177737, 177677, 177577, 177377. 176777. 
| 175777. 173777. 167777. 157777. 137777. 
| 077777 





| SEQUENCE (HEX) FEE. FFED. FEB, FFF7, FFEF, FFDF, 
| FFBF, FF7F, FEFF, EDFF, FBFF, F7FF, 
EFFF, DFFF, BFFF, 7FFF 


PATTERN 14 WORDS IN PATTERN SEQUENCE = 3 

SEQUENCE (OCTAL) 155555, 133333, 155555 

SEQUENCE (HEX) DB6D, B6DB, DB6D 

PATTERN 15 WORDS IN PATTERN SEQUENCE - 16 

SEQUENCE (OCTAL) 133331, \ezte,* 133331, 155554, 155554, 
155554, 133331, 133331, 155554, 15 

leeten” 155554, 133331, 155554, 133331. 


SEQUENCE (HEX) B6D9, B6D9, ee DB6C, DB6C, DBE6C, 
B6D9, BOD9, DB6C, DB6C, B6D9, DB6C, 
B6D9, DB6C, B6D9, DB6C 


PATTERN 16 THIS IS THE OPERATOR SELECTABLE PATTERN IN MANUAL 
INTERVENTION MODE. QUESTIONS ARE ASKED WHEN TEST #4 IS 

STARTED FOR THE OPERATOR TO INPUT THE NUMBER OF WORDS IN 

THE SEQUENCE AND THE CONTENTS OF THE WORDS. 


1067 000001 - END 
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- ABS. 000000 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 8192 WORDS ( ed PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 72 PAG 
-B: ZUDDAO=B8 : ZUDDAO.. DOC 


UDAT1 — UNIBUS dacs MACRO X04.00 9=JUL-81 11:25:16 


TABLE OF CONTENTS 


<a. UDA_DM PROGRAM PARAMETERS 

v= 1 TEST 4 SPECIFIC INFORMATION 
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ei= RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 
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UDAT1 UNIBUS ADDRESSING MACRO x04.00 9=JUL=81 11:25:16 PAGE 2 SEQ 0025 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION 


i .TITLE UDAT1 UNIBUS ADDRESSING 

Z ; 

5 : COPYRIGHT (C) 1980 

$ : DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 

8 : 

9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
10 3; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
11 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
12 ; COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
13 : TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
14 ; WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
iz ; THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
a4 : EQUIPMENT CORPORATION. 
21 > DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ss ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
24 : 
25 ; 
26 ; 
27 y 
28 ; 

; ; 

31 [THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 

3 ;USING A COMMAND LINE SIMILAR TO: 

- > UDAT1.BIN,UDAT1/C=C1,2]DMACRO,UDAT1T,UDATP, UDAT1M, UDATR,UDAT1S 
36 000000 TEST4 = 0 ; THIS IS NOT TEST4 

37 000000 


-ENABL ABS 
38 000000 DMCODE UDAT1,0,714,3,0 
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} .SBTTL UDA DM PROGRAM PARAMETERS 
3 .LIST MEB 
5 : EQUATES 
: : HIGHEST USABLE LOCATION OF UDA MEMORY + 1 
9 010000 HIMEM = 10000 : HIGH MEMORY+1 
10 007774 QVSTRT = 7774 > OVERLAY ADDRESS LOCATION 
12 : 
13 : OFFSETS FOR FORMAT TRACK TABLE 
15 000000 FT.BUF = 0. :BUFFER POINTER OFFSET 
16 000001 FT.HI = 1. ‘HI ORDER HEADER OFFSET 
7 000002 FT.LOW = 2. SLOW ORDER HEADER OFFSET 
19 : 
20 : OFFSETS FOR FORMAT TRACK BUFFER 
22 000000 FR.DAT = 0. zFIRST DATA WORD OFFSET 
33 600400 FR.EDC = 256. “EDC WORD OFFSET 
25 : 
26 : OFFSETS FOR READ/WRITE I/O CHAIN TABLES 
38 0000 RW.STAT = 0. :STATUS AND NEXT BUFFER POINTER OFFSET 
29 000001 RW.BUF = [POINTER TO DATA BUFFER 
30 002 RW.LOW = -: ‘HI ORDER EXPECTED HEADER 
31 000003 RW.HI = 5, ‘LOW ORDER EXPECTED HEADER 
32 000004 RW.CMD = oh. *SDI COMMAND AND HEAD ADDRESS 
33 005 RW.SDI = 5 [DUMMY SDI CONTROL BLOCK POINTER 
3% 06 RW.ANG = é ‘THETA FROM INDEX 
36 : CONSTANTS FOR READ AND WRITE XFC'S 
38 140000 WSTOP = 140000 ; LAST ENTRY IN CHAIN FOR WRITE 
39 040000 WCONT = 40000 t WRITE CONTINUE 
40 100000 RSTOP = 100000 + LAST ENTRY IN CHAIN FOR READ 
41 000000 RCONT = + READ CONTINUE 
42 0000 FSTOP = 100000 + LAST ENTRY IN CHAIN FOR FORMAT 
43 122400 WREAL = 122400 + WRITE REAL TIME ECOMMAND 
44 013400 RREAL = 13400 + READ REAL TIME COMMAND 
45 010000 ECCFLG = 10000 : ECC ERROR IN BUFFER BIT 
46 100000 EOC = 100000 + END OF CHAIN 
47 040000 BUFFLG = 40000 : BUFFER FULL OR EMPTY FLAG 
49 ; 
30 ; HEADER CODES 
52 000000 HD.LBN = 000000 :GOOD LBN 
060000 HD.RBN = 060000 :GOOD RBN, PERHAPS UNUSED 
HD.REV = 030000 *REVECTORED LBN 
HD.BAD = 110000 :BAD BLOCK 
HD.PRY = 050000 [PRIMARY REVECTORED BLOCK 
HD.XBN = 120000 >XBN BLOCK 





—-— 
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UDA DM PROGRAM PARAMETERS 


14000C 


000000 
000400 
000401 
000401 
000415 
000007 


HD . DBN 


= 140000 ;DBN BLOCK 

OFFSETS FOR DATA BUFFERS 

= 0. sDATA 

= 256. sERROR DETECTION CODE 
= 257. ;LAST 17 ECC RESIDUES 


BUFFER AND READ/WRITE CHAIN LINK SIZES 


= 257. ; WRITE BUFFER SIZE 
= WBUFLN+#12. ; READ BUFFER SiZE 
= fs ; LINK SIZE 


SEQ 0025 


SS 


N 2 
| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9-JUL=81 11:25:16 PAGE 4 SEQ 0026 
| UDA DM PROGRAM PARAMETERS 
i : XFC DEFINITION EQUATES 
3 BREAK = 0. ;BREAKPOINT XFC CODE 
4 000001 FORMAT = :. sFORMAT TRACK XFC CODE 
5 000002 XREAD = 2. yREAD N SECTORS XFC CODE 
6 000003 XWRITE = 3: ‘WRITE N SECTORS FC CODE 
| 7? 000004 SEND = 4. SEND SDI COMMAND XFC CODE 
- 000005 RCV = 5. sRECEIVE spl MESSAGE XFC CODE 
9 000006 COMPARE = 6. COMPARE DATA PATTERN TO BUFFER 
10 7? STATUS = v. RETURN DRIVE STATUS XFC CODE 
11 000010 ECHO = 8. zECHO DATA TO DRIVE XFC CODE 
12 000011 DINIT = 9. DRIVE INITIALIZE XFC CODE 
13 000012 WAITSI = 10. ;WAIT FOR SECTOR OR INDEX PULSE 
14 000013 UREAD = 11, [READ UNIBUS MEMORY XFC CODE 
15 000014 UWRITE = 12. ;WRITE UNIBUS MEMORY XFC CODE 
16 000015 ECC = 13, D0 ECC ON BUFFER XFC CODE 
17 000016 MRD = 14, SEND BUFFER TO MAINTENANCE READ COMMAND 
18 000017 MwR = 15, GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 CvT = 16. [CONVERT TO PHYSICAL ADDRESS XFC CODE 
20 000021 EXIT = 17, TERMINATE DM PROGRAM XFC CODE 
32 : GET STATUS OFFSETS 
24 000000 ST.UNT = 0 ;UNIT NUMBER 
25 000000 ST.MSK = 0. : SUBUNIT MASK 
000001 ST.STA = 1. [STATUS BYTE 
27 000001 ST.MOD = :. [MODE BYTE 
28 000002 ST.ERR = Zs TERROR BYTE 
29 000002 ST.CON = a. CONTROLLER BYTE 
30 000002 7 = . :C BITS 
31 90003 ST.RTY = 3. sRETRY COUNT/FAILURE CODE 
33 : STATUS BIT DEFINITIONS 
35 000200 ST.OA = 200 ; ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
000100 ST.RR = 100 ; READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
37 0 ST.DR = 40 ; DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
c 000020 ST.SR = 20 ; SPINDLE READY (SET IF SPINDLE READY) 
39 000002 ST.PS) = 2 : PORT SWITCH (SET IF PORT SWITCH IN) 
40 000001 ST.RU = 1 ; RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
41 000200 ST.FE = 200 : FATAL ERROR (SET IF FATAL ERROR OCCURRED) 
42 000100 ST.RE = 100 ; RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
43 00004 ST.PE = 40 ; PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
64 000020 ST.DF = 20 > INITIALIZATION FAILURE (SET IF INIT FAILED) 
45 000010 ST.wE = 10 ; WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
002000 ST.FO. = 2000 ; FORMATTING (SET IF FORMATTING ENABLED) 
47 001000 S’.08 = 1000 : DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
48 000400 So.a7 = 400 ; SECTOR SIZE (SET FOR 576 BYTE SECTORS) 


B 3 
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UDA DM PROGRAM PARAMETERS 


ey 


| , : GET COMMON CHARACTERISTICS OFFSETS 
3 000000 SPRTTO = 0. ;SHORT TIMEOUT <3:0> 
| 4 000000 SDIVER = 0. :SDI VERSION <7:4> 
| 5 000000 XFERRT = 0. ; TRANSFER RATE <15:0> 
| é 000001 LONGTO = 1. [LONG TIMEOUT <3:0> 
| ? 000001 = 1. ZRETRIES <7:4> 
- 000001 RCTCPS = 2 F/RCT COPIES <11:8> 
g 000001 SS = . SECTOR SIZE <15:15> 
10 2 ERLEV = 2. SERROR RETRY LEVELS <7:0> 
11 000002 ECCRSH = * ZECC THRESHOLD <15:8> 
12 3 MICREV = z :MICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3: HARDWARE REVISION NUMBER <15:8> 
14 000004 DRVID = 4. [UNIQUE DRIVE ID <47:0> 
15 000007 DRTYPE = Te :DRIVE TYPE IDENTIFIER <7:0> 
16 000007 REVS = ‘. ;REVS/SECOND <15:8> 
18 ; GET SUBUNIT CHARACTERISTICS OFFSETS 
20 THESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 SUB = 11, ;OFFSET TO PUT SUBUNIT AFTER COMMON; 
Pe 600000 LANCYL = 0. ;NUMBER OF CYLINDERS IN LBN AREA <31:0> 
24 1 HICYL = 1, HI ORDER CYLINDER BITS <15:12> 
25 000002 GRPCYL = 2. GROUPS PER CYLINDER <7:0> 
26 00002 HILBN = 2. HI STARTING LBN <11:8> 
27 000002 HIXBN = 2 ZHI STARTING XBN <15:12> 
28 000003 TRKGRP = 3. TRACKS PER GROUP <7:0> 
29 000003 HIRBN = 3. HI STARTING RBN <11:8> 
00003 HIDBN = 3: HI STARTING DBN <15:12> 
31 004 RBNTRK = 4. =RBNS PER TRACK <6:0> 
32 000004 RM = 4: [REMOVABLE MEDIA <7:7> 1=REMOVEABLE 
33 000005 DATPRE = _ DATA PREAMBLE SIZE IN WORDS <7:0> 
000005 HDRPRE = 5. [HEADER PREAMBLE SIZE IN WORDS <15:8> 
35 00006 MEDTYP = 6: :MEDIA TYPE <31:0> 
% 10 FCTSIZ = 8. FCT COPY SIZE <15:0> 
37 000011 LBNTRK = 9: ZLBNS PER TRACK <7:0> 
38 11 GRPOFF = 9. :GROUP OFFSET (SECTORS) <15:8> 
39 000012 LBNHST = 16. [LBNS IN HOST AREA <31:0> 
40 00014 RCTCSZ = 12. RCT COPY SIZE <15:0> 
41 000021 XBNCYL = 17. =CYLS IN XBN AREA <15:0> 
4¢ 0022 DBNCYL = 18. :CYLS IN DBN AREA <15:8> 
44 : UNIT CODES 
46 000001 UNITO = 1, _ JUNIT ZERO CODE 
47 000002 UNIT] = z. [UNIT ONE CODE 
48 000004 UNIT2 = 4 [UNIT TWO CODE 
49 000010 Wits «= [UNIT THREE CODE 
51 ; BIT MASK DEFINITIONS 
3 : 
54 177400 HIBYTE = 177400 | ;HIGH BYTE MASK 
55 000377 LOBYTE = 000377 [LOW BYTE MASK 
56 007777 HBHINB = 7777 HI BYTE, HI NIBBLE MASK 
57 170377 HBLONB = 170377 HI] BYTE, LO NIBBLE MASK 





ee 


| C 3 


bey UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE 5-1 
A DM PROGRAM PARAMETERS 


58 177617 LBHINB = 177417 
29 177760 LBLONB = 177760 
61 000001 TIMEOUT = 1, 

62 000002 HEADER = 2. 

65 000004 REVECT = é. 

65 000002 WRONG = 2. 

66 000004 FRAME == ne 
67 000010 CHECK = 8. 
69 000001 TOOBIG = .. 

20 000002 LOW = 2. 

72 ; BIT MASK 

73 

75 000002 OVERFL 


74 000001 LARGE = }. 


;LO BYTE, HI NIBBLE MASK 
:;LO BYTE, LO NIBBLE MASK 


DRIVE TIMEOUT CODE 
HEADER COMPARE FAILURE CODE 
SREVECTOR NEEDED CODE 


;FIRST WORD NOT START FRAME CODE 
FRAMING ERROR CODE 
; CHECKSUM ERROR CODE 


NUMBER OF WORDS EXCEEDS 7064 
;DM BUFFER ADDRESS IS LESS THAN 714 


;BLOCK NUMBER TOO LARGE 
;SECTOR NUMBER LARGER THAN 16 BITS 


SEQ 0028 


| D 
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UDA DM PROGRAM PARAMETERS 


| 1 :MAINTANENCE READ/WRITE REQUEST NUMBERS 
| 3 000000 TIMSIZ = 0. :GET FREE MEMORY PARAMETERS 
4 1 T2DLL. Ss = 1. “DOWNLINE LOAD DRIVE DIAGNOSTIC 
| 5 2 TOCMD == 2. ‘MANUAL INTERVENTION TEST 2 PROTOCOL 
6 000003 T4MPRM = 3. =GET MASTER PARAMETERS FROM SW QUESTIONS 
| ? T4UPRM = é. ‘GET UNIT PARAMETERS FROM HW QUESTIONS 
8 000005 14BB1 = 5. :GET BAD BLOCKS (1 THRU 14) 
9 14BB2. = 6. :GET REST OF BAD BLOCKS (15 AND 16) 
10 000007 T4SOFT = ze [ADD TO SOFT ERROR AND ECC COUNT 
11 000010 T4SEEK = 8. ‘ADD 1 TO SEEK COUNT 
12 1 T6MXFR = 9. ADD TO MEGABITS READ AND WRITTEN 
13 000012 UTOTST = 10. :GET UNITS TO TEST 
14 13 ERRMES = 11. ‘PRINT ERROR MESSAGE 
15 000014 ERRMC = 12. ‘TEST 4 ERROR REPORTING 
16 000015 MESSAG = 13. : INFORMATION MESSAGE 
if 000016 D = 14. [MARK DM PROGRAM AS NO LONGER RUNNING 
19 : OTHER BIT DEFINITIIONS 
21 000001 RCVRDY = 1 : RECIEVER READY 1 = READY 
22 000002 ATIN. = 2 + ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
2 600004 RCVERR = 4 > RECIEVER ERROR 
24 000100 AVAIL = 100 + AVAILABLE 1 = AVAILABLE 
25 000400 XMTERR = 400 + TRANSMIT ERROR 
26 100000 RWRDY = 100000 > IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 
28 ; SDI COMMANDS AND RESPONSES 
30 000204 DISCON = 204 : DISCONNECT DRIVE 
31 000006 ERECOV = 6 + ERROR RECOVERY 
32 000201 CHGMOD = 201 > CHANGE MODE 
33 000213 DRVONL = 213 + DRIVE ONLINE 
34 000014 DRVRUN = 14 + DRIVE RUN 
35 000005 DRVCLR = 5 : DRIVE CLEAR OPCODE 
%6 000207 GETCHR = 207 + GET CHARACTERISTICS 
37 000210 GETSUB = 210 : GET SUBUNIT CHARACTERISTICS 
38. 000011 GETSTA = 11 * GET STATUS 
39 000216 IRECLB = 216 + RECALIBRATE 
40 000012 INSEEK = 12 + INITIATE SEEK 
41 000176 COMPLT = 176 > SUCCESSFUL COMPLETION 
42 000175 UNSSUC = 175 + UNSUCCESSFUL COMPLETION 
43 000170 CHRRES = 170 > GET CHARACTERISTICS RESPONSE 
44 000167 SBCRES = 167 + GET SUBUNIT CHARACTERISTICS RESPONSE 
45 000366 STSRES = 366 : GET STATUS RESPONSE 
46 000350 ECHOC = 350 : DIAGNOSTIC ECHO COMMAND AND RESPONSE 
“8 ; ERROR CODES 
50 000000 FILSYS = : SYSTEM FATAL ERROR 
51 000400 FILDEV = 400 + DEVICE FATAL 
52 001000 ERHARD = 1000 > HARD ERROR 
53 901400 ERSOFT = 1400 * SOFT ERROR 
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' 
i 


| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9-JUL=81 11:25:16 PAGE 7 


/ TEST & SPECIFIC INFORMATION 


! 
| 
' 


J 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
2 


000377 
000105 


000061 
007717 





- SBTTL 


Bee Be Te (Be Be He Oe Oe & 
é 
—_ 
m 
J 
ao 


U.ELEV 


x» 
SO9U0F 4 
me OM 2D 
-Axa<~< 


nNVEMMMS 
S538 
Pe) 
cz 


ccecceceecece 


TEST 4 SPECIFIC INFORMATION 
TEST 4 SPECIFIC INFORMATION 


CONSTANTS 


& 
= 


" 


255. 
69. 
U.LGRP+1 


HIMEM-TLEN.U 
UNIT PARAMETER OFFSETS 


. CGRP+1 
-LCYL+2 


coocecececcecececeeccces 
: 
+ 
—y 


PARAMETER OFFSET 


0. 
S.PARM+1 
S.SDCL+2 


Be Be Be Be 


eRe Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be ® 


SEQ 0030 


NUMBER OF WORDS IN SECTOR TO FILL 


; INITIAL EDC VALUE 
; UNIT PARAMETER LENG 
; LOCATION OF FIRST ONIT PARAMETER BLOCK 


; POINTER TO NEXT UNIT (RING LINKED LIST) 

; 4 WORDS OF SUBUNIT PARAMETER POINTERS 

; AREA TO STORE VARIOUS TIMEOUT VALUES 

; READ/WRITE TIMEOUT AREA 

; NUMBER OF SEEKS ISSUED 

; NEXT FUNCTION ADDRESS (FOR DEFERRED CALLS) 
; PATTERN NUMBER TO WRITE 

; CURRENT COUNT OF T/G LOOPS 

; POINTER TO CURRENT TRACK OR GROUP 


TRACK COUNT FOR GROUP OPERATIONS 
NUMBER OF SECTORS R/W THIS TRY 
NUMBER OF SECTORS TO BE R/W 

NUMBER OF SECTORS TO BE oan THIS OP 
COUNT OF SECTORS R/W SO F 

UNIT MASK FOR XFC CALLS (0001 - 1000) 
WRITE PROTECTION STATUS 

CURRENT ERROR RECOVERY LEVEL 

MAXIMUM NUMBER OF READ RETRIES 
MAXIMUM NUMBER OF ERROR RECOVERY LEVELS 
ECC THRESHOLD 


OUT 
; MASK TO WRITE a READ-ONLY DRIVES 


UNIT PARAMETER 


; SUBUNIT OFFSET rie - 3) 
; MASTER L/D 


BN 
CURRENT L/DBN FOR START OF CHAIN 
RBN TO BE READ/WRITTEN IF LBN REVECTORED 
NUMBER OF RCT COPIES ON EACH SUBUNIT 
CURRENT RCT COPY THAT WE'RE WORKING ON 
ERROR (IF ANY) ON THE LAST R/W 
ERROR THAT OCCURRED BEFOR THE REVECTOR OPE 


RATION 


4 WORDS THAT HOLD THE SUBUNIT LOGICAL NUMBERS 


CURRENT CYLINDER 


LAST CYLINDER SEEKED TO 
LAST GROUP SEEKED TO 


SUBUNIT PARAMETER WORD 
STARTING DIAGNOSTIC CYLINDER 
PATTERN TO USE FOR WRITES 
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| 


58 000004 
59 000005 
60 000006 
61 000007 
62 000010 
63 000011 
64 

65 

66 

67 

68 000011 
t9 000013 
70 00001 


MPO Fe Bete NNN 
. se es eee 


= S.PAT+*1 ; NUMBER OF SECTORS IN ONE TRACK 

= S.TRKL+1 ; POINTER TO SUBUNIT CHARACTERISTICS 
= S.SCHR+1 ; SECTORS READ (UP TO 245) 

= S.MEGR*+1 ; SECTORS WRITTEN (UP TO 245) 

= S.MEGW*+1 ; POINTER TO BAD BLOCK AREA 

= S.BADP+1 ; START OF BEGIN/END SETS 


IF TRACK/GROUP LIMITS ARE GIVEN, THE SUBUNIT PARAMETERS HAVE THE 
FOLLOWING FIELDS ADDED TO THEM 


S.BESS ; MAXIMUM TRACK/GROUP COUNT 
S.MUNT #2 ; ORIGINAL TRACK/GROUP OFFSET 
S. TGGF +2 ; START OF TRACK/GROUP SETS 


po ee 
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ao ss es a ss 


1 
é 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
20 
21 
22 
23 
24 
25 
26 
27 





WONL Y 
RTRIES 


WCHE CK 


WCHKAL 
DAT CMP 


BCMPAL 


DUMMY SDI CONTROL BLOCK OFFSET 


“oe 


1 
2 


UNIT PARAMETER BITS (U.PARM(RS)) 


nun hh th bn nt Ww nb nu 


: 
be 
~+ 


" 


100000 
40000 


Be Be Be Be Be Be 


SEQ 0032 


DUMMY SDI SEARCH LIMIT 
DUMMY POINTER TO SUBUNIT CHAR=5 


DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 
INITIAL WRITE (SET IF INITIAL WRITE IN — 
IF 1, INDICATES THAT A SEEK IS NECESSAR 


; DIRE. 7 TON (SET IF SEQUENTIAL ACCESSES DECREASING) 
; SET IF CEQUENTIAL SEEKS MOVED TO NEW SURUNIT 

; SEEK_IN PROGRESS = SET IF TRUE 

; FIRST TIME FLAG = SET FOR INIT CODE 


REVECTOR BIT (SET IF BLOCK REVECTORED) 

SEE IF WORKING ON RBN 

REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) 
REVECTORING OPERATION IN PROGRESS 

DATA ERROR IF Set 

IF CLEAR, START RETRIES AT ZERO 


: RECALIBRATION BIT (SET IF RECALIBRATE JUST DONE) 
PARAMETER BITS (S.PARM(R4)) 


; DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 


1 if ECC CORRECTION ALLOWED MASTER BITS 

READ ONLY (SET IF READ ONLY) 

WRITE ONLY (SET IF WRITE ONLY) 

1 IF RETRIES ALLOWED 

SET IF ONLY CYLINDERS SPECIFIED 

USED DURING SETUP ONLY 

SEQUENTIAL SEEK (START UP TESTING ONLY) 

BEGIN/END SETS (USED IF SET) 

TRACKS OR GROUPS (TRACK IF SET) 

WRITE CHECK BIT (IF SET, WRITE CHECK WILL BE DONE) 


WCHECK’ IS ALSO USED FOR THE UNIT PARAMETERS 


; a WRITE CHECK ALWAYS TO BE DONE 
A COMPARE (SET IF DATA COMPARE ~ BE DONE ) 


DAT 
DATCMP’ IS ALSO USED FOR THE UNIT PARAMETER 


SET IF DATA COMPARE ALWAYS TO BE DONE 


r 
| 
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OONAW wr 


14 $D IAG$ 


~SBTTL MACRO DEFINITIONS 
DIAGNOSTIC MACRO FOR TESTS OVERLAYS 


-MACRO DIAG$$ 
TST 


BEG 
MOV 
MOV 


ee 


#60000 ,RO 
we a$$) 1 AG+$D AGS 


Space + 7 


(a 
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[DOONAN EWhH— 


MESSAGE CONTROL TABLE MACRO 
«MACRO MSG “eases CMDSZ,RPLBUF , RPI. SZ ,SUCCOM 


«WORD CMDBUF ADDRESS OF COMMAND 

«WORD CMDSZ [SIZE OF COMMAND IN BYTES 
-WORD RPLRUF SADDRESS OF REPLY 

«WORD RPLSZ :SIZE OF REPLY IN WORDS 

.1F NB NUMBER 

or SUC COM : SUCCESSFUL COMPLETION CODE 
. L 


SEQ 0034 


a ne 
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| -MACRO BCS 


run 


»ENDM 


LAB.. 


SEQ 0035 


| K 3 
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MACRO DEFINITIONS 

by PUSH REGISTER MACRO 


-MACRO PUSH RY 
~IRP X,<R9> 


-ENDR 
. ENDM 


: POP REGISTER MACRO 


-MACRO POP R9 
~IRP X,<R9> 


.ENDR 
- ENDM 


MOV X,= (SP) 


MOV (SP)+,X 


ee pe 
+ 
. 


’ 


SEQ 0036 


un 
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Oe es a 
OO WNAWEWN ODO ONAOUE WR 


ERROR MACROS . 
; THESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM. 
THE MACRO NAMES ARE : ERRSF, ERRDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
;BE ING Seat TO REPORT THE ERROR. 
; ARGUMENTS (MS$) MESSAGE POINTER 
(P1$) PARAMETER #1 
(P2$) PARAMETER #2 
(P3$) PARAMETER #3 
PARAMETER #4 
(P5$) PARAMETER #5 
(P6$) PARAMETER #6 
(P7$) PARAMETER #7 
(P8$) PARAMETER #& 


‘THE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE OVERLAY ‘™S‘’ IMMEDIATELY 
[FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. #MS1, @R2). 
mmr MUST CONTAIN AN ASCII FORMAT STRING TO DETERMIN® THE MESSAGE 
; THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 
[THERE IS DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
;MESSAGE. THESE PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
;USING ANY ADDRESSING MODE DESIRED 
TALL REGISTERS ARE RETURNED UNCHANGED. IT SHOULD SE NOTED THAT ARGUMENTS 
CONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 

ZASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


-MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S 
-NARG ARGSS$ 

-RADIX 10 

ERRORS 0,.MS$,P1$,P2$,P3$,P4$,P5$,P6$,.P7$,P8$, \ERRN 


WWNOUSWR— 
~- 
v 
> 
wn 
~ 


| «MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
NARG ARGS$ 
-RADIX 10 
— 1,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


yr ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
NL 

ct — 

-RADIX 10 

ERRORS 2.MS$,P1$,P2$,P35$,P4$,P5$,P6$,P7$,P8$, \ERRN 
- ENDM 

-MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8S 
-NARG <* 


-RADIX 10 
ERRORS 3.MS$, pis, P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 


SEQ 0037 


——- ae ? 


M 
| UDAT1 UNIBUS ADDRESSING MACRO X04.0°5 9=JJL=-81 11:25:16 PAGE 14 SEQ 0038 
| MACRO DEFINITIONS 


3; THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 
ag Oy pee ET$,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,ERRNS 


1 

2 

3 

4 x 

5 PRMS=ARGS$=-1 

6 IF LT,<PRMS> 

4 is ERROR: ;NOT ENOUGH ARGUMENTS IN ERROR CAiL 
9 REGS$=-1 

10 -IIF GE,<PRMS-8.>,PARGS. P8$ 

11 LIF GE,<PRMS-7.>,PARGS. P7$ 

12 oat GE. <PRMS=6.>,PARGS. P6$ 

13 IIF GE,<PRMS-5.>,PARGS. P5$ 

14 ~I1IF GE,<PRMS-4.>,PARGS. P4$ 

15 -IIF GE,<PRMS-3.>,PARGS. P3$ 

16 -IIF GE,<PRMS-2.>,PARGS. P2$ 

17 IIF GE,<PRMS=-1.>,PARGS. P1$ 

18 IF GE REGS$ 

19 RSTR$ \REGS$ 

| 20 NDC 

21 “RADIX 10 
22 LIST 
23 CALL RERROR ZERROR # ERRNS'. 
24 -NLIST 
25 : «RADIX 8 
26 LISI 
27 -WORD <PRMS*2000>+<ET$*400>+ERRN 
28 .WORD MS$ 
29 -NLIST 

30 ERRN=ERRN+1 

Hy ~ENDM 

33 -MACRO PARGS.,ADDR$ 

34 -NTYPE PTYPES,ADDRS 


-IF EQ,<PTYPE$&70> 
-IIF EQ,<PTYPE$&7>-REGS$,RSTR$ \REGSS 


"LIST 
MOV ADDR$,-(SP) 
inet! 
*" LIF £Q,<PTYPE$S&7>~1 :PICK A REGISTER TO USE 
iREGUE=2 [SELECT R2 IF R1 IS USED IN PARAMETER FETCH 
“REGUS SOTHERWISE USE R1 
-IF NE, <REGUS-REGSS> :1F REGISTER NOT ALREADY SAVED 
“eRsins \REGS$ :RESTORE CURRENT SAVED REGISTER 
_esaurs \REGUS : THEN SAVE SELECTED REGISTER 
GETP$ \REGS$,ADDRS 
.ENDC 
-ENDM 





wn ey 


UDAT1 UNIBUS ADDRESSING MACRO x04.00 9=JUL=81 11:25:16 PAGE 15 
MACRO DEFINITIONS 


1 -MACRO_SAVR$ REGN 
4 »LIST 

4 «NLIST 

5 REGS$=REGN 

$ . ENDM 

8 -MACRO RSTR$ REGN 
9 «LIST 

10 

11 «NLIST 

12 REGS$=-1 

7 . ENDM 

15 -MACRO GETP$ REGN,ADDR$ 
16 «LIST 

17 

18 

19 «NLIST 

20 - —NDM 


MOV R'REGN, SAVREG 


MOV SAVREG,R'REGN 


MOV ADDR$,R*REGN 
MOV R*REGN,=(SP) 


SEQ 0039 


+ OH 


B 
| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE 16 SEQ 0040 
| MACRO DEFINITIONS 


1 ; 
4 s PRIMARY ERROR REPORTING (TEST 4) 
4 -MACRO SOFTER NUM,ARGS 
5 ERROR MERSOF T,NUM,<ARGS> 
6 MOV #ERRMES ,R2 
7 MOV R2,0UT.RG 
8 .ENDM 
10 -MACRO REPSFT SFTFLG,ECCFG 
11 ms NB,SFTFLG 
12 MOV #1,0UT.02 
13 IFF 
14 CLR OUT.02 
15 ~ENDC 
16 oat NB,ECCFG 
17 MOV #1,0UT.03 
18 oIFF 
19 CLR OUT .03 
20 ~ENDC 
21 PUSH RO 
22 MOV #U.SNUM,RO 
23 ADD R5,RO 
24 ADD U.SUBU(R5) ,RO 
25 MOV (RO) ,OUT.01 
26 MOV AT4SOFT,RO 
27 CALL HOSTRQ 
28 POP RO 
¢ .ENDM 
31 -MACRO HARDER NUM,ARGS 
32 ERROR #ERHARD , NUM, <ARGS> 
33 MOV MERRMC ,R2 
34 MOV R2,0UT.RQ 
.ENDM 
~MACRO DEVFTL NUM,ARGS 
ERROR #FTLDEV,NUM,<ARGS> 
MOV HERRMC ,R2 
MOV R2,0UT.RQ 


«MACRO SYSFTL NUM,ARGS 

ERROR #FTLSYS,NUM,<ARGS> 
MOV MERRMC ,R2 
MOV R2,0UT.RQ 


.MACRO ERROR TYPE ,NUM, ARGS 


NUMPTR = NUMPTR + 1 





———_—_-—-—— 


| ¢ 6 
| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9-JUL-81 11:25:16 PAGE 16-1 SEQ 0041 
MACRO DEFINITIONS | 

58 ~ENDC | 

59 MOV #NUM, OUT. 02 
60 BIS TYPE ,OUT.02 

61 MoV = #. ,OUT.01 | 

62 -RADIX 

63 “ENDM | 

64 

65 -MACRO CERROR STNUM,ARGS 

66 .RADIX 10 | 

67 NUMPTR = STNUM 

68 ~IRP x, <ARGS> 

69 MOVMSG X.\NUMPTR 

70 NUMPTR = NUMPTR + 1 

71 .ENDR 

72 “RADIX 

73 *ENDM 

7% 

75 .MACRO ERRORC ARGS 

76 "RADIX 10 

77 “IRP XK, <ARGS> 

78 MOVMSG X.\NUMPTR 

79 NUMPTR = NUMPTR + 1 

80 .ENDR 

81 “RADIX 

82 *ENDM 

84 _MACRO MOVMSG ARG, INDX 

86 LIF LT, INDX-10 

87 MOV ARG, OUT.0* INDX 

88 FF 

89 MOV ARG, OUT. " INDX 

90 .ENDC 

91 "ENDM 

92 

93 .MACRO ENDERR POS 

54 “IF NB, POS 

95 NDERR POS 

96 IFF 

97 NDERR  \NUMPTR 

$8 ENDC 

99 *ENDM 

100 

101 .MACRO NDERR POS 

10> <3 : “IF NE ,POS 

193 x BIS #POS ,ERRPOS : SET THE POSITION 

105 CLR ERRPOS : CLEAR THE POSITION 

106 .ENDC 

107 "ENDM 

108 z 

109 ; MESSAGE REPORTING MACRO 

111 .MACRO MSSG — NUM,ARGS 

112 "RADIX 10 

113 NUMPTR = 3 

114 MOVMSG #MS"NUM,2 





nnn re ar 


“DAT UNIBUS ADDRESSING MACRO X04.00 9-JUL=81 11:25:16 PAGE 16-2 


| MACRO DEFINITIONS 


ee ee ek a ee ee ced eed ee eed od od 2 od. 3 od ed 
WANWANWNWWPononononponononoenuend 3 = = 
AWEWNM OO OCONAUEWR HO OONOWM 


137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 


NB, <ARGS> 

X,<ARGS> 

X, \NUMPTR 

= NUMPTR + 1 
PUSH 
MOV 
ADD 
ADD 
MOV 
MOV 
CALL 
POP 

ate NUM, ARGS 

#"NUM,2 

NB, <ARGS> 

X,<ARGS> 

X,\NUMPTR 

= NUMPTR + 1 
PUSH 
MOV 
CALL 
POP 


SEQ 0042 


<RO,R1> 
#U.SNUM,R1 
R5,R1 

U. SUBU(RS) ,R1 
(R1),0UT.01 
#MESSAG,RO 
HOSTRQ 
<R1,RO> 


<RO,R1> 
#MESSAG,RO 
HOSTRQ 
<R1,RO> 


o———- SS SO 


| 
j 


E 4 
_ UDATI UNIBUS ADDRESSING MACRO K04.00 9=JUL=81 11:25:16 PAGE 17 
| MACRO DEFINITIONS 


4 sRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 

3 -MACRO DSTAT,LAB$,E1,E2 

4 «NLIST 

5 »-NLIST MEB 

6 ~LIST ME 

7? LIST 

8 CALL RDSTAT : GET DRIVE STATUS 
G BIT #10000,R1 ; SEE IF ANY ERRORS 
0 BEQ $ ; IF NO ERROR, BRANCH 
1 BIT #4000,R1 ; SEE IF XMIT ERROR 
2 Q 1$ ; IF SO, BRANCH 

3 ERRHRD £1 ; REPORT INVALID STATUS ERROR 
4 BR LABS :; BRANCH TO DONE 

5 1$: ERRHRD E2 ; REPORT XMIT ERROR 
6 BR LABS ; BRANCH TO DONE 

7 2$: 

8 -NLIST 

Gg eNLIST ME 

0 sLiST MER 

1 LIST 

2 ~ENDM 


NINN A A Ss se os os es 


SEQ 0043 


F 
UDAT1 UNIBUS ADDRESSING MACRO x04.00 9=JUL=81 11:25:16 PAGE 18 SEQ 0044 
MACRO DEFINITIONS 


See 


1 ; 

4 : KOR THE CONTENTS OF TWO REGISTERS 

4 .MACRO RXOR REG1,REG2 

5 MOV REG2,-(SP) ; SAVE REGISTER REG2 

6 BIC REG1,REG2 ; CLEAR COORESPONDING BITS IN REG2 
? BIC (SP) +,REG1 ; CLEAR COORESPONDING BITS IN REG? 
§ iS REG1,REG2 : OR WHAT'S LEFT 


——__- ES RE ESE SEGRE 


| G 4 
| UDATI UNIBUS ADDRESSING MACRO 046.00 9=JUL=81 11:25:16 PAGE 19 SEQ 0045 
MACRO DEFINITIONS 


: : SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
3 MACRO TALKX  ERRLAB,E1,€2 

| é «NLIST 
a .NLIST MEB 
6 -LIST ME 
| ? aT 
8 CALL TALKER : INITIATE SDI INTERCHANGE 
9 TST R3 : SEE IF ERROR OCCURRED 
10 BEQ les : IF NOT, BRANCH 

11 BPL 1$ ; IF SO, BRANCH 

12 ERRHRD aE ZSEND COMMAND ERROR 

1% BR RLAB 

14 11$: ERRHRD Ee: RECEIVE COMMAND ERROR 

1S BR RLAB 

16 128: 

17 «NLIST 

18 -NLIST ME 

19 LIST  MEB 

20 wLIST 

21 .ENDM 


ere 


UDAT? UNIBUS ADDRESSING MACRO x04.00 S-JUL=B? 17:25:16 PAGE 20 
, START OF TEST CODE 


1 -SBTTL START OF TEST CODE 

§ THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 

: 000714 114007 CLR RO > CHANGE TO BREAKPOINT FOR DEBUG 
. INITIALIZE STACK 

8 000715 104206 001357 MOV @STACK,SP :SET UP STACK POINTER 

9 717 901360 BR START BRANCH OVER SLIPPORT CODE 


SEQ 0046 


~UDAT1 UNIBUS ADDRESSING MACRO K04.00 9=JUL=81 17:25:16 PAGE 21 


RDSTAT = GET DRIVES 


SS 


MHODOOWNAUNESWM—O OC 
8 
N 
WN 
> 


Norony @ es 


23 000750 


000003 


014000 
000400 


010000 
000004 


014000 


REAL TIME DRIVE STATE 


tei 
RDSTA 


RDSTAT = GET DRIVE*S REAL TIME DRIVE STATE 


SRETURN DRIVE STATUS 


+ STATUS RETURNED IN DM REGISTER 1 


STATLP: 


STATOK: 


STATEX: 


PUSH 


RE TURN 


<R3,RO0> 


#3,R3 
STATUS 
#14000,R1 
AXMTERR,R1 
STATOK 

R3 

STATLP 
#10000,R1 
STATEX 
ARCVERR,R1 
STATEX 

R3 


STATLP 
#14000,81 
<RO,R3> 


SAVE R3 AND RO 
MOV R3,<-(SP) 
MOV RO,=(SP) 

ALLOW ONL Y 3 ore 

GET DRIVE'S STA 

CLEAR ERROR PASSING BITS 

CHECK XMIT ERRORS 

IF NO ERRORS, BRANCH 

DECREMENT TRANSMiT ERROR COUNT 


; IF ERROR COUNT INCOMPLETE, BRANCH 


FLAG AS TRANSMIT ERROR 
BRANCH 

RECIEVER ERRORS 

IF VALID, BRANCH 


; DECREMENT ERROR COUNT 

: IF ERROR COUNT NON-ZERO, BRANCH 
; FLAG AS INVALID STATUS ERROR 

; RESTORE RO, R 


MOV (SP)+,RO 
MOV (SP)+,R3 
RETURN TO CALLING MODULE 


SEQ 0047 


can 


| 
UDAT1 UNIBUS ADDRESSING 
HOSTRO = HOST REQUEST = 


000751 


MO OO NON wr- 


NM lee —_) od od 
FWHM CO OONAULEWGW 

ooo ooo 

So 2 

Bie ttt tctett= 
NNNNNNNNON NV 

NNN NO O&O OOO 
ABRMANWEWNO 


23 000774 


001 
29 001005 


100467 


030777 
104262 


000000 


MACRO 04.00 9=JUL=81 17:25:16 PAGE 22 
REPORT ERRORS, MEGABYTES TRANSFERRED, 


-SBTTL HOSTRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


001006 
001406 
000036 


001044 
000036 


001007 
000034 


HOSTRQ: 


“SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
TCLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
“FOR NEXT HOSTRQ CALL. 


‘INPUTS: 


SNDAGN: 


CLRBUF : 


RO = HOST REQUEST NUMBER 


OuT 


BUFFER LOADED WITH DATA 


PUSH <RO,R1,R2> 


/ RO,OUT.ROQ 


#OUT.RQ,RO 
#BUFS1Z,R1 
MRD 

R1 

SNDAGN 
#IN.RQ,RO 
ABUFS1Z,R1 
MWR 


#0UT.01,R0 
“9 yoeradivandesitne 


R 
R2, (RO) + 
R1 


CLRBUF 
<R2,R1,R0> 


RE TURN 


MOV RO,=-(SP) 

MOV R1,=(SP) 

MOV R2,=-(SP) 
;STORE REQUEST NUMBER IN BUFFER 
;SEND BUFFER TO HOST 


;CHECK FOR ERROR 
7 IF ERROR, TRY AGAIN 
;WAIT FOR RESPONSE FROM HOST 


;CLEAR ARGUMENT WORDS IN BUFFER 


MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


SEQ 0048 


K 4 
-UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL-81 11:25:16 PAGE 23 SEQ 0049 
“HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 





| : :STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
Z OUT BUFFER = DATA TO SEND TO HOST 
5 001006 000000 OUT.RQ: .WORD 0 HOST REQUEST CODE 
6 001007 0 OUT.01: .WORD 0 DATA ARGUMENT 1 
| 7 001010 OUT.02: .WORD 0 DATA ARGUMENT 2 
8 001011 000000 OUT.03: .WORD 0 DATA ARGUMENT 3 
9 001012 OUT.04: .WORD 0 DATA ARGUMENT 4 
10 001013 000000 OUT.05: .WORD 0 DATA ARGUMENT 5 
11 001014 OUT.06: .WORD 0 DATA ARGUMENT 6 
12 001015 000000 OUT.07: .WORD 0 DATA ARGUMENT 7 
13 001016 OUT.08: .WORD UV DATA ARGUMENT 8 
14 001017 000000 OUT.09: .WORD 0 DATA ARGUMENT 9 
15 001020 000 OUT.10: .WORD 0 DATA ARGUMENT 10 
16 001021 0 OUT.11: .WORD 0 DATA ARGUMENT 11 
17 001022 0 OUT.12: .WORD 0 DATA ARGUMENT 12 
18 001023 000006 OUT.13: .WORD 0 DATA ARGUMENT 13 
19 0010 000000 OUT.14: .WORD 9 DATA ARGUMENT 14 
20 001025 OUT.15: .WORD 0 DATA ARGUMENT 15 
21 0010 000000 OUT.16: .WORD 0 DATA ARGUMENT 16 
22 001027 000 OUT.17: .WORD 0 DATA ARGUMENT 17 
23 001030 000000 OUT.18: .WORD 0 DATA ARGUMENT 18 
24 001031 OUT.19: .WORD 0 DATA ARGUMENT 19 
2 OUT.20: .WORD 0 DATA ARGUMENT 20 
GUT.21: .WORD 0 DATA ARGUMENT 21 
OUT.22: .WORD 0 DATA ARGUMENT 22 
OUT.23: .WORD 0 DATA ARGUMENT 23 
OUT.24: .WORD 0 DATA ARGUMENT 24 
OUT.25: .WORD 0 DATA ARGUMENT 25 
OUT.26: .WORD 0 DATA ARGUMENT 26 
OUT.27: .WORD 0 DATA ARGUMENT 27 
OUT.28: .WORD 0 DATA ARGUMENT 28 
OUT.29: .WORD 0 DATA ARGUMENT 29 
: IN BUFFER = DATA RECEIVED FROM HOST 
IN.RQ: .WORD 0 HOST REQUEST CODE (ECHO) 
IN.O1: .WORD O :DATA GUMENT 1 
IN.02: .WORD 0 DATA ARGUMENT 2 
IN.03: .WORD 0 DATA ARGUMENT 3 
IN.04: . WORD 0 DATA ARGUMENT 4 
IN.05: .WORD 0 DATA ARGUMENT 5 
IN.06: .WORD 0 DATA ARGUMENT 6 
IN.07: .WORD 0 DATA ARGUMENT 7 
IN.08: .WORD 0 DATA ARGUMENT 8 
IN.09: .WORD 0 DATA ARGUMENT 9 
IN.10: .WORD 0 DATA ARGUMENT 10 
IN.11: WORD 0 DATA ARGUMENT 11 
IN.12: .WORD 0 DATA ARGUMENT 12 
IN.13: .WORD 0 DATA ARGUMENT 13 
IN.14: .WORD 0 DATA ARGUMENT 14 
IN.15: .WORD 0 DATA ARGUMENT 15 
IN.16: .WORD 0 DATA ARGUMENT 16 ot: 
IN.17: .WORD 0 DATA ARGUMENT 17 
IN.18: .WORD 0 DATA ARGUMENT 18 
IN.19: . WORD 0 DATA ARGUMENT 19 


ns 


—————— SS . -- 


| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE 23-1 
joa = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


| 
| 


58 001070 


1 
67 001101 
68 





bs be bt be bs Os be 


Sel 
2 
Nm 
co 


IN.29: 
BUF SIZ 


lelelelelelelelelea) a) 


- ~ IN.RO 


2 A 
SIZE 


ARGUMENT 


OF BUFFER 


ieee 


SEQ 0050 


—— 


1 UNIBUS ADDRESSING MACRO %946.00 9=JUL~81 11:25:16 PAGE 24 


: 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 001102 
001102 
001103 
16 001104 
17 001105 
18 001106 
19 001107 
20 001110 
21 001111 
22 001113 
23 001114 
24 001116 
25 001117 
26 001121 
27 001122 
28 001124 
29 001125 
30 001127 
31 001130 
32 001131 
33 007132 
34 001134 
35 001135 
36 001136 
37 001137 
38 001140 
39 001141 
40 001143 
41 001144 
42 001145 
9001145 
001146 
43 001147 
44 
45 001150 
46 001151 


100001 
001360 
001150 
001151 
000001 


000001 


000001 


INPUTS: 


HS Be Be Oe Oe Oe Be Be Oe Oe Oe 


ALKER: 


TALK1A: 


1$: 
TALK1B: 


1$: 


TALK2A: 
TALK2B: 


SDISTO: . 
SDILTO: . 





ores 


IF 
-NLIST 
FF 


STRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


NE, TESTS 


TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 


R2 = SDI INTERCONNECT 


R3 = POINTER TO COMMAND TABLE CONTAINING APPROPRIATE COMMAND 
SDILTO/SDISTO SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 


RO = RETURN OP CODE FROM UNIT 
R3 = ERROR CODE - 0 = NO ERROR, 1 = RECEIVE ERROR, 100001 = SEND ERROR 


PUSH 


<R1,R4> 


(R3)+,RO 
(R3)+,R1 
SEND 

R1 

TALK1A 
#100001 ,R3 
TALK2B 

1 
SDISTO,R4 


TALK1B 
SDILTO,R4 
RO 


Be Be Se Be Be Be Be Be Se Be Be Se Be Fe Be Be Be Fe Be Fe Be Be Be Be Be Be Be 


$ 


SAVE REGISTERS 
MOV R1,-(SP) 
MOV R4,-(SP) 
SET ADR OF SDI COMMAND BUFFER 
SET BUFFER LENGTH 


COMMAND 
DID UNIT ACCEPT COMMAND 
IF SO, BRANCH 
FLAG AS SEND ERROR 
BRANCH TO EXIT 
SEE IF LONG TIMEOUT TO BE USED 
IF SO, BRANCH 
SET UP SHORT TIMEOUT 
BRANCH 
SET UP LONG TIMEOUT 
SET DATA BUFFER ADDRESS 
SET BUFFER LENGTH 
SEND RECEIVE SDI COMMAND 
DID ERROR OCCUR 
IF NOT, BRANCH 
SEE IF TIMEOUT 


IF SO, BRANCH 
att ERROR TYPE TO R3 FOR REPORTING 


DECREMENT TIMEOUT VALUE 

IF NOT TIMEOUT, BRANCH 

FLAG AS RECIEVE ERROR 

BRANCH TO EXIT 

FLAG AS NO ERRORS 

RESTORE R4, R1 
MOV (SP)+,R4 
MOV (SP)+,R1 


SDI SHORT TIMEOUT 
SDI LONG TIMEQUT 


SEQ 0051 





UDAT1 UNIBUS ADDRESS! 
HOSTRQ = HOST REQUEST 


4 

2 

3 

é 

5 

6 

7 

8 

9 : 

10 001152 
001152 
001153 

11 001154 

12 001155 

13 001156 

14 001160 

15 001162 

16 001163 

17 001165 
001165 
001166 

18 001167 


100462 


NG 


MACRO X04.00 9=JUL=81_ 11:25:16 PAGE 25 
REPORT ERRORS, MEGABYTES TRANSFERRED, 


000001 
001210 


001210 


> MREAD 


MREAD: 


Z ‘RS - ADDRESS OF 
: OUTPUTS 
RO = DATA READ 
PUSH <R2,R3> 


RETURN 


:READ ONE WORD FROM UNIBUS MEMORY 


WORD TO READ (LOW 16 BITS) 
(HIGH 2 BITS) 


. 


SAVE SOME REGISTERS 
MOV R2,-(SP) 
MOV R3,=(SP) 
;PUT UNIBUS ADDRESS IN RO AND R1 


; TRANSFER ONE WORD 

;LOCATION TO PUT DATA 

:DO_ THE READ 

:GET DATA READ 

sRESTORE OTHER REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,R2 


SEQ 0052 


ae es 7 


---- 


' 
| 


| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE 26 
| HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


| 
| 


OOOWNA NEW 


— 


et ed ss 
NOUS Ww 

Oo 

oO 

— 

— 

N 

N 


by 001207 
20 001210 
21 


100467 
Hse 3 
100465 
104070 
or a4 
104041 
104202 
ps ey 
060014 


104263 
104262 
104267 
000000 


000000 


001210 


000001 
001210 





SEQ 0053 


sMWRITE 
;WRITE ONE WORD TO UNIBUS MEMORY 
> INPUTS: 
: R5 = ADDRESS OF i TO eh (LOW 16 BITS) 
: R4 - HIGH 2 BIT 
: RO = DATA TO WRITE 
:OUTPUTS: 
MWRITE: PUSH <RO,R2,R3> ;SAVE SOME REGISTERS 
MOV RO,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV “fs UDATA :PUT DATA TO BE WRITTEN INTO BUFFER 
MOV R5,RO ;PUT UNIBUS ADDRESS IN RO AND R1 
MOV R4,R1 
MOV #1,R2 ; TRANSFER ONE WORD 
MOV HUDATA,R3 sADDRESS OF DATA WORD 
XFC UWRITE 7DO THE WRITE 
POP <R3,R2,RO0> sRESTORE THE REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,RO 
RETURN 
UDATA: .WORD O ;DATA BUFFER FOR TRANSFERS TO AND FROM 


;UNIBUS MEMORY 


a2 ee 5 


| ¢ 3 
UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL~81 11:25:16 PAGE 27 SEQ 0054 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


1 ;XOR 
2 ; 
3 :PERFORM XOR LOGIC FUNCTION ON TWO REGISTERS 
4 : INPUTS: 
5 : R1, R2 = DATA TO BE XOR'ED 
6 OUTPUTS: 
7 : R1 = UNCHANGED 
; ; R2 = XOR OF TWO INPUTS 
10 001211 XOR: PUSH R3 SAVE R3 
001211 100463 : MOV R3,-(SP) 
11 001212 104013 MOV R1,R3 
12 001213 103023 BIC R2,R3 
13 001214 103012 BIC R1,R2 
14 001215 101032 BIS R3,R2 
15 001216 POP R3 RESTORE R3 
001216 104263 MOV (SP)+,R3 
16 001217 115002 TST R2 :SET CONDITION CODES 
17 001220 000000 RE TURN 





ae 


UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=Ji".=81 11:25:16 PAGE 28 SEQ 0055 


HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 





; 001221 TO: 
| 3 : CALCULATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 
| 5 . j 
| 6 001221 104201 600001 MOV #1,R1 ; SET UP LOG2 SHIFTER 
| 7 001223 110201 1$: ROL 1 > DOUBLE THE TIMEOUT VALUE 

8 001224 103201 000001 BIC #1,R1 > CLEAR THE LOW BIT 

9 001226 117407 DEC RO > DECREMENT T 

10 001227 051223 BNE 1$ > IF COUNT INCOMPLETE, BRANCH 

11 001230 114007 ) CLR RO > CLEAR 9SEC COUNT 

12 001231 115407 2$: INC RO > INCREMENT 9 SEC COUNT 

13 001232 107201 000011 SUB #9.,R1 : SUBTRACT 9 SEC FROM TIMEOUT 

14 001236 031231 BPL 2$ : IF MORE TIME TO GO, BRANCH 

15 001235 000000 RETURN t RETURN TO CALLING PROGRAM 


eg 3 
| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL-81 11:25:16 PAGE 29 SEQ 0056 
| HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
J ;RERROR 
3 REPORT ERROR TO HOST PROGRAM 
4 ;THIS ROUTINE IS CALLED BY THE ERROR MACROS: 
M4 sERRSF, ERRDF, ERRHRD AND ERRSFT 
7 001236 RERROR: PUSH RO ;SAVE ONE REGISTER 
001236 100467 MOV RO,-(SP) 
8 001237 104067 MOV SP,RO GET STACK POINTER 
9 001240 PUSH <R1,R2,R3,R4> SAVE MORE REGISTERS 
001240 100461 MOV R1,-(SP) 
001241 462 MOV R2,-(SP) 
001242 100463 MOV R3,=(SP) 
001243 100464 MOV R4,-(SP) 
10 001244 115407 INC RO CHANGE SAVED STACK POINTER TO POINT TO 
11 ; ADDRESS OF LOCATION AFTER CALL 
12 001245 104271 MOV (RO)+,R1 GET RETURN PC 
13 001246 104202 001007 MOV #0UT.01,R2 GET ADDRESS OF WHERE TO PUT DATA 
14 001250 117401 DEC R1 :REDUCE TO PC OF ERROR CALL 
15 001251 100221 MOV Ri .<R2)* PUT PC IN OUT BUFFER 
16 001252 115401 INC ae [GET BACK TO RETURN PC 
17 001253 104113 MOV (R1),R3 : GET. ERROR NUMBER AND TYPE 
18 001254 103203 176000 BIC #"C061777, R3 CLEAR OTHER BITS 
19 001256 100223 MOV R3,(R2)+ :PUT IN BUFFER 
20 001257 104303 001315 MOV LUNIT,R3 ;PUT UNIT NUMBER IN BUFFER 
21 001261 100223 MOV R3, (R2)+ 
001262 104214 MOV (R1)+,R4 GET COUNT OF PARAMETERS 
23 001263 104213 MOV (R1)+,R3 GET MESSAGE POINTER 
24 001264 100223 MOV R3,(2)+ =PUT IN OUT BUFFER 
25 :R1 1S NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
26 001265 110704 SWAB RS 
27 001266 110604 ROR RG EXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 001267 110604 ROR R4 
29 0012 103204 177700 BIC #177700,R4 
30 001272 104040 001313 MOV R4,SPADJU+1 SAVE FOR LATER ADJUSTMENT OF STACK POINTER 
31 001274 011301 BEQ RERRCA [BRANCH IF NO PARAMETERS 
32 001275 104273 RERRPA: MOV (RO)+,R3 GET PARAMETER 
33 001276 100223 MOV R3,(R2)+ *STORE PARAMETER IN OUT BUFFER 
34 001277 117404 DEC R4 :COUNT THE PARAMETERS 
35 001300 051275 BNE RERRPA GET NEXT IF MORE 
36 001301 100471 RERRCA: MOV R1,-(RO) PUT RETURN ADDRESS ON STACK 
37 001302 104207 000013 MOV WERRIES , RO SEND ERROR PACKET TO HOST PROGRAM 
38 001304 020751 CALL HOSTRQ 
39 001305 POP <R4,R3,R2,R1,RO> RESTORE REGISTERS 
001305 104264 MOV (SP)+,R4 
104263 MOV (SP)+,R3 
001307 104262 MOV (SP)+,R2 
001310 104261 MOV (SP)+,R1 
001311 104267 MOV (SP)+,RO 
40 001312 105206 000000 SPADJU: ADD #0,SP ADJUST STACK OVER PARAMETERS 
41 VALUE CHANGED ABOVE 
ée 001314 000000 RETURN 
re 001315 177777 LUNIT: .WORD -1 ;LOGICAL UNIT NUMBER (=-1 FOR NOT AVAILABLE) 
46 001316 000000 SAVREG: .WORD 0 ' STORAGE FOR REGISTER AT CALL TIME 


oan} 





— 
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/UDAT1 UNI@US ADDRESSING MACRO x06.00 9=JUL=81 11:25:16 PAGE 291 
WOSTRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


' 
48 «LIST 
49 ~ENDC 


| 
! 
j 
| 
| 
j 


SEQ 0057 


‘per 
| 
| 
| 
| 


Sl LER es aie 


AT] UNIBUS ADDRESSING MACRO K04.00 9=JUL=81 11:25:16 PAGE 30 
TRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


5 sSTACK AREA 

3001317 123456 «WORD 123456 
4 001320 -BLKW 31. 

§ 001357 123456 STACK: WORD 123456 


ee ne on 


sera MARKER FOR STACK 
ACK 
[MARKER FOR STACK UNDERFLOW 


SEQ 0058 


UDAT1 UNIBUS ADDRESSING MACRO x04.00 9-JUL=81 17:25:16 PAGE 32 
FREE MEMORY CHECK 


SEQ 0059 


> .SBTTL FREE MEMORY CHECK 
3 000001 ERRN=1, START ERROR NUMBERS FROM 1 
4 
5 ASK HOST WHERE FREE MEMORY IS AND TO FILL IT WITH AN ADDRESS PATTERN 
6 
7 001360 LONG: UNUSED LABEL THAT MUST BE DEFINED 
8 001360 104207 000000 START: MOV #TIMSIZ,RO :GET REQUEST NUMBER 
9 001362 020751 CALL HOSTRO “ASK HOST 
10 001363 104207 001045 MOV #1N.01,RO - : TRANSFER DATA FROM HOST 
11 001365 104201 002057 MOV #FWADR, RI : TO STORAGE 
1¢ 001367 104202 000010 MOV #8.,R2 
13001371 104273 FMEMFiL: MOV (RU)+, R3 
14 001372 100213 MOV R3, (Ri)+ 
15 001373 117402 . DEC R2 
| 1 001374 051371 “BNE FMEMFL 
4 ;READ ALL OF SPECIFIED MEMORY AND CHECK FOR DATA SAME AS ADDRESS 
| 20 001375 104305 002057 MOV FWADR,RS GET STARTING ADDRESS 
21 001377 104304 002060 MOV FWADRH,R4 
23 001401 021152 ACHK?: CALL MREAD READ FROM UNIBUS MEMORY 
24 COMPARE DATA READ WITH EXPECTED 
26 001402 106075 ACHK2: CMP RO,R5 COMPARE DATA A. WITH ADDRESS 
27 001403 011413 BEQ ACHK3 “BRANCH IF A MATCH 
28 001404 ERRHRD MS3.R5,R4,R5,RO ;UNIBUS ADDRESSING ERROR - INCORRECT DATA READ 
001404 100467 MOV RO,-(SP) 
001405 100465 MOV R5,-(SP) 
001406 100464 MOV R4,-(SP) 
001407 100465 MOV R5,-(SP) 
001410 021236 CALL RERROR ERROR # 1. 
001417 011001 -WORD <PRMS*2000>+<2*400>+ERRN 
| - 001412 000173 .WORD MS3 
af ; INCREMENT TO NEXT LOCATION UNTIL ALL TESTED 
32 001413 106305 002061 ACHK3: CMP LWADR,RS. CHECK IF AT LAST ADDRESS 
33 001415 051421 BNE ACHKS 
34 091416 106304 902062 CMP LWADRH,R4 
35 001420 011426 BEQ BCHK :GO TO NEXT TEST IF SO 
% 001421 105205 000002 ACHK4: ADD #2,R5 : INCREMENT TEST ADDRESS 
37 001423 041401 BCC ACHK1 
38 001424 115404 INC R& CARRY TO HIGH BITS 
39 001425 001401 BR ACHK1 ;LOOP IF STILL IN SPECIFIED MEMORY 


Nn eee 
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_UDAT1 UNIBUS ADDRESSING MACRO X04.00 9JUL=81 17:25:16 PAGE 33 SEQ 0060 
FREE MEMORY CHECK 


1 CHECK EACH ADDRESS LINE BY LOOKING AT TWO LOCATIONS WITH ONLY THAT 

¢ sADDRESS LINE DIFFERENT AND VERIFYING TwO LOCATIONS ARE ACTUALLY ACCESSED 
4 001426 104307 002060 BCHK: MOV FWADRH,RO ;LOAD TEST ADDRESS HIGH BITS 

5 001430 104970 002070 MOV RO, TADRH 

6 001432 104203 060002 MOV #2,R3 :GET STARTING ADDRESS 7 TO TEST 
7 001434 104032 BCHK1: MOV R3,R2 :GET ADDRESS BIT TO TES 

8 001435 104301 002057 MOV FWADR,R1 ;GET FIRST ADDRESS Or FREE MEMORY 
9 001437 021211 CALL XOR : CHANGE JUST THE ONE BIT IN ADDRESS 
10 001440 104020 002067 MOV R2,TADR STORE TEST ADDRESS 

11 001442 021742 CALL_BCHKM TEST THE MEMORY ADDRESS 

12 001443 105033 ADD R3,R3 [GET NEW ADDRESS BIT TO TES 

7 001444 051434 BNE BCHK1 . :LOOP IF STILL AN ADDRESS BIT TO TEST 
15 001445 104307 002057 MOV FWADR,RO sNOW MOVE TO HIGH TWO BITS 

16 001447 104070 002067 MOV RO,TADR ;COPY LOW BITS TO TEST ADDRESS 

17 001451 104203 000001 _ MOV #1,R3 ZSTART BIT 

18 001453 104032 BCHK2: MOV R3,R2 :GET TEST BIT 

19 001454 104301 002060 MOV FWADRH,R1 :GET FIRST ADDRESS 
20 001456 021211 CALL_XOR CHANGE ONLY THE ONE BIT 
21 001457 104020 002070 MOV .* TADRH > STORE ast TEST ADDRESS 
22 001461 021742 CALL BCHKM TEST THE MEMORY ADDRESS 

23 001462 105033 ADD R3,R3 SCHANGE TEST BIT 
26 001463 102203 000004 BIT #4,R3 sCHECK IF PAST TWO ADDRESS BITS 
25 001465 011453 BEQ BCHK2 sREPEAT FOR OTHER BIT 
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_ FREE MEMORY CHECK 


coo 


— ad od Ss st et a 
AUEWR HO OOMNAWE WI 


nN 
OoOoonN 


29 001510 
30 001511 
31 001513 
32 001514 
33 001515 
34 001517 
35 001520 
36 001521 
37 001522 
38 


39 001523 
40 001525 
41 091527 
42 001530 
43 001532 


104202 


115401 
001502 


104050 


10 
104010 


£10000 
002103 


002103 


002057 
002060 


000004 


002062 


002061 


002074 
000000 


002075 
002071 


; TRANSFER LARGE BUFFERS OF DATA TO AND FROM THE HOST MEMORY. 


;THE HOST MEMORY WILL Be DIVIDED INTO SEVERAL BUFFERS. ALL BUFFERS WILL 
7BE WRITTEN WITH PATTERN 0 THEN READ AND THE DATA COMPARED TO PATTERN O. 
;EACH BUFFER WILL THEN BE WRITTEN TO PATTERN 1 WITH A READ OF ALL BUFFERS 
ZAFTER EACH WRITE. WHEN ALL BUFFERS HAVE BEEN WRITTEN WITH PATTERN 1, THEN 
a aot iean phan: BY WRITING EACH BUFFER WITH PATTERN 2 AND THEN 

iW H ° 


“DATA PATTERNS: (EACH IS A REPETITION OF THREE WORDS) 
177400 2 - 155555 


70 = 111111 1 3 - 000377 
: 044444 007760 133333 170017 
; 022222 000377 066666 177400 


;BREAK THE HOST MEMORY INTO BUFFERS 


CCHK: MOV #10000,R2 ;COMPUTE SIZE OF DATA 
SUB #FREE ,R2 : BUFFER IN M MEMORY 
ADD Rz,Re >CHANGE TO BYTE COUNT 
MOV #FREE,RS :GET ADDRESS OF FIRST TABLE ENTRY 
MOV FWADR.R4 :GET ADDRESS OF FIRST 
MOV FWADRH,R3 > BUFFER IN HOST 
CLR RI INIT COUNT OF BUFFERS 


2$: MOV R4,(R5)+ :STORE HOST — ADDRESS 
MOV R3,(R5)+ :;__IN TABE ENT 
SUB #4,R2 REDUCE BUFFER’ SIZE BY TABLE ENTRY 
ADD R2,R4 ZINCREADE HOST ADDRESS TO 
BCC 1$ ; NEXT BUFFER 
INC R3 

1$: CMP LWADRH,R3 : CHECK IF BUFFER LARGER 
BMI 4% :; THEN HOST MEMORY REMAINING 
BNE 3$ 
CMP LWADR,R4 
BCC 3$ 
BR 4% 

3$: INC _R1 ;COUNT THE TABLE ENTRY 
BR 2$ :GO BACK AND DO AGAIN 

4$: MOV R5,DATRUF SAVE ADDRESS OF DATA BUFFER 
ADD #0,R0 : CLEAR CARRY 
ROR R2 sSAVE SIZE OF DATA BUFFER 


MOV R2,S1ZBUF 


;__IN WORDS 
MOV R1,BUF CNT ;SAVE COUNT OF BUFFERS 


SEQ 0061 








| 
| 
| 
| 
| 
| 
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E MEMORY CHECK 


| FREE 


— 3 ss ss 


1547 
1550 


8888 888888Sss 


oO 
— 
w 
un 
Ww 


C1562 


NN AM A eS eS SS 
[OVD ONAUSWN OV ONOAUESWNR 


i>] 
oO 
— 
Vv 
g 


ro 
Ww 


Mm 
Nm 
8s 
pa 
w 
Oo 
Ww 


1566 
24 001570 
25 001571 
26 001573 
27 001574 


104070 002073 
104070 002072 


104307 002072 
106307 002071 


021651 


104307 002073 


115407 


106207 000004 


011575 


104070 002073 


114007 


104070 002072 


104307 002072 
106307 002071 


001551 


;WRITE ALL BUFFERS TC PATTERN 0 


10$: 


12$: 


148: 


CLR RO 

MOV RO,CURPAT 
MOV RO, CURBUF 
CALL WRITE 
MOV CURBUF ,RO 


INC RO 

CMP BUF CNT ,RO 
BNE 10$ 

CALL READ 

MOV CURPAT ,RO 


MOV RO, CURPAT 


RO 
MOV RO, CURBUF 
CALL WRITE 
CALL READ 
MOV CURBUF ,RO 
INC RO 
CMP BUF CNT RO 
BNE 14$ 
BR 12$ 


; LOAD PATTERN 0 
IN SAVE WORD 
SSELECT BUFFER 0 
[WRITE THE BUFFER 


S INCREMENT TO NEXT BUFFER 
;WRITE ANOTHER JF 


NOT AT LAST 
[READ ALL HOST BUFFERS 


; INCREMENT PATTERN NUMBER 
sEXIT SUBTEST IF NO 


NO PATTERNS REMAINING 


;POINT TO BUFFER 0 

sWRITE A BUFFER 

;READ ALL HOST BUFFERS 

; INCREMENT TO NEXT BUFFER 


SC IECK IF AT LAST 


WRITE NEXT BUFFER 
WRITE NEXT PATTERN 


SEQ 0062 


es | 


i 3 
UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE 36 
FREE MEMORY CHECK 
1 001575 104207 000016 DONECD: MOV #DONE ,RO :END OF PROGRAM, TELL PDP=11 


2 001577 020751 CALL HOSTRO 
3 001600 001575 BR DONECD sKEEP SENDING IF RETURNED 


SEQ 0063 


es 


a a i 


+ - -  - -  -  O— Cr --——— — —- -— ——- 
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|UDAT1, UNIBUS ADDRESSING MACRO X04.00 9-JUL~B1 11:25:16 PAGE 37 
|FRLE MEMORY CHECK 


SEQ 0064 


| 1 ;FILL_A_DATA BUFFER BEGINNING AT ADDRESS IN DATBUF AND WHOSE SIZE 
| 2 :1S IN SIZBUF WITH A DATA PATTERN SPECIFIED BY CONTENTS “F CURPAT. 
| 3 :WRITE THIS BUFFER TO HOST STARTING AT ADDRESS IN TWO WORDS POINTED 
; :T0 BY CURBUF. THEN PLACE THE PATTERN NUMBER IN THE SECOND WORD OF THE 
° :HOST ADDRESS 
: ;FILL BUFFER WITH DATA PATTERN 
9 001601 104307 002073 WRITE: MOV CURPAT,RO :GET PATTERN NUMBER 
10 001603 105077 ADD RO,RO ; TIMES FOUR 
11 001604 105077 ADD RO.RO 
12 001605 104072 MOV RO.R2 ;SAVE FOR ADDING TO TABLE ENTRY 
13 001606 105207 001723 ADD #PATO,RO ADD START OF PATTERN TABLES 
14 001610 104273 MOV (RO)+,R3 :GET PATTERN WORDS 
15 001611 104274 MOV (RO)+,R4 
16 001612 104275 MOV (RO)+,R5 
17 001613 104307 002074 MOV DATBUF ,RO :GET ADDRESS OF BUFFER 
18 001615 104301 002075 MOV SIZBUF .R1 :GET SIZE OF BUFFER 
20 001617 100273 1$: MOV R3,(RO)+ :LOAD ONE WORD 
21 001620 117401 DEC RI COUNT THE WORDS 
22 001621 011630 BEQ 2$ 
23 001622 100274 MOV R4,(RO)+ :LOAD ONE WORD 
24 001623 117401 DEC R1 COUNT THE WORDS 
25 001624 011630 BEQ 2$ 
26 001625 100275 MOV R5,(RO)+ ;LOAD ONE WORD 
27 001626 117401 DEC R1 COUNT THE WORDS 
28 001627 051617 BNE 1$ 
c 
30 ;WRITE THE BUFFER TO HOST MEMORY 
32 001630 104305 002072 2$: MOV CURBUF RS :GET POINTER TO HOST ADDRESS 
33 001632 105055 ADD R5.R5 ; COUNT TIMES TWO 
34 001633 105205 002103 ADD #FREE RS ; PLUS START ADDRESS 
35 001635 104257 MOV (R5)+-RO :GET LOW ADDRESS BITS 
36 001636 104151 MOV (R5) RI GET HIGH ADDRESS BITS 
37 001637 103201 177774 BIC #177776, RI CLEAR CURRENT PATTERN 
38 001641 101012 BIS R1,R2 SET IN NEW PATTERN 
39 001642 100152 MOV R2, (R5) STORE IN TABLS ENTRY 
40 001643 104302 002075 MOV SIZBUF ,R2 :GET WORDS TO TRANSFER 
41 001645 104303 002074 MOV DATBUF -R3 :GET_DM ADDRESS 
42 001647 060014 XFC UWRITE :WRITE TO THE HOST MEMORY 
43 001650 000000 RETURN 











| FREE 


MEMORY 


a ed aD ae ed a cd aed eed 
NM —OCVONAUEWN "OO OONOAUEWR- 


117404 
051655 
000000 


002103 
002071 


177774 
002075 
002074 


002076 
002075 
002074 


177763 
001723 


| UDA UNIBUS oe MACRO X04.00 9-JUL=81 11:25:16 PAGE 38 


:CYCLE THROUGH ALL HOST BUFFERS 
3$: DEC 


RE TURN 


SEQ 0065 
;READ AND PERFORM A DATA COMPARE ON ALL THE HOST BUFFERS. TWO WORD 
STABLE ENTRIES STARTING AT FREE CONTAIN THE HOST ADDRESS OF THE 
TBUFFERS AND THE PATTERN NUMBER LAST WRITTEN TO THE BUFFER. THE 
[NUMBER OF BUFFERS IS IN BUFCNT AND THE SIZE OF THE BUFFERS IS IN 
:SIZBUF. THE DATA CAN BE READ INTO THE DM AT ADDRESS IN DATBUF. 
READ: MOV #FREE,RS :GET ADDRESS OF TABLE ENTRIES 
MOV BUFCNT,R4 ‘GET COUNT OF BUFFERS 
;READ DATA FROM HOST BUFFER INTO DM MEMORY 
1$: MOV (R5)+,RO :GET BUFFER ADDRESS 
MOV (R5),R1 
BIC #177774,R1 :CLEAR PATTERN NUMBER 
MOV SIZBUF ,R2 ‘SIZE OF BUFFER 
MOV DATBUF .R3 [PLACE TO READ DATA 
XFC UREAD “READ THE DATA FROM HOST MEMORY 
:COMPARE DATA READ WITH DATA PATTERN 
MOV #CMPSI1Z,RO :GET STORAGE ADDRESS OF 
MOV RO,R1 > DATA COMPARE DATA 
MOV SIZBUF ,R3 ‘STORE BUFFER SIZE 
MOV R3,(R1)+ 
MOV DATBUF ,R3 ;STORE ADDRESS 
MOV R3,(R1)+ 
MOV (R5)+,R 3GET PATTERN NUMBER 
BIC #177763,R2 ; AND COMPUTE PATTERN 
ADD #PATO,R : ADDRESS 
MOV (R2)+.R3 [MOVE DATA PATTERN WORDS 
MOV R3, (R1)+ : TO DATA COMPARE 
MOV (R2)+,R3 + STORAGE AREA 
MOV R3,(Ri)+ 
MOV (R2)+,R3 
MOV R3,(R1)+ 
XFC COMPARE :COMPARE DATA IN BUFFER TO PATTERN 
Ist RI *CHECK FOR ERRORS 
ERRHRD MS6 ;DATA COMPARE FAILED AFTER WRITE THEN READ. FROM UNIBUS 
CALL RERROR ERROR # 2. 
GORD <PRMS *2000>+<2#400>+ERRN 


«WORD MS6 


; COUNT BUFFERS 
SREPEAT FOR ALL BUFFERS 


mustcomeene nie 
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| UDAT1 UNIBUS ADD 
FREE MEMORY CHEC 


001723 
001724 
001725 
001726 


001736 


001737 
001740 
001741 


SO ODONAMNEWN—OOONA NEW 
S 
~N 
Ww 
nm 


Mme eS Se es 


111111 


155555 
133333 
066666 
000000 


000377 
170017 
177400 


;DATA PATTERN 


PATO: 


PAT2: 


PATS: 


. WORD 
.W 


TABLES 


*B1001001001001001 
*B0100100100100100 
” seep adipic 


*B00000000111111 
“B11110000000011 


11 
11 
“B1111111100000000 


SEQ 0066 
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FREE MEMORY CHECK 





— 


f 
| 
| 
| 
| 
| 
| 


l :CHECK IF TEST ADDRESS IS IN BOUNDS OF READABLE MEMORY \ 
\ 
3001742 106300 002070 002064 BCHKM: CMP TADRH,FRADRH : COMPARE TEST ADDRESS WITH FIRST READABE ADDRESS \ 
4 001745 011750 BEQ 1$ [BRANCH IF EQU 4 
5 001746 041755 BCC 2$ :BRANCH IF fest. ADDRESS HIGHER \ 
6 001747 902056 BR BCHKMX “BRANCH IF TEST ADDRESS LOWER , 
7 001750 106300 002067 002063 1$: CMP TADR,FRADR \ 
8 001753 041755 BCC 2$ ;BRANCH IF HIGHER OR SAME } 
9 001754 002056 BR BCHKMX :BRANCH IF LOWER } 
10 001755 106300 002066 002070 2$: CMP LRADRH, TADRH :COMPARE TEST ADRESS WITH LAST READABLE ADDRESS } 
11 001760 011763 BEQ 3$ [BRANCH IF EQUAL } 
12 001761 041770 BCC 4$ SBRANCH IF READABLE ADDRESS HIGHER ) 
13 001762 002056 BR BCHKMX [BRANCH IF READABLE ADDRESS LOWER } 
14 001763 106300 002065 002067 38: CMP LRADR,TADR 
15 001766 041770 BCC 4$ ;BRANCH IF HIGHER OR SAME 
16 001767 002056 BR BCHKMX [BRANCH IF LOWER 
18 001770 104305 002057 4$: MOV FWADR,R5 ;WRITE ONES INTO FIRST ADDRESS 
19 001772 104304 002060 MOV FWADRH,R4 
20 001774 104207 177777 MOV #177777,RO 
21 001776 021170 | CALL MWRITE 
22 001777 104305 002067 MOV TADR,R5 :READ FROM TEST ADDRESS 
23 002001 104304 002070 MOV TADRH,R4 
24 002003 021152 CALL MREAD 
25 002004 106207 177777 CMP #177777,R0 :CHECK DATA READ FOR ALL ONES 
26 002006 052056 BNE BCHKMX :GO TO NEXT BIT IF NOT ALL ONES 
28 002007 104305 002057 MOV FWADR,RS ;WRITE ALL ZEROS TO FIRST ADDRESS 
29 002011 104304 002060 MOV FWADRH,R4 
30 002013 114007 CLR RO 
31 002014 021170 CALL MWRITE 
32 002015 104305 002067 MOV TADR,R5 :READ FROM TEST ADDRESS 
33 002017 104304 002070 MOV TADRH,R4 
34 002021 021152 CALL MREAD 
35 002022 115007 TST RO :CHECK DATA READ FOR ALL ZEROS 
36 002023 052056 BNE BCHKMX :GO TO NEXT BIT IF NOT ALL ZEROS 
38 002024 104301 002057 MOV FWADR,R1 :COMPUTE XOR OF FIRST ADDRESS 
39 002026 104052 MOV R5,R2 + AND TEST ADDRESS 
40 002027 021211. : CALL XOR 
41 092030 104027 MOV R2,RO :RESULT TO RO 
42 002031 104301 002060 MOV FWADRH,R1 :NOW DO IT FOR HIGH BITS 
43 002033 104042 MOV R4,R2 
44 002034 021211 CALL XOR 
45 002035 ERRHRD MS7,FWADR,FWADRH,R5,R4,RO,R2 ;UNIBUS ADDRESSING ERROR. TWO ADDRESSES READ SAM 
002035 100462 MOV R2,-(SP) 
002036 467 MOV RO,-(SP) 
002037 100464 MOV R4,-(SP) 
002040 100465 MOV RS5.-(SP) 
002041 104010 001316 MOV R1.SAVREG 
002043 104301 002060 MOV FWADRH,R1 
002045 100461 MOV R1,-(SP) 
002046 104301 002057 MOV FWADR,R1 
002050 100461 MOV R1,-(SP) 
002051 104301 001316 MOY. SAVREG,R1 
002053 021236 CALL KERROR 


#3. 
002054 015003 WORD EPRONS* 20085-2<>*4005ERAN 
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FREE MEMORY CHECK 


“ 002055 00044€ 
47 002056 000000 BCHKMX: RETURN 


«WORD MS7 


SEQ 0068 


—_—— 


E 
C 
C 
C 
C 
C 
C 
E 
E 
E 
E 
E 
E 
E 
E 
( 
t 
p 
y 
p 
8 
f 
if 
f 
I 
! 
y 
f 
f 
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‘ 
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2 
Oo 
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& 
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28 002076 
29 002077 
30 002100 
31 002101 
32 002102 


000 
000000 
000000 


000000 


000000 
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| FREE MEMORY CHECK 


PROGRAM VARIABLES 


FWADR: .WORD 0 ;FIRST ADDRESS CONTAINING ADDRESS DATA 
FWADRH: .WORD 0 

LWADR: .WORD 0 ;LAST ADDRESS CONTAINING ADDRESS DATA 
LWADRH: .WORD 0 

FRADR: .WORD 0 FIRST ADDRESS READABLE 

FRADRH: .WORD 0 

LRADR: .WORD 0 ;LAST ADDRESS READABLE 

LRADRH: .WORD 0 

TADR: «WORD Y ; TEST ADDRESS 

TADRH: .WORD 0 

BUFCNT: .WORD 0 ;COUNT OF BUFFERS IN HOST MEMORY 
CURBUF: .WORD 0 ; CURRENT BUFFER BEING WRITTEN IN HOST 
CURPAT: .WORD 0 ;CURRENT DATA PATTERN BEING WRITTEN 
DATBUF: .WORD 0 sADDRESS OF DATA BUFFER IN DM MEMORY 
SIZBUF: .WORD 0 ;SIZE OF DATA BUFFER IN HOST MEMORY 


HOST BUFFER TABLE ENTRIES ARE STORED AFTER THE PROGRAM AT FREE. 
TWO WORDS PER TABLE 


; FIRST WORD = LOW 4 BITS OF HOST ADDRESS 

: SECOND WORD - BITS 1-0 HIGH TWO BITS OF HOST ADDRESS 

: BITS 3-2 PATTERN LAST WRITTEN 

CMPSIZ: .WORD 0 ; TABLE FOR COMPARE DATA PATTERN XFC 
CMPADR: .WORD 0 

CMP1: -WORD 0 

CMP2: «WORD 0 

CMP3: -WORD 0 


F 6 
| UDAT1 UNIBUS ADDRESSING MACRO x04.00 9=JyUL=81 11:25:16 PAGE 42 SEQ 0070 
_ FREE MEMORY CHECK 
} sMESSAGE STORAGE OVERLAY 
3 002103 FREE: ; FREE SPACE BEGINS HERE 
4 002103 DMOVLY MS,0 
002103 154530 .WREDC sOUTPUT EDC FOR THIS OVERLAY 
; .NLIST BEX 
| 
_ 7 000000 042 116 117 MSI: -ASCII\' NON-EXISTANT MEMORY ERROR TRYING TO READ FROM UNIBUS.‘N\ 
| 8 000034 042 011 101 -ASCII\'' ADDRESS "'018N\ 
9 000044 000 -BYTE 0 
10 000045 042 120 101 MS2: -ASCII\'' PARITY ERROR ON READ FROM UNIBUS.’'N\ 
11 000067 042 011 101 -ASCII\"' ADDRESS *'078N\ 
12 000077 042 011 104 -ASCII\' DATA READ "O16N\ 
13 000107 042 011 104 -ASCII\'' DATA EXPECTED ‘''O16N\ 
14 000122 000 .BYTE O 
15 000123 042 125 116 MS3: .ASCII\' UNIBUS ADDRESSING ERROR - INCORRECT DATA READ.‘ N\ 
16 000153 042 115 105 -ASCII\' MEMORY LOCATION SHOULD CONTAIN OWN ADDRESS.‘ WN\ 
17 000202 042 011 101 -ASCII\" ADDRESS '018N\ 
18 000212 042 011 104 -ASCII\'' DATA READ "'O16N\ 
L 19 000223 042 011 104 -ASCIIN\' . DATA EXPECTED ‘"‘O16N\ 
20 000235 900 : .BYTE 0 
21 000236 042 125 116 MS4: -ASCII\' UNIBUS WRITE FAILED.’ N\ 
22 000251 042 011 105 -ASCII\'' ERROR CODE FROM R1 "‘O16N\ 
23 000266 042 011 106 -ASCII\'' FIRST ADDRESS WRITTEN  ‘‘O78N\ 
24 000305 042 011 127 -ASCII\'' WORDS TRYING TO WRITE ‘D''."'N\ 
25 000324 000 .BYTE 0 
26 000325 042 125 116 MSS: -ASCII\' UNIBUS READ FAILED.’ N\ 
27 000340 042 011 105 -ASCII\"' ERROR CODE FROM R1 '016N\ 
28 000355 042 011 106 -ASCII\'' FIRST ADDRESS READ "'018N\ 
29 000372 042 011 127 -ASCII\"' WORDS TRYING TO READ "D'S NA 
30 000410 000 .BYTE 0 
31 000411 042 104 101 MS6: -ASCII\' DATA COMPARE FAILED AFTER WRITE THEN READ FROM UNIBUS.''N\ 
32 000445 000 -BYTE 0 
33 000446 042 125 116 MS7: -ASCII\'UNIBUS ADDRESSING ERROR. TWO ADDRESSES READ SAME LOCATION.’ N\ 
000504 042 011 113 ASCII\"' KNOWN GOOD ADDRESS '018N\ 
35 000521 042 011 105 -ASCII\'' ERROR ADDRESS "018N\ 
0005 34 042 011 101 -ASCII\" ADDRESS BIT IN ERROR *'018N\ 
37 000552 000 RYTE O 
39 000553 DMEND 
020553 066640 .WREDC sOUTPUT EDC FOR THIS OVERLAY 
40 000001 . END 
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SYMBOL T 
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000415 


000366 
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_ SYMBOL T 


ST.ERR= 








ST.RTY 


- ABS. 


ERRORS DETECTED: 


MEMORY USED: 


004750 
000000 


000 
001 


4286 WORDS 
DYNAMIC MEMORY AVAILABLE FOR AGES 
A:UDAT1.BIN,SY¥:UDAT1/C=01, 33 JDMACRO,UDAT1T ,UDATP,UDATR,UDAT 1M, UDAT1S 


000011 


= 000020 


000003 


( 17 PAGES) 
69 P 


—_ 
™m 
Vv 
Sa 
nein 


UNSSUC= 
UREAD 


000000 
0 


000055 


PY= 


CT= 


—MMAIDD 
Aor o3awno 


YL= 


gF¢ 


DVVVZZZ23B3 
SPEarMAe 
~~ OG ete 

a] =—O< 
mune 


e 


° 
a] 

a 
u 


cocecceceecceceeeceecece 
DD 
— 
zD 
~< 
" 


000043 


000030 


SSFP Err 
& 
i 


XMTERR= 
xOR 
XREAD 
XWRITE 


000007 
000047 


000003 


SEQ 0072 


UDAT1 UNIBUS ADDRESSING MACRO K04.00 9=JUL=81 11:25:16 PAGE S=1 


CROSS REFERENCE TABLE (CREF vO1-05 ) 
|ACHK1 © 32=22 «= 32-37 32=39 
ACHK3 «= 32-27 32=32e 


ACHKS =—- 332+ 33 32-364 
/ARGS$ 32-28 3¢-284 38-39 38-398 


BCHKM 33-11 33=22 40-34 
BCHKMX 40-6 40-9 40-13 40-16 





BUFCNT 34-43" 35-9 35-25 38-8 
BUFSIZ 22-15 22-20 23-684 


CLRBUF 22-254 22-27 


CMPSIZ 38-21 41-284 
COMPAR 4-94 38-36 


CURBUF 35-5* 35-7 35-20" 3 
CURPAT 35-4* 55-15 35-17" 3 


DATBUF 34-39* 37-17 37-41 38-16 





40-45 40-454 


40-26 40-36 40-478 


41-164 


37-32 41-178 
41-184 


38-25 41-194 


SEQ 0073 


—_--- --- --—- ----- - - SESS 


| J 
| UDAT1 UNIBUS ADDRESSING MACRO X046.00 9=JUL=81 17:25:16 PAGE S=2 SEQ 0074 
| CROSS REFERENCE TABLE (CREF vO1-05 ) 


ERRMES 6-148 29-37 
ERRN 32-34 32-28 32-28 32-28 32-284 38-39 38-39 38-39 38-39% 40-45 40-45 40-45 40-454 


FMEMFL 32-134 32-16 


FRADR 40-7* 41-84 
FRADRH 40-3* 41-98 


lad 
FREE 34-18 34-20 37-34 38-7 42-34 


FWADR 32-11 32-20 33-8 33-15 34-21 40-18 40-28 40-38 40-45 40-45 41-34 
FWADRH 32-21 33-4 33-19 34-22 40-19 40-29 40-42 40-45 40-45 41-44 


GRPOFF 5-384 
HBHINB 5-564 
HBL ONB 5-574 
HD.BAD 3-554 
HD.DBN 3-584 
HD.LBN 3-524 
HD.PRV 3-564 
HD .RBN 3-534 
HD.REV 3-544 
HD . XBN 3-574 
HDRPRE 5-344 
HEADER 5-624 
HIBYTE 5-544 
HICYL 5-244 
HIDBN 5-304 
HILBN 5-2 


64 
HIMEM 3-94 7-11 


#1 XBN 5-27# 
HOSTRO 22-24 29-38 32-9 36-2 





UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE S=3 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


HRDREV 5-134 
IN.01 23-39 


394 32-10 
IN.O2 23-404 
N.03 23-4614 
N. 23-424 
IN.05 23-454 
IN. 23-444 
IN.O7 23-454 
IN. 23-464 
IN.09 23-474 
IN.10 23-484 
IN.11 23-494 
IN.12 23-504 
IN.13 23-514 
IN.14 23-524 
IN.15 23-534 
IN.16 23-544 
IN.17 23-558 
IN.18 23-564 
IN.19 23-574 
IN.20 23-584 
IN.21 23-598 
IN.22 23-604 
IN.23 23-614 


IN.RQ 22-19 23-38% 23-68 


24-23 32-78 
~64 


LOW 

LRADR 40-14 41-104 

LRADRH 40-10 41-114 

LUNIT 29-20 29-444 

LWADR 32-32 34-33 41-54 
LWADRH 32-34 34-30 41-64 


MRD 4-17# 22-16 
JMREAD 25-10 32-22 40-24 40-34 





0 EOE 


3a Geng wege y someeet> “ene eacOnE ue Gr are 
| 


UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE S=4 SEQ 0076 
| CROSS REFERENCE TABLE (CREF VO1-05 ) 


iMS3 32-28 42-154 
MS6 38-39 42-318 
MS7 40-45 42-338 
22-21 
MLRITE 26-108 40-21 40-31 


OUT.01 22-22 22-23 23-68 29-13 


OUT.RQ 22-13% 22-14 23-54 
OV... 2-38 2-38 2-38H# = =42-4 42-4 42-4 42-448 42-39 42-394 


OV... 2-38 2-384 842-4 42-44 42-39 42-394 
OVL.MN 2-38 2-38 42-4 42-4 42-44 
OVL.MS 42-39 42-39 42-398 


OVSTRT 3-1 

PATO 37-13 38-29 39-34 
PATI 39-84 

PAT2 39-134 


PRMS 32-28 32-28 32-28 32-28 32-28 32-28 32-28 32-28 3 
38-39 38-39 38-39 38-39 38-39 38-39 38-39 38-394 4 
40-45 40-45 40-45 40-45 40-454 


-28 32-28 32-284 38-39 38-39 38-39 
45 40-45 40-45 40-45 40-45 40-45 


8 
UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=-JUL-81 11:25:16 PAGE S=5 SEQ 0077 
CROSS REFERENCE TABLE (CREF v01-05 ) 


PTYPES 32-28 32-28 32-28 32-28 32-28 32-28 32-28 32-28 32-284 32-284 32-284 32-284 40-45 40-45 
tb-ake Rtg 40-45 40-45 40-45 40-45 40-45 40-45 40-45 40-45 40-454 40-454 40-454 40-454 


RCLB 8-234 
RCONT 3-414 
RCTCPS 5-84 
RCTCSZ 5-40# 
RCV 4-84 24-30 


READ 35-11 35-22 38-74 

REGS$ 32-28 32-28 32-28 32-28 32-28 32-284 38-39 38-394 40-45 40-45 40-45 40-45 40-45 40-45 
40-45 40-45 40-45 40-45 40-45 40-454 40-454 40-454 
40-45 40-45 40-45 40-454 40-454 


RERROR 29-7# 32-28 38-39 40-45 


S.TRKL 7-584 7-59 
SAVREG 29-46# 40-45 


40-45* 





-——_—— 


| UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=-JUL-81 11:25:16 PAGE S-6 
CROSS REFERENCE TABLE (CREF VvO1-05 ) 


SDILTO 


24-464 
24-454 


24-18 


37-18 37-40 38-15 38-23 41-204 
22-18 
29-408 


30-54 

32-84 

21-18 21-224 
21-14 21-20 
21-174 

21-9 


32-8 


33-16" 40-7 40-14" 40-22 40-32 4 
33-21% 60-3 40-10" 40-23 40-33 4 
24-254 

24-284 = 24-38 

24-414 

24-36 24-40 24-428 


SEQ 0078 


SEQ 0079 


UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 11:25:16 PAGE S-7 
CROSS REFERENCE TABLE (CREF v01-05 ) 


TALKER 24-154 


i 
w 
™N 


25-15 





UDAT1 UNIBUS ADDRESSING MACRO X04.00 9=JUL=81 17:25:16 PAGE S-8 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


WCHKAL 8-394 
WCONT 3-394 


WREAL 3-434 
WRITE 35-6 35-21 37-98 
WRONG 5-654 


21-11 
XOR 27-10% 33-9 33-20 40-40 40-44 © 





SEQ 0080 


mecca a ee 


| 


! 
} 


/UDAT1 UNIBUS ADDRESSING MACRO X04.00 9-JUL-81 11:25:16 PAGE M=1 


| CROSS REFERENCE TABLE (CREF v01-05 ) 


| 


UDA 


4 sh th th he ht 
Ww 
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Sve vetyr> 
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32-28 38-39 40-45 
32-28 38-39 40-45 


2-384 2-384 42-4 42-44 42-39 
32-28 32-28 32-28 32-28 40-45 40-45 40-45 
21-22 22-28 24-42 go> ir 26-17 27-15 29-39 


40-45 


21-7 22-12 24-15 25-10 26-10 27-10 29-7 29-9 


DISK RESIDENT MACRO X04.00 9-JUL-81 11:39:12 


~~ oe oo) or ot oe 





T2 
TABLE OF CONTENTS 


UDA DM PROGRAM PARAMETERS 

TEST 4 SPECIFIC INFORMATION 

MACRO DEFINITIONS 

START OF TEST CODE 

RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 


HOSTRQ = HOST REQUEST - REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


DISK DRIVE SEQUENCER 

INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
ECHO DATA TO DRIVE 

GET STATUS COMMAND 

GET DRIVE CHARACTERISTICS 

CHECK WHICH COPD HAS BEEN GIVEN 

MEMORY WRITE 

MEMORY READ 


DIAGNOSE 

DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 

DIAGNOSE/DO A DRIVE CLEAR 

DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE yt DOWNLINE LOAD 
DIAGNOSE/REPORT ERROR ~~ NO DOWNLINE LOAD PROGR 

DIAGNOSE/GET EXTENDED STATUS 

DIAGNOSE/SET UP RESPONSE TO HOST AND coud 

TEST 2 SPECIFIC ROUTINES 


40-45 


40-45 


SEQ 0081 


- 


zc 


e READ MEMORY SUBROUTINE 
48- 1 WRITE MEMORY SUBROUTINE 
49-1 CONVERT MEMORY == SKEWED BY BYTE 
| 50-1 GET BYTE COUNT 
1 TYPE WHAT KIND OF RECEIVE ERROR 
1 GET UNITS FROM HOST 
1 GET STATUS SUBROUTINE 
y) 1 CLEAR DRIVE SUBROUTINE 
ma «4 DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 


zc 


| UDAT2 DISK RESIDENT MACRO x04.00 9=JUL=81 11:39:12 PAGE 2 SEQ 0082 
| DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION 
i -TITLE UDAT2 DISK RESIDENT 
| 
rae. : 
5 : COPYRIGHT (C) 1981 
| § ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
I Py 
| 8 ; 
9 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
10 ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
1 ; OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
12 ; COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
13 : ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
14 : HO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
13 ; THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 
17 ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
18 ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
ih ; EQUIPMENT CORPORATION. 
uF > DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
22 ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
24 : 
oe ; 
26 ; 
2? ; 
28 ; 
29 i 
31 
32 “THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 
33 7USING. A COMMAND LINE SIMILAR T 
35 : ; UDAT2.BIN,UDAT2/C=C1,2JDMACRO,UDAT2T ,UDATP,,UDAT2M, UDATR ,UDAT2S 
37 000000 TEST4 = 0 "; THIS IS NOT TEST4 
38 000000 -ENABL ABS _ 
39 000000 DMCODE UDAT2,0,714,3,0 


-———— - - a - — — 


“par? DISK RESIDENT MACRO x04.00 9=JUL=81 11:39:12 PAGE 3 SEQ 0083 
| UDA DM PROGRAM PARAMETERS 


: .SBTTL UDA DM PROGRAM PARAMETERS 
3 _LIST MEB, TOC 
| 3 ; EQUATES 
| . : HIGHEST USABLE LOCATION OF UDA MEMORY + 1 
| 9 010000 HIMEM = 10000 : HIGH MEMORY+1 
| 10 007774 OVSTRT = 7774 : OVERLAY ADDRESS LOCATION 
| 12 : 
13 : OFFSETS FOR FORMAT TRACK TABLE 
4 ; 
15 000000 FT.RUF = 0. :BUFFER POINTER OFFSET 
16 000001 FT.HI = # THI ORDER HEADER OFFSET 
17. 000002 FT.LOW = 2. ‘LOW ORDER HEADER OFFSET 
19 : 
20 : : OFFSETS FOR FORMAT TRACK BUFFER 
a 000000 FR.DAT = 0. sFIRST DATA wORD OFFSET 
33 600400 FR.EDC = 256. ZEDC WORD OFFSET 
25 : 
6 : OFFSETS FOR READ/WRITE I/O CHAIN TABLES 
28 0000 RW.STAT = 0. :STATUS AND NEXT BUFFER POINTER OFFSET 
29 000001 RW.BUF = .. =POINTER TO DATA BUFFER 
30 000002 RW.LOW = 2. ‘HI ORDER EXPECTED HEADER 
31 000003 RwW.HI = 3, “LOW ORDER EXPECTED HEADER 
32 000004 RW.CMD = ‘, :SDI COMMAND AND HEAD ADDRESS 
33 000005 RW.SDI = . =DUMMY SDI CONTROL BLOCK POINTER 
34 000006 RW.ANG = é. ‘THETA FROM INDEX 
36 : CONSTANTS FOR READ AND WRITE XFC'S 
38 140000 WSTOP = 140000 : LAST ENTRY IN CHAIN FOR WRITE 
39 040000 WCONT = 40000 : URITE CONT INUE 
40 100000 RSTOP = 100000 > LAST ENTRY IN CHAIN FOR READ 
41 000000 RCONT = > READ CONTINUE 
42 100000 FSTOP. = 100000 > LAST ENTRY IN CHAIN FOR FORMAT 
43 122400 WREAL = 122400 + WRITE REAL TIME ECOMMAND 
44 013400 RREAL = 13400 > READ REAL TIME COMMAND 
45 010000 ECCFLG = 10000 : ECC ERROR IN BUFFER BIT 
46 100000 EOC = 100000 * END OF CHAIN 
47 04000 BUFFLG = 40000 : BUFFER FULL OR EMPTY FLAG 
49 : 
50 : : HEADER CODES 
S2 000000 HD.LBN = 000000 :GOOD LBN 
53 060000 HD.RBN = 960000 ‘GOOD RBN, PERHAPS UNUSED 
54 030000 HD.REV = 030000 SREVECTORED LBN 
55 110000 HD.BAD = 110000 ‘BAD BLOCK 
56 050000 HD.PRV = 050000 “PRIMARY REVECTORED BLOCK 
57 120000 HD.XBN = 


120000 :XBN BLOCK 





cc + + 
| 
| 





UDAT2 | DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 3-1 SEQ 0084 

UDA DM PROGRAM PARAMETERS 

rs 140000 HD.DBN = 140000 ;DBN BLOCK 

S| OFFSETS FOR DATA BUFFERS 

62 000000 BF.DAT = 0. SDATA 

| 63 000400 BF.EDC = 256. ;ERROR DETECTION CODE 

| Ye 000401 BF.ECC = 257. LAST 17 ECC RESIDUES 
& : BUFFER AND READ/WRITE CHAIN LINK SIZES 

| 68 000401 WBUFLN = 257. : WRITE BUFFER SIZE 
69 000415 RBUFLN = WBUFLN#12. ; READ BUFFER SIZE 
70 000007 LINKLN = Fa ; LINK SIZE 


—- ——— --—-- - - 7 - _ 


ware DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 4 SEQ 0085 
UDA DM PROGRAM PARAMETERS 


| 


1 ; KFC DEFINITION EQUATES 
3 000000 BREAK = 0. BREAKPOINT XFC CODE 
i 000001 FORMAT = 1: [FORMAT TRACK XFC CODE 
| 5 2 KREAD = 2. “READ N SECTORS XFC CODE 
| 6 000003 KWRITE = 3. “WRITE N SECTORS XFC CODE 
? 000004 SEND = 4: =SEND SDI COMMAND XFC CODE 
| - 000005 RCV - 5. ;RECEIVE SDI MESSAGE XFC CODE 
| 9 000006 COMPARE = 6: “COMPARE DATA PATTERN TO BUFFER 
| 10 000007 STATUS = ?. TRETURN DRIVE STATUS XFC CODE 
| 1 000010 ECHO. = 8. [ECHO DATA TO DRIVE XFC CODE 
| 12 000011 DINIT = 9. DRIVE INITIALIZE XFC CODE 
Pees 000012 WAITSI. = 10. WAIT FOR SECTOR OR INDEX PULSE 
| 14 13 UREAD = 1. [READ UNIBUS MEMORY XFC CODE 
15 000014 UWRITE = 12. <WRITE UNIBUS MEMORY XFC CODE 
16 000015 ECC = 13, :DO ECC ON BUFFER XFC CODE 
1? 000016 MRD = 14. ‘TSEND BUFFER TO MAINTENANCE READ COMMAND 
| 1B 000017 MWR = 15. GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 CVT = 16. “CONVERT TO PHYSICAL ADDRESS XFC CODE 
20 000021 EXIT == 17. TERMINATE DM PROGRAM XFC CODE 
: GET STATUS OFFSETS 
= 0. UNIT NUMBER 
= 0: = SUBUNIT MASK 
= 1: :STATUS BYTE 
= 1: =MODE BYTE 
- 2. ERROR BYTE 
= 2. CONTROLLER BYTE 
2 2. :¢ BITS 
: 3: “RETRY COUNT/FAILURE CODE 
STATUS BIT DEFINITIONS 
: 200 ; ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
36 = 100 : READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
= 40 = DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
38 = 20 > SPINDLE READY (SET IF SPINDLE READY) 
- 2 > PORT SWITCH (SET IF PORT SWITCH IN) 
2 1 > RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
: 200 FATAL ERROR (SET IF FATAL ERROR OCCURRED) 
- 100 > RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
: 40 > PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
: 20 : INITIALIZATION FAILURE (SET IF INIT FAILED) 
: 10 : WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
: 2000 : FORMATTING (SET IF FORMATTING ENABLED) 
= 1000 : DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 


Ea 
=) 
Oo 
. 


; SECTOR SIZE (SET FOR 576 BYTE SECTORS) 
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177400 
000377 
007777 
170377 





UDAT2 DISK RESIDENT MACRO K04.00 9=JUL=81 11:39:12 PAGE 5 SEQ 0086 
UDA DM PROGRAM PARAMETERS 


GET COMMON CHARACTERISTICS OFFSETS 


;SHORT TIMEOUT <3:0> 

SDI VERSION <7:4> 

; TRANSFER RATE <15:0> 

[LONG TIMEOUT <3:0> 

SRETRIES <7:4> 

;F/RCT COPIES <11:8> 

SECTOR SIZE <15:15> 

ERROR RETRY LEVELS <7:0> 

ECC THRESHOLD <15:8> 

sMICROCODE REVISION NUMBER <7:0> 
HARDWARE REVISION NUMBER <i5:8> 
UNIQUE DRIVE ID <47:0> 

DRIVE TYPE IDENTIFIER <7:0> 
SREVS/SECOND “15:8> 


GET SUBUNIT CHARACTERISTICS OFFSETS 
OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 


;OFFSET TQ PUT SUBUNIT AFTER COMMON; 
[NUMBER OF CYLINDERS IN LBN AREA <31:0> 
sHI ORDER CYLINDER BITS <15:12> 

* GROUPS PER CYLINDER <7:0> 

sHI STARTING LBN <11:8> 

zHI STARTING XBN <15:12> 

: TRACKS PER GROUP <7:0> 

7HI STARTING RBN <11:8> 

;HI STARTING DBN <15:12> 

;RBNS PER TRACK <6:0> 

:REMOVABLE MEDIA <7:7> 1=REMOVEABLE 
;DATA PREAMBLE SIZE IN WORDS <7:0> 
sHEADER PREAMBLE SIZE IN WORDS <15:8> 
sMEDIA TYPE <31:0> 

sFCT COPY SIZE <15:0> 

:LBNS PER TRACK <7:0> 

ng OFFSET AREA 31:09 


tnd hn on tt i th nh tt 
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:CYLS IN DBN AREA <15: :8> 


S 
— 
“o 
a 
oO 
C0 
m 
“nn 


F ;UNIT ZERO CODE 
a , ;UNIT ONE CODE 
4. UNIT TWO CODE 
8. UNIT THREE CODE 


BIT MASK DEFINITIONS 


= 177400 7HIGH BYTE MASK 

= 000377 ;LOW BYTE MASK 

= 7777 sH] BYTE, HI NIBBLE MASK 
: 170377 HI BYTE, LO NIBBLE MASK 


—- 
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| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 5-1 SEQ 0087 
|UDA DM PROGRAM PARAMETERS 
| 58 177617 LBHINB = 177417 :LO BYTE, HI NIBBLE MASK 
9 177760 LBLONB = 177760 [LO BYTE. LO NIBBLE MASK 
61 000001 TIMEOUT = 1 :DRIVE TIMEOUT CODE 
62 000002 HEADER = 2 ‘HEADER COMPARE FAILURE CODE 
63 000004 REVECT = 4 “REVECTOR NEEDED CODE 
65 000002 WRONG = 2 :FIRST WORD NOT START FRAME CODE 
66 000004 FRAME = 4 “FRAMING ERROR CODE 
67 000010 CHECK = é = CHECKSUM ERROR CODE 
69 000001 TOOBIG = ‘ NUMBER OF WORDS EXCEEDS 7064 
70 000002 LOW = 2. ;DM BUFFER ADDRESS IS LESS THAN 714 
22 ; : BIT MASK 
74 000001 LARGE = ‘ :BLOCK NUMBER TOO LARGE 
75 000002 OVERFL = 2. ‘SECTOR NUMBER LARGER THAN 16 BITS 
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UDA DM PROGRAM PARAMETERS 


;MAINTANENCE READ/WRITE REQUEST NUMBERS 
3 000000 TIMSIZ = 0. :GET FREE MEMORY PARAMETERS 
S 001 T2DLL_s = 1. [DOWNLINE LOAD DRIVE DIAGNOSTIC 
5 000002 T2CMD == 2. :MANUAL INTERVENTION TEST 2 PROTOCOL 
1 6 0 3 T4MPRM = 3. [GET MASTER PARAMETERS FROM SW QUESTIONS 
7 000004 T4UPRM = 4. ;GET UNIT PARAMETERS FROM HW QUESTIONS 
8 000005 T4BB1 = De ;GET BAD BLOCKS (1 THRU 14) 
9 00006 T4BB2.- = 6. GET REST OF BAD BLOCKS (15 AND 16) 
10 000007 T4SOFT = fs ;ADD TO SOFT ERROR AND ECC COUNT 
11 000010 T4SEEK = 8. sADD 1 TO SEEK COUNT 
12 11 T4MXFR = 9. ;ADD TO MEGABITS READ AND WRITTEN 
13 000012 UTOTST = 10. ;GET UNITS TO TEST 
14 000013 ERRMES = 11. :PRINT ERROR MESSAGE 
15 14 ERRMC = 12. TEST 4 ERROR REPORTING 
16 000015 MESSAG = 13. : INFORMATION MESSAGE 
4 000016 DONE = 14 ;MARK DM PROGRAM AS NO LONGER RUNNING 
4 : OTHER BIT DEFINITIIONS 
21 000001 RCVRDY = 1 ; RECIEVER READY 7 = READY 
000002 ATIN a 2 ; ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
23 004 RCVERR = 4 ; RECIEVER ERROR 
24 000100 AVAIL = 100 ; AVAILABLE 1 = AVAILABLE 
25 000400 XMTERR = 00 : TRANSMIT ERROR 
3 100000 RWRDY = 100000 ; IF SET. UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 
a4 : SDI COMMANDS AND RESPONSES 
30 000204 DISCON = 204 ; DISCONNECT DRIVE 
31 006 ERECOV = 6 ; ERROR RECOVERY 
32 000201 CHGMOD = 201 ; CHANGE MODE . 
33 213 DRVONL = 213 ; DRIVE ONLINE 
000014 DRVRUN = 14 ; DRIVE RUN 
35 000005 DRVCLR = 5 ; DRIVE CLEAR OPCODE 
3 000207 GETCHR = 207 ; GET CHARACTERISTICS 
37 000210 GETSUB = 210 ; GET SUBUNIT CHARACTERISTICS 
38 000011 GETSTA = 11 ; GET STATUS 
39 000216 IRECLB = 216 ; RECALIBRATE 
40 12 INSEEK = 12 ; INITIATE SEEK 
41 00176 COMPLT = 176 ; SUCCESSFUL COMPLETION 
42 000175 UNSSUC = 175 ; UNSUCCESSFUL COMPLETION 
43 170 CHRRES = 170 ; GT ene ect ek ye RESPONSE 
44 000167 ‘SBCRES = 167 ; GET UNIT CHARACTERISTICS RESPONSE 
45 000366 STSRES = 366 ; GET STATUS RESPONSE 
ry 000350 ECHOC = 350 ; DIAGNOSTIC ECHO COMMAND AND RESPONSE 
m1 : ERROR CODES 
50 000000 FILSYS = ; SYSTEM FATAL ERROR 
51 000400 FILDEV = 400 ; DEVICE FATAL 
52 001000 ERHARD = 1000 ; HARD ERROR 
53 001400 ERSOFT = 1400 ; SOFT ERROR 
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TEST 4 SPECIFIC INFORMATION 
TEST 4 SPECIFIC INFORMATION 


amAT oy. 00 9=JUL=81 11:39:12 PAGE 7 


CONSTANTS 


ieuu 


© 
2 


255. 
- 
LGRP+1 


HiMEM-TLEN.U 
UNIT PARAMETER OFFSETS 


U.LCYL+2 


PARAMETER OFFSET 


0. 
S.PARM+1 
S.SDCL+2 
S.PAT+1 
S.TRKL+1 
S.SCHR+1 
S.MEGR+1 


Be Be Be Be 


SEQ 0089 


NUMBER OF WORDS IN SECTOR TO FIL: 
INITIAL EDC VALUE 

UNIT PARAMETER LENGTH 
LOCATION OF FIRST UNIT PARAMETER BLOCK 


POINTER TO NEXT UNIT (RING LINKED LIST) 
4 WORDS OF SUBUNIT PARAMETER POINTERS 
AREA TO STORE VARIOUS TIMEOUT VALUES 


; READ/WRITE TIMEOUT AREA 


NUMBER OF SEEKS ISSUED 


; NEXT FUNCTION ADDRESS (FOR DEFERRED CALLS) 
; PATTERN NUMBER TO WRITE 

; CURRENT COUNT OF T/G LOOPS 

; POINTER TO CURRENT TRACK OR GROUP 

; TRACK COUNT FOR GROUP OPERATIONS 


NUMBER OF SECTORS R/W a 5 ® TRY 

NUMBER OF SECTORS TO BE R 

NUMBER OF SECTORS TO BE R/W THIS OP 
COUNT OF SECTORS R/W SO FAR 

UNIT MASK FOR XFC CALLS (0001 = 1000) 
WRITE PROTECTION STATUS 

CURRENT ERROR RECOVERY LEVEL 

MAXIMUM NUMBER OF READ RETRIES 

MAXIMUM NUMBER OF ERROR RECOVERY LEVELS 


; ECC THRESHOLD 
; a By SHORT TIMEOUT 


ONG TIMEOUT 
MASK” TO WRITE PROTECT READ-ONLY DRIVES 
UNIT PARAMETER WORD 

SUBUNIT OFFSET (0 = 3) 


; MASTER L/DBN 
; a oy L/DBN FOR START OF CHAIN 


O BE READ/WRITTEN IF LBN REVECTORED 


; 4 WORDS THAT HOLD THE SUBUNIT LOGICAL NUMBERS 
; CURRENT CYLINDER 


; LAST CYLINDER SEEKED TO 


LAST GROUP SEEKED TO 


SUBUNIT PARAMETER 


WORD 
; STARTING DIAGNOSTIC CYLINDER 
; PATTERN TO USE FOR og Le 
; NUMBER OF SECTORS IN ONE T 
; POINTER TO SUBUNIT CHARACTERISTICS 
; SECTORS READ (UP TO 245) 
; SECTORS WRITTEN (UP TO 245) 
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TEST 4 SPECIFIC INFORMATION 

58 00001C S.BADP = S.MEGW+1 ; POINTER TO BAD BLOCK AREA 

Fe 000011 S.BESS = S .BADP+1 ; START OF BEGIN/END SETS 

61 : IF TRACK/GROUP LIMITS ARE CIVEN, THE SUBUNIT PARAMETERS HAVE THE 

<4 é FOLLOWING FIELDS ADDED TO THEM 

6 : 

64 000011 S.MCNT = S.BESS ; MAXIMUM TRACK/GROUP COUNT 

65 000013 S.1GOF = S.MCNT +2 3 ORIGINAL TRACK/GROUP OFFSET 

66 000015 S.1GSS = S.1GOF +2 ; START OF TRACK/GROUP SETS 


goapaeearrancannsnesnntresienataeteiniesitiei nest ects siemen tare 
B 8 
| UDAT2 DISK RESIDENT MACRO K04.00 9=JUL=-81 11:39:12 PAGE 8 SEQ 0091 
he 4 SPECIFIC INFORMATION 
1 ; 
| 3 : DUMMY SDI CONTROL BLOCK OFFSETS 
4 000001 D.LIMT = 1 : DUMMY SDI SEARCH LIMIT 
: 000002 D.SCHR = 2 : DUMMY POINTER TO SUBUNIT CHAR-5 
7 : 
$ ; UNIT PARAMETER BITS (U.PARM(RS)) 
10 100000 DROP = 100000 ; DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 
11 040000 INITW = 40000 : INITIAL WRITE (SET IF INITIAL WRITE IN PROG) 
12 020000 RESEEK = 20000 : IF 1, INDICATES THAT A SEEK IS NECESSARY 
13 10000 DIREC = 10000 : DIRECTION (SET IF SEQUENTIAL ACCESSES DECREASING) 
14 004000 NEWSUB = 4000 ; SET IF SEQUENTIAL SEEKS MOVED TO NEW SUBUNIT 
15 002000 SEKINP = 2000 ; SEEK IN PROGRESS - SET IF TRUE 
16 001000 FTIME = 1000 ; FIRST TIME FLAG - SET FOR INI. CODE 
17 000400 REVEC = 400 ; REVECTOR BIT (SET IF BLOCK REVECTORED) 
18 000200 = 200 : SEE IF WORKING ON RBN 
19 000100 REDWRT = 100 ; REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) 
20 000020 DATERR = 20° : DATA ERROR IF SET 
$) 000004 RETRY = 4 : IF CLEAR, START RETRIES AT ZERO 
4 ; SUBUNIT PARAMETER BITS (S.PARM(R4)) 
25 020000 DCYLS = 20000 : DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 
26 010000 ECCCHK = 10000 : 1 IF ECC CORRECTION ALLOWED MASTER BITS 
27 004000 RONLY = 4000 ; READ ONLY (SET IF READ ONLY) 
28 002000 WONLY = 2000 ; WRITE ONLY (SET IF WRITE ONLY) 
29 001000 RTRIES = 1000 : 1 IF RETRIES ALLOWED 
30 000200 ONLYCL = 200 ; SET IF ONLY CYLINDERS SPECIFIED 
31 ; USED DURING SETUP ONLY 
32 000100 SEQSEK = 100 : SEQUENTIAL SEEK (START UP TESTING ONLY) 
33 000040 BEUSED = 40 ; BEGIN/END SETS (USED IF SET) 
34 000020 TRACKS = 20 ; TRACKS OR GROUPS (TRACK IF SET) 
35 000010 WCHECK = 10 ; WRITE CHECK BIT (CIF SET, WRITE CHECK WILL BE DONE) 
%6 : widest IS ALSO USED FOR THE UNIT wane VERS 
37 000004 WCHKAL = 4 SET ait WRITE CHECK ALWAYS TO BE DONE 
38 000002 DATCMP = 2 DATA COMPARE (SET IF DATA COMPARE TO BE DONE) 
39 : DATCMP IS ALSO USED FOR THE UNIT PARAMETERS 
40 000001 DCMPAL = 1 SET IF DATA COMPARE ALWAYS TO BE DONE 
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MACRO DEFINITIONS . 

j .SBTTL MACRO DEFINITIONS 

3 : DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 

5 : .MACRO DIAG$$ 

6 TST $$D IAG+$D AGS 

? BEQ +6 

8 MOV #60000,RO 

9 MOV RO, a$$ 1 AG+$D AGS 

10 BR + 

11 $DIAG$ = $DIAG$ + 1 

12 .ENDM 
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MACRO DEFINITION 


— 


—"OVDONAWESWN— 


MESSAGE CONTROL TABLE MACRO 
-MACRO MSG CMDBUF ,CMDSZ,RPLBUF ,RPLSZ,SUCCOM 


«WORD CMDBUF sADDRESS OF COMMAND 

-WORD CMDSZ :SIZE_OF ge IN BYTES 
«WORD RPLBUF SADDRESS OF REPL 

«WORD RPLSZ sSIZE OF REPLY IN WORDS 

.I1F NB NUMBER 

crs SUC COM : SUCCESSFUL COMPLETION CODE 


ENDM 


SEQ 0093 


[ 
| 
| 
| 
| 
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/ MACRO DEFINITIONS 


SEQ 0094 


whe 
LAB.. 


Bcc 
BR 


LAB. . 


-MACRO BCS 
. ENDM 


UMS 


| 
| 
| 
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| MACRO DEFINITIONS 
i : PUSH REGISTER MACRO 
| 3 : -MACRO PUSH R9 
| Ps .IRP X,<R9> 
6 .ENDR 
4 ~ENDM 
< eee POP REGISTER MACRO 
11 : .MACRO POP R9 
i$ .IRP X,<R9> 
14 .ENDR 
15 /ENDM 


MOV X,=(SP) 


MOV (SP)+,x 


SEQ 0095 


EO ee 


ee --——_ 
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MACRO DEF INI TIONS 


;ERROR MACROS 
; THESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM. 
THE MACRO NAMES ARE : ERRSF, ERRDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
[BEING ~ > recht TO REPORT THE ERROR. 
+ ARGUMENTS (MS$) piaaete a ee 
(P1$) PARAMETE 
(P2$) PARAMETER Hl 
(P3$) PARAMETER #3 
PARAMETER #4 
(P5$) PARAMETER #5 
(P6$) PARAMETER #6 
(P7$) PARAMETER #7 
(P8$) PARAMETER #8 


THE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE OVERLAY ‘™S'' IMMEDIATELY 
[FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. #MS1, aR2). 

S10 PRINT. MUST CONTAIN AN ASCII FORMAT STRING 10 DETERMINE THE MESSAGE 
:THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 

; THERE !S DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
[MESSAGE. THESE PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
;USING ANY ADDRESSING MODE DESIRED. 

jALL_ REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT ARGUMENTS 
CONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 
[ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


pie oh ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
-NARG ARGS$ 


-RADIX 10 
ERRORS 0.MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 


EWN OODNAUAWR— 
OCONOUIS Wh 
D 
~ 
” 
= 


-MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8S 


34 “NARG ARGS$ 

35 "RADIX 10 

%6 ERRORS 1,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8S, \ERRN 

37 | ENDM 

39 -MACRO ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
NL 

41 “NARG ARGSS 

42 -RADIX 10 

43 ERRORS 2,MS$,P1$,P2$,P3$,P4$,P5$,P6$.P7$,P8S, \ERRN 
ob 

45 "ENDM 

47 .MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,PBS 

rk "RADIX 10 

50 | ERRORS 3 MS$.P1$.P28.P38,P4$,P5$.P6$,P7S,P8S. \ERAN 
~EN 


WWWWRo no nonononnonunony 3 2 
WH 20 OO0NAARWNHOUDWNAUM 
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7; THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 


ae ET$,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,ERRNS 


PRMS= ARGS$~1 
- IF LT,<PRMS> 
ERROR: sNOT ENOUGH ARGUMENTS IN ERROR CALL 


GE ,<PRMS-8.>,PARGS. P8$ 
GE ,<PRMS-7.>,PARGS. P7$ 
GE,<PRMS-6.>,PARGS. P6$ 
GE ,<PRMS-5.>,PARGS. P5$ 
GE ,<PRMS-4.>,PARGS. P4$ 
GE ,<PRMS-3.>,PARGS. P3$ 
GE,<PRMS-2.>,PARGS. P2$ 

-1.>,PARGS. P1$ 


be ae ae he a ht ts es 
ee ee is ne ne i 


RSTR$ \REGS$ 
NDC 


RADIX 10 
~LIST 


-NLIST 
«RADIX 8 
-LIST 


CALL RERROR zERROR # ERRNS*. 


.WORD <PRMS*2000>+<E T$*400>+ERRN 
«WORD MS$ 


»NLIST 
ERRN=ERRN+1 
ENDM 


-MACRO PARGS. ,ADDR$ 


-NTYPE PTYPE$,ADDR$ 
IF EQ,<PTYPE$&70> 
-IIF EQ,<PTYPE$&7>-REGS$.RSTRE \REGS$ 


“LIST 
MOV ADDR$,-(SP) 
:NUIST 
"LIF EQ, <PTYPE$&7>=1 ;PICK A REGISTER TO USE 
REGUS=2 [SELECT R2 IF R1 IS USED IN PARAMETER FETCH 
“RESUS! ZOTHERWISE USE R1 
“IF NE, <REGU$-REGS$> :IF REGISTER NOT ALREADY SAVED 
.IF GE,REGS$ 
eRsiRs \REGS$ :RESTORE CURRENT SAVED REGISTER 
__sauns \REGUS :THEN SAVE SELECTED REGISTER 
ms GETPS \REGS$, ADDR 
/ENDM 


= 


Se OO ee _——— 


PS Se 
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/MACRO DEFINITIONS 


1 «MACRO SAVR$ REGN 
2 -LIST 
3 
4 «NLIST 
| 5 REGS$=REGN 
i $ . DM 
| 8 -MACRO RSTR$ REGN 
| 9 «LIST 
10 
11 eNLIST 
12 REGS$=-1 
3 -ENDM 
15 «MACRO GETP$ REGN,ADDR$ 
16 ASST 
17 
18 
19 «NLIST 
20 - FNDM 





MOV R'REGN, SAVREG 


MOV SAVREG,R'REGN 


MOV ADDR$,R'REGN 
MOV R'REGN,=(SP) 


SEQ 0098 
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MACRO DEFINITIONS 


| 
| 1 : 
é ; PRIMARY ERROR REPORTING (TEST 4) 
4 -MACRO SOFTER NUM,ARGS 
5 ERROR #ERSOFT,NUM,<ARGS> 
6 MOV HERRMES ,R2 
? MOV R2,0UT.RQ 
| 8 .ENDM 
10 -MACRO REPSFT SFTFLG,ECCFG 
11 IF NB, SFTFLG 
12 Mov #1,0UT.02 
13 . ENDC 
14 IF NB,ECCFG 
15 ' MOV #1,0UT.03 
16  ENDC 
17 PUSH ~— RO 
18 MOV #U. SNUM,RO 
19 ADD R5,RO 
20 ADD U. SUBU(RS) ,RO 
21 MOV (RO) ,OUT.01 
22 MOV #T4SOFT,RO 
23 CALL §_HOSTRQ 
24 POP RO 
25 . ENDM 
26 
27 -MACRO HARDER NUM,ARGS 
ERROR #ERHARD,NUM,<ARGS> 
MOV HERRMC ,R2 
MOV R2,0UT.RQ 
.ENDM 
-MACRO DEVFTL NUM,ARGS 
ERROR #FTLDEV,NUM,<ARGS> 
MOV HERRMC ,R2 
MOV R2,0UT.RQ 


-MACRO SYSFTL NUM,ARGS 
ERROR #FTLSYS,NUM,<ARGS> 
MOV #ERRMC ,R2 


MOV R2,0UT.ROQ 
.ENDM 
«MACRO ERROR  TYPE,NUM,ARGS 
«RADIX 10 
NUMPTR = 5 
MOVMSG #ER'NUM,4 
IF NB, <ARGS> 
. IRP X, <ARGS> 
MOVMSG X,\NUMPTR 
NUMPTR = NUMPTR + 1 
-ENDR 
-ENDC 


MOV #NUM ,OUT.O02 
B1S TYPE ,OUT.02 
MOV a. ,OUT.01 





| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 

/ MACRO DEFINITIONS 

: 58 «RADIX 
59 .ENDM 

j 60 
61 -MACRO 
62 ~RADIX 
63 NUMPTR = 

| 64 .IRP 
65 MOVMSG 
66 NUMPTR = 
67 .ENDR 
68 .RADIX 
69 ~ENDM 
70 
71 .MACRO 
72 .RADIX 
73 . IRP 
74 MOVMSG 
75 NUMPTR = 
76 . .ENDR 
77 .RADIX 
78 .ENDM 
79 
80 -MACRO 
81 
82 IF 
83 
84 J1FF 
85 
86 .ENDC 
87 .ENDM 
88 
89 -MACRO 
91 NDERR 
92 .1FF 
93 NDERR 
54 .ENDC 
95 .ENDM 
97 .MACRO 
98 IF 
99 . 
100 IFF 
101 
102 .ENDC 
103 .ENDM 
104 : 
105 : MESSAGE 
106 Z 
107 .MACRO 
108 ~RADIX 
109 NUMPTR 
110 MOVMSG 
111 IF 
112 . IRP 
113 MOVMSG 
114 NUMPTR 





16-1 


aps STNUM,ARGS 
STNUM 
x, <ARGS> 


X, \NUMPTR 
NUMPTR + 1 


poem: ARGS 
X, <ARGS> 


X, \NUMPTR 
NUMPTR + 1 


MOVMSG ARG, INDX 
LT. INDX-10 


ag POS 


POS 
\NUMPTR 


NDERR POS 


NE ,POS 


REPORTING MACRO 
oe NUM ARGS 


MOV ARG,OUT.0° INDX 
MOV ARG,OUT. * INDX 


BIS #POS ,ERRPOS 
CLR ERRPOS | 


SEQ 0100 


SET THE POSITION 
CLEAR THE POSITION 


L 8 


| 
| 
| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81- 11:39:12 PAGE 16-2 SEQ 0101 4 
| MACRO DEFINITIONS ;o 
| | 
115 .ENDR 
116 ~ENDC i 
117 PUSH <RO,R1> 
11 MOV #U.SNUM,R1 i 
119 . ADD R5,R1 | 
120 ADD U. SUBU(RS) ,R1 
121 MOV (R1) ,OUT.01 
122. MOV #MESSAG,RO 
123 CALL HOSTRQ 
124 POP <R1,RO> 
125 ~RADIX 
126 .ENDM 
127 : 
128 2 
129 -MACRO MSSGE NUM ,ARGS 
130 ~RADIX 10 
131 NUMPTR = 
132 MOVMSG #'NUM,2 
133 ak? NB,<ARGS> 
134 . IRP x, <ARGS> 
135 MOVMSG X,\NUMPTR 
136 NUMPTR = NUMPTR + 1 
137 .ENDR 
.~ENDC 
PUSH <RO.R1> 
MOV #MESSAG,.RO 
CALL HOSTRQ 
POP <R1,RO> 
~RADIX 
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oe DEF INIT IONS 


| } ;RETURN DRIVE STATUS MACRO WITH ERROR REPORTING 
3 -MACRO DSTAT,LABS,E1,E2 
i “NLIST 
5 «NLIST MEB 
6 ~LIST ME 
7 LIST 
& CALL RDSTAT ; GET DRIVE STATUS 
9 BIT #10000,R1 ; SEE IF ANY ERRORS 
10 BEQ 2$ ; IF NO ERROR, BRANCH 
11 BIT #4000,R1 ; SEE IF XMIT ERROR 
12 Q 1$ ; IF SO, BRANCH 
13 ERRHRD £1 ; REPORT INVALID STATUS ERROR 
14 BR LABS ; BRANCH TO DONE 
15 1$: ERRHRD E2 ; REPORT XMIT ERROR 
16 BR LABS ; BRANCH TO DONE 
17 es: 
18 NLIST 
19 NLIST ME 
20 LIST MEB 
21 LIST 
22 ENDM 
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KOR THE CONTENTS OF TWO REGISTERS 
-MACRO RXOR REG1,REG2 
MOV (SP) 


REG2,- : 
BIC REG1,REG2 ; 
BIC (SP)+,REG1 ; 


; SAVE REGISTER REG2 


CLEAR CQORESPONDING BITS IN 


; CLEAR COORESPONDING BITS IN 
; OR WHAT'S LEFT 


RE 
RE 


G2 
G1 
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— DD 
—m 
=—Yy 
— 
iJ 
um 


: SDI INTERCHANGE WITH DRIVE WITH 
«MACRO TALKX  ERRLAB,E1,E2 


"NLIST MEB 
“LIST ME 


CALL TALKER 
R3 
12$ 
a 11$ 
ERRHRD £1;SEND COMMAND ERROR 
BR ERRLAB 
11$: ERRHRD E2;RECEIVE COMMAND ERROR 
BR ERRLAB 
12$: 
NLIST 
-NLIST ME 
-LIST MEB 
LIST 
ENDM 


MWOVONAUEWR—ODOONAOWEWR- GUO 
@ 
mn 
Oo 


NN 33 at 


SEQ 0104 


ERROR REPORTING 


INITIATE SDI INTERCHANGE 
SEE IF ERROR OCCURRED 

IF NOT, BRANCH 

IF SO, BRANCH 


UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 20 
START OF TEST CODE 


OWONAO NEW 


~SBTTL START OF TEST CODE 
3; THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 


000714 114007 CLR RO ; CHANGE TO BREAKPOINT FOR DEBUG 
INITIALIZE STACK 

000715 104206 001357 MOV #STACK,SP ;SET UP STACK POINTER 

000717 001360 BR START ; BRANCH OVER SUPPORT CODE 


SEQ 0105 


[— oe 
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| ROSTAT 


= GET DRIVE'S REAL TIME DRIVE STAT 


000720 


NOUS WIS 


000736 
17 000737 


000747 
23 000750 


100463 
100467 


104201 


104267 
104263 
000000 


000003 


014000 
000400 


010000 
000004 


014000 


SEQ 0106 


-SBTTL RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 


RDSTAT 


‘RETURN DRIVE STATUS 


;STATUS RETURNED IN DM REGISTER 1 


STATLP: 


STATOK: 


STATEX: 





PUSH 


RETURN 


<R3,RO> 


#3,R3 
STATUS 
#14000,R1 
AXMTERR,R1 
Snren 


R 

STATLP 
#10000,R1 
STATEX 
ARCVERR,R1 
STATEX 

R3 


STATLP 
#14000,R1 
<RO,R3> 


; SAVE R3 AND RO 


MOV R3,-(SP) 
MOV RO,=(SP) 
ALLOW Tees 3 ERRORS 
GET DRIVE'S STATUS 
CLEAR ERROR owas BITS 
CHECK XMIT ERRORS 
IF NO ERRORS, BRANCH 
DECREMENT TRANSMIT ERROR COUNT 
IF ERROR COUNT INCOMPLETE, BRANCH 
FLAG AS TRANSMIT ERROR 
BRANCH 


RECIEVER ERRORS 
IF VALID, BRANCH 
DECREMENT ERROR COUNT 
IF ERROR COUNT NON-ZERO, BRANCH 
FLAG AS INVALID STATUS ERROR 
RESTORE RO, R 

MOV (SP)+,RO 


MOV (SP)+,R3 
RETURN TO CALLING MODULE 


Po ee 
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foosteee = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
| 


1 .SBTTL HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
; 000751 HOSTRQ: 
4 SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
5 :CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
g FOR NEXT HOSTRQ CALL. 
x ; INPUTS: 
9 : RO = HOST REQUEST NUMBER 
9 ; OUT BUFFER LOADED WITH DATA 
12 000751 PUSH <RO,R1,R2> 
000751 100467 MOV RO,-(SP) 
000752 100461 MOV R1,-(SP) 
000753 100462 MOV R2,=(SP) 
13 000754 10407C 001006 MOV RO,OUT.ROQ STORE REQUEST NUMBER IN BUFFER 
14 000756 104207 001006 SNDAGN: MOV #OUT.ROQ,RO SEND BUFFER TO HOST 
15 000760 104201 000036 MOV #BUFSIZ,R1 
16 000762 060016 XFC MRD 
17 000763 115001 TST R1 CHECK FOR ERROR 
18 000764 050756 BNE SNDAGN : IF ERROR, TRY AGAIN 
19 000765 104207 001044 MOV #IN.RQ,RO ‘WAIT FOR RESPONSE FROM HOST 
29 000767 104201 000036 MOV #BUF SIZ, R1 
21 000771 060017 XFC Mw 
22 000772 104207 001007 MOV aout. 01,R0 CLEAR ARGUMENT WORDS IN BUFFER 
23 000774 104201 000012 MOV *our. 11-0UT.01,R1 
24 000776 114002 CLR R 
25 000777 100272 CLRBUF: MOV R2,(RO)+ 
26 001000 117401 DEC R1 
27 001001 030777 BPL CLRBUF 
28 001002 POP <R2,R1,RO0> 
001002 104262 MOV (SP)+,R2 
1003 104261 MOV (SP)+,R1 
001004 104267 MOV <SP)+,RO 
29 001005 000000 RETURN 


SEQ 0107 


| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 23 
~HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


: STORAGE AREA 
;OUT BUFFER =~ 


88 


ee a et ad a 
lelelelelelelalea) 
NOUESWI ON 


888888888838 


1020 


SODNAUEWN—O0WNAUE WR 


CA) ee ce ed eed ed wed aed eed od 


57 001067 


000000 


000000 
000000 
000 


000000 
000000 


OUT.RQ: . 


FOR MAINTENANCE WRITE AND 
DATA TO SEND TO HOST 


wloeleleleleleileleleleleleileleleleleleleleleielelelelelelelea) 


: IN BUFFER = DATA RECEIVED FROM HOST 


8: 
IN.09: 


wleleleleleleleleleleleleleleleleleleala) 


READ BUFFERS 


REQUEST CODE 
R T 


ARGUMENT 


ARG 


ARGUMENT 


+ 4 YY +  w YY ws 


REQUEST CODE (ECHO) 
NT 


WB NAMLRWNM —O OONAUS WR 


SEQ 0108 


| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 23-1 
~HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


58 001070 
59 001071 


67 001101 
68 


00000C 
000000 


IN.25: 
IN. 26: 
IN.27: 
IN. 28: 
IN.29: 
BUF SIZ 


lelelelolelelelele\ a) 


- ~ IN.RO 


ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 


ARGUMENT 29 


OF BUFFER 


SEQ 0109" 


a — ee 


“are DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 24 
“HOS TRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


10. 
46 001151 000024 SDILTO: .WORD 20. 


SDI LONG TIMEOUT 


1 IF NE, TESTS 
| 2 -NLIST 
| 3 .1FF 
} 4 s 
5 : TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 
7 INPUTS: 
| 8 ; R2 = SDI INTERCONNECT 
| 9 : R3 = POINTER TO COMMAND TABLE CONTAINING APPROPRIATE COMMAND 
10 ; SDILTO/SDISTC SDI LONG AND SHORT TIMEOUTS, RESPECTIVELY 
| 11 ;OUTPUTS: 
12 : RO = RETURN OP CODE FROM UNIT 
13 : R3 = ERROR CODE = 0 = NO ERROR, 1 = RECEIVE ERROR, 100001 = SEND ERROR 
15 001102 TALKER: PUSH = <R1,,R4> ; SAVE REGISTERS 
001102 100461 MOV R1,=(SP) 
001103 100464 MOV R4,=(SP) 
16 001104 104237 MOV (R3)+,RC ; SET ADR OF SD] COMMAND BUFFER 
17 001105 104231 MOV (R3)+,R1 > SET BUFFER LENGTH 
18 001106 060004 KFC SEND ; SEND COMMAND 
19 001107 115001 TST R1 ; DID UNIT ACCEPT COMMAND 
20 001110 011114 BEQ TALK1A ; IF SO, BRANC4 
21 001111 104203 100001 MOV #100001 ,R3 > FLAG AS SEND ERROR 
22 001113 001145 BR TALK2B > BRANCH TO EXIT 
23 001114 106203 004205 TALK1A: CMP #LONG,R3 ; SEE IF LONG TIMEOUT TO BE USED 
24 001116 071122 BMI 1$ ; IF SO, BRANCH 
25 001117 104304 001150 MOV SDISTO.R4 : SET UP SHORT TIMEOUT 
26 001121 001124 BR TALK1B > BRANCH 
27 001122 104304 001151 1$: MOV SDILTO,R4 ; SET UP_LONG TIMEOUT 
28 001124 104137 TALK1B: MOV (R3) ,RO ; SET DATA BUFFER ADDRESS 
29 001125 104631 000001 MOV 1(R3),R1 ; SET BUFFER LENGTH 
30 001127 060005 KFC RCV > SEND RECEIVE SDI COMMAND 
31 001130 115001 TST R1 ; DID ERROR OCCUR 
32 001131 011144 BEQ TALK2A : IF NOT, OBRANCH 
33 001132 106201 000001 CMP #1,R1 > SEE IF TIMEOUT 
34 001134 011137 BEQ 1$ ; IF SO, BRANCH 
35 001135 104013 MOV R1,R3 > MOVE ERROR TYPE TO R3 FOR REPORTING 
36 001136 001145 BR TALK2B > EXIT 
37 001137 117404 1$: DEC ; DECREMENT TIMEOUT VALUE 
38 001140 051124 BNE TALK1B > IF NOT TIMEOUT, BRANCH 
39 001141 104203 000001 MOV #1,R3 > FLAG AS RECIEVE ERROR 
40 001143 001145 BR TALK2B : BRANCH TO EXIT 
41 001144 114003 TALK2A: CLR ; FLAG AS NO ERRORS 
42 001145 TALK2B: POP <R4,R1> ; RESTORE R4, R1 
001145 104264 MOV (SP)+,R4 
001146 104261 MOV (SP)+,R1 
001147 000000 RE TURN 
45 001150 000012 SDISTO: .WORD ; SDI SHORT TIMEOUT 


SEQ 0110 


poo 


Fa cee rere a neers Sa - a oe $e 
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18 001167 000000 RE TURN 


/HOSTRQ = HOST REQUES’ = REPORT ERRORS, MEGABYTES TRANSFERRED, 
} :MREAD 
3 *READ ONE WORD FROM UNIBUS MEMORY 
4 * INPUTS: 
5 : RS - - ADDRESS OF WORD T0 READ (LOW 16 BITS) 
| 6, (HIGH 2 BITS 
? SOUTPUTS: 
| 8 : RO = DATA READ 
10 001152 MREAD: PUSH <R2,R3> SAVE SOME REGISTERS 
001152 100462 MOV R2,=(SP) 
001153 100463 MOV R3,=(SP) 
11 001154 104057 MOV R5,RO zPUT UNIBUS ADDRESS IN RO AND R1 
12 001155 104041 MOV R4,81 
7” 001156 104202 000001 MOV #1.R2 : TRANSFER ONE WORD 
16 001160 104263 001210 MOV #UDATA,R3 “LOCATION TO PUT DATA 
15 001162 060013 XFC UREAD =DO THE READ 
16 001163 104307 001210 MOV UDATA,RO =GET DATA READ 
17 001165 POP <R3,R2> ‘RESTORE OTHER REGISTERS 
001165 «104263 MOV (SP)+,R3 
001166 104262 MOV (SP)+,R2 
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SEQ 0112 
STRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
| l sMwR ITE 
3 ‘WRITE ONE WORD TO UNIBUS MEMORY 
4 : INPUTS: 
5 : RS = ADDRESS OF WORD 19 WRITE (LOW 16 BITS) 
6 : R4 = HIGH 2 BITS 
? : RO = DATA TO WRITE 
. sOUTPUTS: 
10 001170 MWRITE: PUSH <RO,R2,R3> :SAVE SOME REGISTERS 
001170 100467 MOV RO,-(SP) 
001171 100462 MOV R2.=(SP) 
001172 10046 MOV R3.=(SP) 
11 001173 104070 001210 MOV RO,UDATA :PUT DATA TO BE WRITTEN INTO BUFFER 
12 001175 10405 MOV R5.RO ‘PUT UNIBUS ADDRESS IN RO AND R1 
13 001176 104041 MOY R4.R1 
14 601177 104202 000001 MOV #1_R2 : TRANSFER ONE WORD 
15 001201 104203 001210 MOV MUDATA,R3 “ADDRESS oF DATA WORD 
16 001203 06001 XFC UWRITE ‘DO THE WRITE 
17 001204 POP <R3,R2,R0> “RESTORE THE REGISTERS 
001204 104263 MOV (SP)+,R3 
001205 104262 MOV (SP)+.R2 
001206 104267 MOV (SP)+.RO 
18 001207 000000 RETURN 
20 001210 000000 UDATA: .WORD 0 :DATA BUFFER FOR TRANSFERS TO AND FROM 
21 SUNIBUS MEMORY 
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STRQ = HOST REQUEST - REPORT ERRORS, MEGABYTES TRANSFERRED, 
; ; OR 
3 te KOR LOGIC FUNCTION ON TWO REGISTERS 
! ~ : , R2 = DATA TO BE XOR*ED ‘ 
6 ‘ ourpuTs.. : 
? : R1 = UNCHANGED 
g : R2 = XOR OF TWO INPUTS 
10 001211 KOR: PUSH R3 ZSAVE R3 
| 001211 100463 MOV R3,-(SP) 
11 001212 104013 MOV R1,R3 
12 001213 103023 BIC R2.R3 
13 001214 103012 BIC R1.R2 
14 001215 101032 BIS R3.R2 
15 001216 POP R3 :RESTORE R3 
001216 104263. MOV (SP)+,R3 
16 001217. 115002 TST R2 :SET CONDITION CODES 
17 001220 000000 RE TURN 
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| HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
| 4} 007221 10: 
| 3 : EALCULATE THE TIMEOUT IN 9SEC INTERVALS (SDI RECEIVE XFC TAKES 
| 5 ; 
| 6 001221 104201 000001 Mov -#1,R1 : SET UP LOG2 SHIFTER 
7 001223 110201 1$: RORY ; DOUBLE THE TIMEOUT VALUE 
8 001224 103201 000001 BIC #1, R1 : CLEAR THE LOW BIT 
9 001226 117407 DEC —-RO ; DECREMENT COUNT 
10 001227 051223 BNE 18 : IF COUNT INCOMPLETE, BRANCH 
11 001230 114007 CLR RO ; CLEAR 9SEC COUN 
12 001231 115407 28: INC ~—RO ; INCREMENT 9 SEC. COUNT 
13 001232 107201 000011 SUB #9. RT : SUBTRACT 9 SEC FROM TIMEOUT 
14 001234 031231 BPL : IF MORE TIME TO GO, BRANCH 
15 001235 0O 0 RE TURN ; RETURN TO CALLING PROGRAM 





1 
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m 9 
UDAT2 DISK RESIDENT MACRO X04.00 9=JUL-81 11:39:12 PAGE 29 SEQ 0115 
HOSTRQ = HOST REQUEST - REPORT ERRORS, MEGABYTES TRANSFERRED, 
\ :RERROR 
3 TREPORT ERROR TO HOST PROGRAM 
4 “THIS ROUTINE IS CALLED BY THE ERROR MACROS: 
> TERRSF, ERRDF, ERRHRD AND ERRSFT 
? 001236 RERROR: PUSH RO :SAVE ONE REGISTER 
001236 100467 MOV RO,=(SP) 
8 001237 104067 MOV SP,RO :GET STACK POINTER 
9 001240 PUSH <R1,R2.R3,R4> ‘SAVE MORE REGISTERS 
001240 100461 MOV R1,-(SP) 
001241 100462 MOV R2.=(SP) 
001242 100463 MOV R3.=(SP) 
001243 100464 MOV R4.=(SP) 
10 001244 115407 INC RO =CHANGE SAVED STACK POINTER TO POINT TO 
11 : ADDRESS OF LOCATION AFTER CALL 
12 001245 104271 MOV (RO)+,R1 “GET RETURN PC 
13 001246 104202 001007 MOV #OUT.01,R2 ‘GET ADDRESS OF WHERE TO PUT DATA 
14 001250 117401 DEC R1 :REDUCE TO PC OF ERROR CALL 
15 001251 100221 MOV R1,(R2)+ ‘PUT PC IN OUT BUFFER 
16 001252 115401 INC RI ‘GET BACK TO RETURN PC 
17 001253 104113 __ MOV (R1),R3 SGET ERROR NUMBER AND TYPE 
18 001254 103203 176000 BIC W°C061777, R3 : CLEAR OTHER BITS 
19 001256 100223 MOV R3, (R2)+ ;PUT IN BUFFER 
20 001257 104303 001315 MOV LUNIT,R3 PUT UNIT NUMBER IN BUFFER 
21 001261 100223 MOV R3,(R2)+ 
22 001262 104214 MOV (R1)+,R4 :GET COUNT OF PARAMETERS 
23 001263 104213 MOV (R1)+.R3 'GET MESSAGE POINTER 
24 001264 100223 MOV R3,(2)+ [PUT IN OUT BUFFER 
25 'R1 IS NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
26 001265 110704 SWAB R4 
27 001266 110604 ROR R4 :EXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 001267 110604 ROR R4 
29 001270 103204 177700 BIC #177700.R4 
30 001272 104040 001313 MOV R4,SPADJU+1 :SAVE FOR LATER ADJUSTMENT OF STACK POINTER 
31 001274 011301 BEQ RERRCA “BRANCH IF NO PARAMETERS 
32 001275 104273 RERRPA: MOV (RO)+,R3 “GET PARAMETER 
33 001276 100223 MOV R3,(R2)+ ‘STORE PARAMETER IN OUT BUFFER 
34 001277 117404 DEC R4 ‘COUNT THE PARAMETERS 
35 001300 051275 BNE RERRPA ‘GET NEXT IF MORE 
36 001301 100471 RERRCA: MOV R1,-(RO) ‘PUT RETURN ADDRESS ON STACK 
37 001302 104207 0090013 MOV #ERRMES RO TSEND ERROR PACKET TC HOST PROGRAM 
38 001204 020751 CALL HOSTROQ 
39 001305 POP <R4,R3,R2,R1,RO> :RESTORE REGISTERS 
001305 104264 MOV (SP)+,R4 
001306 104263 MOV (SP)+_R3 
001307 104262 MOV (SP)+_R2 
001310 104261 MOV (SP)+.R1 
001311 104267 V (SP) +<RO 
40 001312 105206 000000 SPADJU: ADD #0, SP sADJUST STACK OVER PARAMETERS 
41 ‘VALUE CHANGED ABOVE 
48 001314 000000 RETURN 
44 001315. 177777 LUNIT: WORD =1 :LOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 
46 001316 000000 SAVREG: -WORD 0 sSTORAGE FOR REGISTER AT CALL TIME 





a 


UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 29-1 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


48 «LIST 
49 « ENDC 


SEQ 0116 
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UDAT2 DISK RESIDENT MACRO x04.00 9=JUL=81 11:39:12 PAGE 30 SEQ 0117 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
5 sSTACK AREA | 
3 001317 123456 WORD 123456 :END MARKER FOR STACK | 
4 001320 "BLKW 31. STACK 

5 001857 123456 STACK: LWORD 123456 ‘MARKER FOR STACK UNDERFLOW 
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/UDAT2 DISK RESIDENT MACRO K04.00 9=JUL=81 11:39:12 PAGE 32 SEQ 0118 
DISK DRIVE SEQUENCER 
| 
| ! .SBTTL DISK DRIVE SEQUENCER 
3 000001 ERRN=1. :START ERROR NUMBERS AT 1. 
4 :GET WHICH UNITS TO TEST 
1 
| € 001360 02336) START: CALL GETU :GET UNIT 
8 cu 
9 : FIND OUT IF HOST HAD TO INIT UDA TO GET A PROGRAM FROM AN ATTACHED DRIVE. 
10 : THE PROGRAM WAS REQUESTED BY THE DRIVE TO BE DOWNLINE LOADED INTO ITS MEMORY. 
3 : THE INDICATION COMES FROM THE UTOTST RESPONSE. 
13 : A WORD WITH MSB IS SET TO INDICATE THE LAST UNIT ENTRY. AFTER THAT WORD 
| 1% ; ANOTHER WORD INDICATES-WHEATHER OR NOT A FILE WAS SUPPOSE TO BE DOWN LINE-LUADED.- 
15 : A 'O* MEANS NORMAL PROCESSING, NO FILE WAS EXPECTED OR REQUESTED. 
16 : ny ‘7" MEANS A FILE WAS EXPECTED AND IS AVAILABLE. 
: ; A '2" MEANS A FILE WAS EXPECTED AND IS NOT AVAILABLE. 
19 RO COMES BACK FROM GETU AS A POINTER TO THE WORD BEYOND THE LAST TABLE ENTRY 
21 001361 104671 000001 MOV 1(RO),R1 sWAS A FILE EXPECTED? 
22 001363 0114465 BEQ PORTO :IF NOT, GO TO NORMAL PROCESSING 
23 001364 115407 INC RO “POINT TO INDICATOR IN IN.RQ BUFFER 
24 001365 104075 MOV RO,R5 *R5 => INDICAT 
25 001366 104151 MOV (R5),R1 71ST WORD CONTAINS INDICATOR TO SEE IF A FILE WAS EX 
26 001367 106201 000001 CMP #1,R1 ‘WAS THE EXPECTED FILE AVAILABLE? 
27 001371 052553 BNE DO.DI7 :IF NOT AVAILABLE, GO TO REPORT ERROR 
28 poten FILE was THERE, NOW SEE WHERE IN THE TABLE IT WAS SO PORT INDICATOR IS THE SAME? 
29 001372 104207 003676 #UNITS,RO :RO => UNIT TABLE 
30 001374 104651 000007 mov 1(R5),R1 :R1 = UNIT NUMBER 
31 001376 104202 000001 MOV #UNITO,R2 *R2 = 1ST PORT 
32 001400 114003 CLR R3 :R3 = UNIT TABLE INDICATOR 
33 001401 114004 1$ CLR RG ‘RG KEEPS TRACK OF WHICH SUBUNITS 
34 001402 104270 001316 $: MOV (RO) +, SAVREG sSTORE UNIT IN SAVE REG 
35 001404 071431 | BM! 4$ :1F NEGATIVE VALUE, DON'T COMPARE 
% 001405 103300 177400 001316 BIC HIBYTE, SAVREG *CLEAR EXTANEOUS BITS 
27 001410 106301 001316 CMP SAVREG,R1 [DID WE FIND THE DRIVE? 
38 001412 011435 BEQ 5$ :IF IT IS, WE HAVE FOUND IT 
39 001413 115404 INC R4 sELSE, INCREMENT SUBUNIT POINTER 
40 001414 106204 000004 CMP #4 RG TENDED WITH THIS UNIT ENTRY? 
41 001416 051402 BNE 2$ :IF NOT, CONTINUE 
42 001417 105022 3$: ADD R2,R2 SELSE, NEXT PORT SET IN R2 
43 001420 115403 INC R3 : INCREMENT UNIT TABLE INDICATOR 
44 001421 106203 000004 CMP #4,R3 + DONE ? 
45 001423 051401 BNE 1$ :IF THIS GETS TO 4, THEN ERROR(UNIT NOT FOUND) 
46 001424 ERRHRD MS57,R1 
001424 100461 MOV R1,-(SP) 
001425 021236 CALL RERROR sERR 
001426 003001 . WORD pn HO er, oy HL UES 
001427 002547 .WORD MSS7 
47 001430 001445 3 BR PORTO :START REGULAR TESTING 
48 > *** IF HERE, NEGATIVE ENTRY, GO TO NEXT UNIT ENTRY. ADJUST RO TO PROPER POINTER 
49 001431 105207 000003 4$: ADD #3,RO RO => INTO NEXT UNIT\INCREMENTED BY (RO)+ 
50 001433 107047 SUB R4_RO [REALIGN TO POINT TO BEGINNING OF POINTER 
51 001434 001417 BR 3s" :GO BACK INTO THE LOOP 


52 ; wee JTF HERE, FOUND THE ENTRY, SAVE PERTINENT VALUES, GO DOWN Line LOAD PROGRAM 
53 001435 104650 000001 001315 5$: MOV 7(R5),LUNIT :SAVE LOGICAL UNIT NUMBER 
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DISK DRIVE SEQUENCER 
54 001440 104020 


55 001442 104030 
56 001444 002424 


59 001445 
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003717 
003716 


000001 
003476 


040000 


000004 


003716 
001315 
003717 


003716 
003717 
000004 
000017 


000016 


;_*** NORMAL PROCESSING 


PORTO: 


AMUNITS,RS 
#1N.01,R4 
#4,R3 


(R4)+,RO 


RO, (R5)+ 
RG 


R3 
PORT1 


D 10 


SEQ 0119 


;SAVE PORT VALUE 
;SAVE UNIT NUMBER OFFSET IN TABLE 
:GO DOWN LINE LOAD PROGRAM 


;GET POINTER TO UNITS STORAGE BLOCK 
[GET POINTER TO DATA FROM HOST 
SGET COUNT OF PORTS 


;GET FIRST NUMBER FROM HOST 

IF NOT NEGATIVE, USE IT 

ZOTHERWISE GET SECOND NUMBER FROM HOST 
STORE SintEn IN TABLE 


I 
TREPEAT FOR ALL UNITS 


Fest cop THE DIAGNOSTICS TO ALL UNITS SELECTED. 

TEST CODE WILL BE CALLED FOR EACH DISK DRIVE TO BE TESTED 
LUNIT WILL CONTAIN LOGICAL UNIT NUMBER OF DRIVE FOR ERROR REPORTS 
SD WILL CONTAIN SDI INTERCONNEC?T CODE FOR SELECTED DRIVE 


PORTS: 


1$: 


2s: 


TESTX: 
PORTS: 


DONE CD: 


1 

MUNITO,R2 

#UNITS ,RO 
1,R0 


RI, 
(RO) ,R3 
PORTS 


RS 
(RO) ,R3 
pa 


R2,R 
#UNITO+UNIT1+UNIT2+UNIT3, 
PORT3 


#DONE ,RO 
HOSTROQ 
DONE CD 


START WITH UNIT 0 INDEX 
:SDI INTERCONNECT CODE 


:GET POINTER TO UNITS TABLE 


ADD INDEX 
“GET CONTENTS OF TABLE 
“BYPASS TESTING UNIT IF MINUS 
RS = INDEX COUNTER 
: CHECK UNIT 
sIS THE hy TESTABLE? 
sIF SO, TINE 
: INCREMENT UNIT TABLE POINTER 
; INCREMENT INDEX POINTER 
sIF = 4, POINTS TO NEXT ENTRY 
cif If DOES, TRY NEXT UNIT 
ELSE TRY AGAIN 
:RO-> HEAD OF ENTRY 
;SAVE AT HEAD OF THE TABLE 
;STORE UNIT INDEX 
;STORE LOGICAL UNIT NUMBER FOR DRIVE 
;STORE SDI INTERCONNECT CODE 
* PERF ORM TEST ON THIS DRIVE 
;GET UNIT INDEX 
:GET SDI INTERCONNECT CODE 
z INCREMENT INDEX 
: COMPUTE NEW INTERCONNECT CODE 
R2 ;CHECK IF LEGAL DRIVE SELECTED 
;REPEAT FOR ALL DRIVES 
SEND OF PROGRAM 


;REPEAT IF RETURNED 
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INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
; .SBTTL INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
3 START OF TEST CODE 
4 : 
| 5 s INPUTS: 
| 6 ; LUNIT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 
i ; SDI = SDI INTERCONNECT CODE FOR DRIVE 
| 
m INITIALIZE THE DRIVE 
| 11 001517 104302 002717 TEST: MOV SDI ,R2 GET SDI SELECT CODE 
4 001521 060011 KFC DINIT INITIALIZE THE DRIVE 
1% :WwAIT FOR DRIVE TO ASSERT RECEIVER READY 
15 :TIME OUT AFTER ...? 
4 
17 001522) 114005 CLR R5 GET TIMEOUT COUNTER 
1B 001523 ILOOP: DSTAT DONE CD. MS1,MS2 LOOK AT DRIVE STATUS LINES 
001523 020720 CALL RDS ; GET DRIVE STATUS 
061526 102201 010000 BIT #10000, R1 : SEE IF ANY ERRORS 
001526 011542 BEQ 2$ : IF NO ERROR, BRANCH 
001527 102201 904900 BIT #4000,R1 : EE if XMIT ERROR 
001531 011536 BEQ 1$ : SO, BRANCH 
001532 ERRHRD MS1 : REPORT INVALID STATUS ERROR 
901532 021236 , CALL RERROR ERROR # 2. 
001533 001002 -WORD <PRMS*2000>+<2#400>+ERRN 
001534 0 WORD MS1 
001535 901513 BR DONE CD : : BRANCH TO DONE 
001536 "$:. ERRHRD MS2 ; REPORT XMIT ERROR 
001536 021236 CALL RERROR sERROR # 3. 
. 001537 001003 ~ WORD pc en hy a 
001540 000050 “WORD MS2 
001541 001513 BR DONE CD : BRANCH TO DONE 
001542 \ 28: 
19 001542 102201 000001 . BIT #RCVRDY,R1 CHECK RECEIVER READY LINE 
20 001544 051553 BNE ECHO1 SADVANCE IF ASSERTED 
21 001545 117605 DEC R5 ;DECREMENT TIME OUT COUNTER 
22 001546 051523 BNE ILOOP :STAY IN LOOP UNTIL SIGNAL SETS OR TIMEOUT 
23 001547 ~~ ERRHRD MS3 REPORT ERROR 
001547 021236 ; CALL RERROR 
091550 001004 . WORD pc A ye Bi OR 
001551 000074 D MS3 


WOR 
24 001552 002736 BR TESTEX ZEXIT TESTING THIS DRIVE 
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ECHO DATA 70 DRIVE 


, .SBTTL ECHO DATA TO DRIVE 
3 sECHO THE FOLLOWING DATA PATTERNS TO THE DRIVE THEN CHECK THE 
: ‘testa, © THE PROPER DATA RECEIVED: 
6 5 000 
? ; 252 
8 ; 360 
| 10 : 017 
11 001553 1046205 003722. — ECHO1: MOV #ECHOD,RS GET POINTER TO ECHO DATA 
12 0071585 106157 MOV (R5) RO GET ECHO DATA 
| 13 001556 103207 177400 ECHO2: BIC AHIBYTE, RO CLEAR COMMAND FROM WORD 
| ‘3 001560 0600179 KFC ECHO ;PERFORM THE ECHO COMMAND 
| 16 SCHECK FOR TIMEOUT ERROR 
| 18 001561 115001: TST R1 ; CHECK FGR ERROR 
19 001562 011600 BEQ ECHO4 ;BRANCH IF NONE 
20 0C1563 102201 900001 BIT #1,R1 CHECK IF SEND ERROR 
21 001565 011573 BEQ ECHO3 ;BRANCH IF RECEIVE ERROR 
22 001566 ERRHRD MS4,RO0 ZREPORT SEND ERROR 
001566 100467 MOV RO,-(SP) 
001567 021236 CALL RERROR sERROR # 5. 
001570 003005 . WORD ePRES*2000>+<>2400>2ERAN 
001571 000130 ~WORD MS4 
23 001572 001614 BR ECHOS 
26 001573 ECHO3: - ERRHFD MS5,RO ;REPORT RECEIVE > 
001573 100467 v RO, -(SP) 
001574 021236 cmt RERROR Zz ERROR 
001575 003006 . WORD pn tee oh Aa 
001576 000170 ~WORD MS5 
e 001577 001614 BR ECHOS 
Se ; CHECK DATA RECEIVED 
c 
29 001600 106757 ECHOS4: (CMP (R5),RO toy — RECEIVED WITH 
30 001601 011614 BEQ ECHOS ; DATA SEN 
31 001602 ERRHRD MS6,(R5),RO ‘REPORT Sari COMPARE ERROR 
001602 100467 MOV RO,-(SP) 
091603 104010 001316 MOV R1,SAVREG 
001605 104151 MOV (R5),R1 
001606 100467 MOV R1,-(SP) 
001607 104301 001316 MOV SAVREG,R1 
001611 021236 CALL RERROR sERRO 
001612 005007 . WORD pe RET ine, ot RSP 
= 001613 000233 “wORD MS6 
2 sMOVE TO NEXT DATA PATTERN 
35 001614 115405 FCHOS: INC R5 ;BUMP TO NEXT DATA TO SEND 
36 001615 104157 MOV (R5),RO '  s3CHECK IF AT END OF TABLE 


37 001616 071556 : BM] ECHO2 ;SEND THIS DATA IF NOT 
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Sk RESIDENT MACRO 104.00 9=JUL=81 11:39:12 PAGE 35 SEQ 0122 
US. COMMAND . 
! .SBTTL GET STATUS COMMAND 
; :ISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
§ 001617 104206 000002 MOV #2,R4 UNTER 
6 001621 023522 CALL GTSTAT GET STATUS 
7? 001622 175003 TST R3 “WAS THERE AN ERROR? 
8 001622 011625 BEQ DRCLR1 :IF NOT, CONTINUE 
P 001624 002736 BR TESTEX ZELSE, EXIT FROM TESTING ON THIS DRIVE 
1 SCLEAR DRIVE ERRORS 
73001625 023566 DRCLR1: CALL CLRDRV : CLEAR DRIVE 
14 001626 115003 TST R3 ' : WAS THERE AN ERROR? 
15 001627 011637 BEQ GS1S3 ; IF NOT, CONTINUE 
16 001630 002726 BR TESTEX 
17 
18 
1% :ISSUE GET STATUS COMMAND AND CHECK THAT IT PERFORMS PROPERLY 
21 001631 : S GS TsS: 
22 001631 023522 CALL GTSTAT :GET STATUS 
23 001632 175003 TST R3 :WAS THERE AN ERROR? 
24 001633 017625 BEQ GSTS6 :IF NOT, CONTINUE 
25 001634 002726 BR TESTEX TELSE, STOP TESTING THIS DRIVE 
:LOOK AT DATA IN RESPONSE PACKET 
001635 104307 004216 GSTS6: MOV ST+1,RO :GET TWO WORDS FROM PACKET 
30 001637 104301 004217 MOV ST+2,R1 
001641 102201: 000250 BIT AST.WE+ST.PE*ST.FE,R1 = CHECK ERROR BITS 
001643 001662 BR GSTS7 sBRANCH IF ALL CLEAR 
001644 1174604 DEC RG :TRY ONCE MORE? 
34 001645 051625 BNE DRCLR1 ‘IF OK, TRY AGAIN 
001646 ERRHRD MS16,RO,R1,ST+2 
001646 104010 001316 MOV R1,SAVREG 
001650 104301 004217 MOV ST+2,R1 
001652 100461 MOV R1,-(SP) 
001653 104301 001316 MOV SAVREG,R1 
001655 100461 MOV R1,-(SP) 
091656 100467 MOV RO,-(SP) 
001657 021236 CALL RERROR sERROR # 8. 
001660 007010 -WORD <PRMS*2000>+<2*400>+ERRN 
001661 000655 “WORD MS16 
CHECK IF DIAGNOSTIC REQUEST BIT IS SET 
9 001662 3 GSTS?: 
) 001662 104070 903720 MOV RO, SAVSTA 


ooo ee nn 
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/UDAT2 DISK RESIDENT MACRO K04.00 SeJuUL=81 11:39:12 PAGE 36 SEQ 0123 © 
GET DRIVE CHARACTERISTICS 

1 SBTTL GET DRIVE CHARACTERISTICS 

. GET ORIVE CHARACTERISTICS 

4 001666 1046200 900072 001150. 1: MOV #10.,SDISTO ; SET UP TEMPORARY SHORT TIMEOUT VALUE 

5 001667 1046203 00417 MOV #CR.GCR oR ‘POINT TO GET CHARS COMMAND 

6 001671 TALKX TESTEX, ms50, MS51 : SDI INTERCHANGE 
001671 021102 CALL TALKER ; INITIATE SDI INTERCHANGE 
001672 115003 TST R3 : SEE IF ERROR OCCURRED 
001673 011705 BEG 12% ; IF NOT, BRANCH 
001674 031701 BPL 11$ ; IF SO, BRANCH 
001675 ERRHRD MS590;SEND COMMAND ERROR 
001675 021236 CALL RERROR sERROR # 9. 
001676 00107 ~ WORD <PRMS *2000>+<2*400>+ERRN 
001677 002165 .WORD MS50 
001700 00273¢ BR TESTEX 
001701 1$ ERRHRD MS5S1T;RECEIVE COMMAND ERROR 
061701 021236 CALL RERROR ZERROR # 10. 
001702 001012 -WORD <PRMS*2000>+<2*400>+ERRN 
001703 002226 «WORD MS51 
0C1706 002736 ‘ Hay TESTEX 
001705 ; 12$: 

? 007705 106207 000170 CMP #CHRRES,RO sCHECK FOR SUCCESSFUL RESPONSE 

R 001707 611724 BEG T 

9 001710 ERRHRD MS5S2,4CHRRES,RO ZGET CHARACTERISTICS COMMAND FAILED 
001710 100467 MOV RO,-(SP) 
001711 104010 0061316 MOV R1,SAVREG 

* 001713 104201 900170 MOV ACHRRES,R1 
001715 1904661 MOV R1,-(SP) 
007716 104301 001316 MOV SAVREG,R1 


+ 001723 002736 BR TESTE 

12 C01724 104307 904215 700: MOV ST+SHRTTO,RO 
' 13001726 103207 177760 BIC #LBLONB ,RO 

14 001730 021221 CALL TO 

15 001731 104070 901150 : MOV RO,SDISTO 

16 001733 104307 006216 MOV ST+LONGTO,RO 

17 001735 103207 177760 BIC 4LBLONB ,RO 

18 091737 921221 CALL TO 

19 001760 .104070 9061151 MOV RO,SDILTO 

rau) 


. WOR 
; BRANCH TO END OF TEST 


CALL RERROR ; ERROR 
. WORD CPRMS*20005s<5*400>+E RAN 
D MS52 


GET SHORT TIMEOUT 


; CLEAR mitt 7 


; SET UP TIMEOU 
; SAVE IN SHORT TIMEOUT 
; GET LONG TIMEOUT 


CLEAR UNUSED BITS 
SET UP TIMEOUT 


; SAVE IN LONG TIMEOUT 


~~ —— 
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| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 37 SEQ 0124 
CHECK WHICH COMMAND HAS BEEN GIVEN 
1 .SBTTL CHECK WHICH COMMAND HAS BEEN GIVEN 
2 001742 106307 003720 ST.DIA: MOV SAVSTA,RO GET STORED STATUS WORD 
3001744 102207 000060 BIT #5T.DR,RO sWAS THE DR BIT SET? 
4 001746 052340 BNF DO.DIX :IF SO, GO HANDLE IT WITHIN DIAGNOSE CODE 
5 > *** NOW 50 DIAGNOSE REGION ZERU 
6 001747 114000 001007 CLR OUT .07 CLEAR OUT BUFFER TO INITIAL DIAGNOSE COMMANDS 
7? 001751 174000 001010 CLR OUT .02 3 
& 001753 114000 004416 CLR DIAG.1 :MAKE SURE DIAGNOSE COMMAND RETURNS OP=CODE = 0 
| 9 ; (FOR 1ST TIME THROUGH ONLY) 
10 001755 104200 000017 001046 MOV #17,IN.02 0FH IS DIAGNOSTIC ;****TEMP 
1 ; CLR IN.O2 :CLEAR REGION ID FOR 1ST DIAGNOSE COMMAND 
12 001760 002110 BR DIAGNS :DO DIAGNOSE COMMAND 
13 001761 GSTST8: ; 
14 001761 104207 000002 MOV #T2CMD,RO :SET REQUEST NUMBER 
15 001763 020751 CALL HOS TRO *ASK HOST FOR PORTS 
16 001764 1063C7 001045 MOV IN.07,RO 7RO = RESPONSE CODE; IN.02 
| 17 : 0 = EXIT =: 1 = WRITE 
18 ; 2 = READ ; 3 = DIAGNOSE 
19 001766 012736 BEQ TESTEX ; OP = O /EXIT 
20 0C1767? 117407 DEC RO : RO = 1? 
21 001770 012010 REQ WRITE ; IF SO, WRITE 
22 007771 117407 DEC R : RO = 2? 
23 001772 012054 BEQ READ : IF SO, READ 
24 001773 +=117407 DEC RO : RO = 3? 
| 25 001774 012110 BEQ DIAGNS __ ; IF SO, DIAGNOSE 
26 001775 ERRHRD MS20,IN.02 > ELSE, ERROR=INVALID INPUT 
001775 104010 001316 MOV R1,SAVREG 
001777 104301 901066 MOV IN.O2,R1 
002001 100461 MOV R1,-(SP) 
002002 106301 601376 MOV SAVREG,R1 
002006 021236 CALL RERROR sERROR # 12. 
902005 003014 .WORD <PRMS*2000>+<2*400>+ERRN 
00 001125 .WORD MS20 
27 002007 00176) HR GSTST8 


(on en en ee 
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/UDAT2 DISK RESIDENT MACRO 404.00 9=JUL=81 11:39:12 PAGE 38 SEQ 0125 
MEMORY WRITE 
! .SBITL MEMORY WRITE 
ine 
3 ; 
4 : INPUT  IN.O2 = REGION ID 
5 : IN.03 = OFFSET 
t ; IN.04 = DATA BYTE 
8 : OUTPUT OUT.RQ HAS DAT SET FOR T2CMD 
10 002010 WRITE: 
11 002010 106300 001066 003753 MOV IN.02,WRM+1 :REGION ID 
12 002013 106300 091047. 003754 MOV IN.03,WRM+2 sOF FSET 
13 002016 104307 0617050 MOV IN.04,R0 :RO = BYTE OF DATA IN LO BYTE 
14 002020 110707 SWAB RO RO IS IN HI BYTE 
1§ 002021 103207 000377 BIC #LOBYTE RO CLEAR LO BYTE 
16 002023 1012C7 000001 BIS #7,R0 :SET BYTE COUNT 
17 002025 104070 003755 MOV RO, WRM+5 SET WORD IN PACKET 
18 002027 114000 003756 CLR WRM+4 
19 002031 114000 003757 - CLR wRM+5 
20 002023. 104200 000007 003746 MOV #7,CR.WRM+1 :SET COMMAND BYTE COUNT 
002036 023013 CALL WRTMEM 
23 002037 104200 000001 9001010 MOV #1,0UT.02 zRO = OP CODE 
24 902042 104300 001315 001007 MOV LUNIT,OUT.O1 DRIVE NUMBER 
25 002065 114000 001011 CLR OUT.03 : 
26 002047 114000 061012 CLR OUT.04 ; 
27 002051 714000 001013 CLR OUT.05 : 
28 002053 001761 BR GSTST8 GO SEND REQUEST 
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UDAT2 DISK RESIDENT MACRO K04.00 9=JUL=81 11:39:12 PAGE 39 SEQ 0126 
MEMORY READ 

: .SBTTL MEMORY READ 

ie 

3 ; 

4 3 INPUT IN.O2 HAS REGION ID 

; : IN.03 HAS OFFSET 

c : OFFSET SETS UP OUTBUFFER FOR 72CMD 

39 002054 READ: 

10 002054 104300 001066 004167 MOV IN.02,RDM+1 REGION 1D 

11 002057 104300 001047 004170 MOV IN.03,RDM+2 OFFSET 

lg 062062 104200 600001 004171 MOV #1,RDM+3 BYTE COUNT 

14 002065 022737 4 CAL RDMEM 

15 pee SET UP RESPONSE PACKET 

16 002066 104300 901315 001007 MOV LUNIT,OUT.01 :SET UP REQUEST 

17 002071 104200 000002 001010 MOV #2,0UT.02 ;RETURN OPCODE SET IN BUFFER 

18 002074 104307 004215 MOV ST.RO “RO = BYTE COUNT + DATA 

19 002076 110707 SWAB Ss RO =DATA IN LO BYTE 

20 0C2077 103207 177400 BIC #HIBYTE RO *CLEAR BYTE COUNT (1 BYTE ONLY SENT) 

21 002101 104070 001011 MOV RO,OUT.03 =STORE IN BUFFER FOR HOST 

22 002103 114000 001012 COR OUT .04 : 

23 002105 174000 001013 CR OUT.05 : 

24 002107 001767 BL GSTST8& *GO SEND REQUEST 
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| 
| UDAT2 DISK RESIDENT MACRO X04.00 9-JUL=81 11:39:12 PAGE 40 SEQ 0127 
| DIAGNOSE 
| 1 .SBTTL DIAGNOSE 
| ¢ 33° 
4 : INPUT IN.O2 HAS REGION ID 
é : OUTPUT OlT.RQ IS SET UP FOR T2CMD 
| B 002110 DIAGNS: 
2 002110 106300 0010466 004213 MOV IN.02,DIA+1 :SET UP MEMORY REGION ID 
1 : MSSGE MS59,DIA+1 :SEND MESSAGE 
12 002113 104203 004205 MOV #CR.DIA,R3 :R3->DIAGNOSE PACKET 
13 002115 104302 003717 MOV SDI .R2 =R2 = PORT 
14 002117 021102 CALL ‘TALKER “SEND COMMAND AND RECEIVE RESPONSE FROM DRIVE 
15 002120 115003 TST R3 “SEE IF ERROR OCCURRED 
16 002121 012135 BEG 3$ ‘IF NO ERRORS, BRANCH 
17 002122 110203 ROL R3 ‘SHIFT HIGH BIT INTO CARRY BIT 
78 002123 042130 BCC 2$ [IF CARRY CLEAR (RECEIVE ERROR) BRANCH 
19 : *** REPORT TRANSMISSION ERROR 
20 002724 ERRHRD MS37 
902124 021236 CALL RERROR  ; ERROR # 13. 
002125 001015 “WORD <PRMS*2000>+<2#400>+ERRN 
002126 001526 “WORD MS37 
21 902127 002313 BR 11$ 
22 ;_*** REPORT RECEPTION ERROR 
23 002130 i$: ERRHRD MS38 
002130 021236 CALL RERROR  ;ERROR # 
002131 001016 WORD pa OO pe: oP tes 
002132 001557 “WORD MS38 
24 002133 023237 CALL‘ TYPERR 
25 002134 002313 BR 118 
26 : ** CHECK RESPONSE OP=CODE FROM DRIVE 
27 002135 S$: 
28 002135 106207 000374 rp #DIA.EN,RO :CHECK RESPONSE CODE 
29 002137 012154 BEO 4$ SIF EQUAL, BRANCH 
30 002140 ERRHRD MS36,4DIA.EN,RO 
002140 100467 MOV RO,-(SP) 
002141 1064010 001316 MOV R1.SAVREG 
0021463 104201 000374 MOV #DIA.EN,R1 
002145 100461 MOV R1,-(SP) 
092146 104301 001316 MOV SAVREG,R1 
002150 021236 . CALL RERROR — ;ERROR # 15. 
002751 005017 . WORD EPRMS #20005002400>*ERRN 
002152 001440 "WORD MS36 


31 002153 002313 - BR 1$ 
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DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 





[ 
| 
| 1 .SBTTL DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 
2 ; *** DO A READ MEMORY SDI COMMAND 
3 002154 104300 004215 004167 4$: MOV ST. RDM+1 zREGION ID SET 
| 4 002157 114000 004170 CLR RDM+2 CLEAR OFFSET 
| 5 002167 104200 000010 004171 MOV #8. ,.RDM+3 ;BYTE COUNT = 8 
6 002164 022737 CALL RDMEM READ THE MEMORY 
7 002165 115002 TST R2 zALL OK? 
8 002166 052313 BNE 11$ sIF NOT, EXIT/TRY NEXT DRIVE 
9 002167 104302 003717 MOV SDI,R2 ; RESTORE PORT INDICATOR 
10 002171 104204 001013 MOV #OUT.05,R4 R4 => OUT BUFFER 
11 002173 023054 CALL CONMEM “CONVERT MEMORY 
12 zy *** DATA NOW IN OUT.RQ 
13 002174 104303 001015 MOV OUT.07,R3 7R3 = ERROR NUMBER 
14 002176 052242 BNE 10$ :IF NOT 0, REPORT ERROR 
1§ 002177 104303 001014 MOV OUT.06,R3 *R3 HAD ET & DA FLAGS 
16 002201 102203 100000 BIT MERRTYP,R3 zWAS ET SET? ot fe NO ERROR NUMBER??? 
17 002203 012210 BEQ 5$ :IF NOT, CONTINUE 
18 002204 ERRHRD MS40 
002204 021236 CALL RERROR sERROR # 16. 
062205 001020 .WORD <PRMS*2000>+<2*%400>+ERRN 
002206 001613 .WORD MS40 
19 002207 002631 DO.DI9 :GET EXTENDED STATUS 
20 pote cHE =X IF DATA IS AVAILABLE FOR INFORMATION 
21 002210 102203 040000 S$: BIT ADATAVL .R3 :1S DATA AVAILABLE? 
22 002212 012313 BEQ tIF NOT, CONTINUE WITH THIS DRIVE 
23 002213 104200 000010 004170 MOV #8. ,.RDM+2 ‘PREVIOUS BYTE COUNT 
24 002216 023114 CALL GETBCN GET NEW BYTE COUNT 
25 002217 022737 CALL RDMEM s;READ MEMORY XFC 
26 002220 11500 TST R2 ZALL OK? 
27 002221 052313 BNE 11$ :IF NOT, EXIT/DROP DRIVE 
28 002222 104302 003717 MOV SDI,R2 ; RESTORE PORT INDICATOR 
29 002224 104204 001017 MOV #OUT.09,R4 R4 => OUT BUFFER 
30 002226 023054 CALL CONMEM ‘CONVERT MEMORY 
31 002227 MSSGE MS41 
002227 104200 001715 001010 MOV #MS41,0UT.02 
002232 100467 MOV RO,-(SP) 
002233 100461 MOV R1,-(SP) 
34 104207 000015 MOV #MESSAG,RO 
36 020751 CALL HOSTRQ 
002237 104261 MOV (SP)+,R1 
002240 104267 MOV (SP)+,RO 
32 002241 002631 | BR DO. 19 GET EXTENDED STATUS 
33 ; *** REPORT AN ERROR 
34 002242 104303 001014 10$: MOV OUT. 06, R3 R3 HAS ET & DA FLAGS 
35 002244 114000 004415 CLR .ERR SHARD ERROR ASSUME 
36 002246 102203 100000 BIT HERRTYP,R3 zWAS IT A HARD ERROR? 
37 002250 052254 BNE 6$ =NO, SKIP NEXT INSTRUCTION 
38 002251 104200 177777 004415 MOV #177777.S.ERR :SOFT ERROR SET 
39 002254 102203 040000 . 6$: BIT ADATAVL ,R3 ‘DATA AVAILABLE? 
40 002256 012276 BEQ 7 :1F NOT, CONTINE 
4: 002257 1 000019 004170 MOV 8. .RDM+2 ‘PREVIOUS BYTE COUNT 
42 002262 023114 CALL GE TBCN GET NEW BYTE COUNT 
43 002263 022737 CALL RDMEM SREAD MEMORY XFC 
44 002264 115002 TST R2 : 
45 002265 052313 BNE 11$ zIF NOT, EXIT/DROP DRIVE 
46 002266 104 003717 MOV SDI .R2 *RESTORE PORT INDICATO 
47 002270 104204 001017 MOV #OUT.09,R4 *R4 => OUT BUFFER 


LS 
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_DIAGNOSE/READ MEMORY TO SEE IF ERROR OCCURRED 


48 002272 023054 CALL CONMEM 
49 002273 102203 040000 BIT #DATAVL RS 
50 002275 052300 BNE 8$ 
51 002276 114000 001016 7$: CLR OUT.08 
| 52 002300 115000 004415 8$: pi S.ERR 
| 


53 002302 052307 E 9$ 
54 ; *** PRINT HARD ERROR MESSAGE 
ERRHRD MS42 


S 
3 


BR DO.DI9 
57 ;_*** PRINT SOFT ERROR MESSAGE 
58 002307 9$: ERRSFT MS43 


0u2 2100 
59 002312 002637 | BR DO.DI9 


SEQ 0129 


;CONVERT MEMORY 

[DATA AVAILABLE? 

IF SO, SKIP NEXT INSTRUCTION 
:CLEAR BINARY COUNT AND ASCII COUNT 
SOFT ERROR? 

;1F NOT 0, SOFT ERROR 


CALL RERROR ZERROR # 17. 
~WORD <PRMS*2000>+<2*400>+ERRN 
WORD MS42 
sGET EXTENDED STATUS 


CALL RERROR sERROR # 18. 
~WORD <PRMS*2000>+<5*400>+ERRN 
~WORD MS43 

sGET EXTENDED STATUS 
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| up UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=87 11:39:12 PAGE 42 SEQ 0130 
DIAGNOSE/DO A DRIVE CLEAR 
| 1 -SBTTL DIAGNOSE/DO A DRIVE CLEAR 
é 002313 is: DO DRIVE CLEAR, GET STATUS AND CHECK IF DR BIT IS SET 
4 002313 104204 000004 DO.DC4: MOV M4 RS 3R4 = # MAXIMUM orb on TRIES 
§ 002315 104302 003717 DO.DCL: MCV SDI,R2 =RESTORE PORT INDICAT 
6 002317 023564 CALL CLRDRV oan — CLEAR 
7 002320 115003 TST R3 SERRO 
8 002321 012325 BEQ 1$ suf NOT, CONT INUE 
9 002322 117404 DEC RS [REACHED MAXIMUM # OF DRV CLR TRIES? 
10 002323 052315 BNE DO.DCL Ir NOT, TRY AGAIN 
11 002324 002736 BR TESTEX ZELSE DROP DRIVE 
12 002325 023522 1$: CALL GISTAT 7 CALL GET STATUS 
13 002326 115003 TST R3 ERROR? 
14 002327 012333 BEQ 2$ :IF NOT, CONTINUE 
15 002330 117404 DEC R4 [REACHED MAXIMUM # OF DRV CLR TRIES? 
16 002331 052315 BNE DO.DCL IF NOT, TRY AGAIN 
17 002332 002736 BR TESTEX ZELSE DROP DRIVE 
18 002333 104307 004216 2$: MOV ST+1,RO 4% STATUS WORD 
19 002335 102207 000040 BIT #ST.DR,RO R SET? 
20 002337 012706 BEQ DO.DIO NOT, +. ort 
21 ; *** IF DR BIT IS SET, READ 6 BYTES FROM REGION ID F 
22 002340 104200 177775 004167 DO.DIX: MOV #FFFD,RDM+1 iFFFD (REGION. iD) STORED IN READ MEM PACKET 
23 002343 114000 004170 CLR RDM+2 OFFSET = 0 
24 002345 104200 000006 004171 MOV #6 ,RDM+3 ;BYTE COUNT = 6 
25 002350 022737 CALL RDMEM READ MEMORY 
26 002351 115002 TST R2 :WAS_THERE AN ERROR? 
27 002352 012354 BEQ 1$ IF THERE WAS NOT, CONTINUE 
28 : MSSGE MS53 
29 002353 002706 BR DO.DIO :DO A DRIVE CLEAR 
30 002354 104302 003717 1$: MOV SDI,R2 RESTORE PORT INDICATOR 
31 002356 104204 004215 MOV AST ,R4 R4 -> ST 
32 002360 023054 CALL CONMEM CONVERT MEMORY 
33 ; *** GET REGION ID AND PROGRAM NAME IF ANY 
34 002361 1043500 004215 003721 MOV S1T,SAVRID SAVE REGION ID 
35 002364 115000 004216 TST ST+1 ;1S CHARACTER ENCODED? 
36 002366 052372 BNE DO.DIi :IF SO, GO GET FILE FROM HOST 


N 
=" 
=2 
Ww 
i>) 
So 
oO 


37 002367 0 004217 TST ST+2 :IF 1ST WORD 0, IS_THE SECOND? 
— 38 002371 012547 BEQ DO.DI3 IF SO, GO DIAGNOSE REGION 
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| UDAT2 DISK RESIDENT MACRO X04.00 9=-JUL-81 11:39:12 PAGE 43 SEQ 0131 
| DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 


| 1 .SBITL DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD — 
3 mone ; *** GET THE PROGRAM WHICH NAME WAS SPECIFIED BY THE DRIVE 
| oo 5 
4 002372 104300 003721 003753 MOV SAVRID,WRM+1 :STORE REGION 1D IN THE WRITE PACKET 
5 092375 104203 001045 MOV #IN.01,R3 +R3 => INPUT DAT 
6 002377 104307 001315 MOV LUNIT,RO 
7 002401 100237 MOV RO, (R3)+ :SET UNIT NUMBER 
8 002402 114007 CLR RO 
9 002403 100237 MOV RO, (R3)+ =CLEAR VALUE 
10 002404 104307 004215 MOV ST.RO 
11 002406 100237 MOV RO. (R3)+ :SAVE REGION ID 
12 002407 104307 004216 MOV ST+1,RO 
13 002411 100237 MOV RO, (R3)+ 21ST HALF NAME SAVED 
14 002412 104307 004217 MOV ST+2,RO 
15 002414 100237 MOV RO, (R3)+ :2ND HALF NAME SAVED 
16 002415 104207 000001 MOV AT2DLL,RO SSET RO = TEST 2 DOWNLINE LOAD 
17 002417 020751 CAL HOSTRQ 
18 p eee TF HERE, DIDN'T REINIT UDA TO GET DATA 
19 002420 104205 001045 MOV #IN.01,R5 :R5 => INPUT BUFFER 
20 002422 114000 003754 CL R WRM+2 “CLEAR OFFSET 
21 ; *** DOWN LINE LOAD PROGRAM 
22 002424 104157 DO.DI2: MOV (R5) RO :1S THE PROGRAM THERE? 
23 002425 117407 DEC RO 
24 002426 052556 BNE DO.DI8 zIF NOT, REPORT ERROR 
25 : **s GET THE PROGRAM FROM THE HOST 
26 002427 104657 000005 i$: MOV 5£R5) .RO ;UNIBUS ADDRESS PA 
27 002431 104651 000006 MOV 6(R5)<R1 .  SUNIBUS ADDRESS EA 
28 002433 104652 000007 MOV 7(R5) .R2 ‘BYTE COUNT 
29 002435 104203 004215 MOV #ST,R3 ‘POINTER TO INPUT BUFFER 
30 002437 106202 000200 CMP #STSIZE,R2 *R2 > MAX BUFFER SIZE? 
31 002441 032444 BPL 2$ ‘IF NOT, CONTINUE 
32 002442 104202 000200 MOV ASTSIZE,R2 “SET MAX BUFFER SIZE IN R2 
33 002444 060013 2$: KFC UREAD =DO A UNIBUS READ 
; *** SET UP SDI COMMAND PACKETS 
35 002445 104070 003746 MOV R2,CR.WRM+1 :SET BYTE COUNT IN WRM PACKET 
36 002447 105200 000006 003746 ADD #6.CR.WRM+1 SADD TO COUNT TO INCLUDE PACKET LENGTH 
37 002452 104650 000004 003753 MOV 4(R5) .WRM+1 [SET REGION ID 
38 002455 104020 003755 MOV R2,WRM+3 [SET BYTE COUNT IN BUFFER 
39 002457 104303 004215 MOV ST.R3 ‘1ST DATA WORD IN R3 
40 002461 110703 SWAB RB i TST DATA WORD IN UPPER BYTE 
41 002462 103203 000377 BIC #LOBYTE R3 CLEAR LOW BYTE 
42 002464 101030 003755 BIS RM+3 “SET DATA in IST BUFFER WORD OF WRT MEM PACKET 
43 002466 104020 001316 MOV a3" SAVREG “SAVE BYTE COUN 
44 002470 117402 DEC R2 ‘ADJUST BYTE Caeet 
45 002471 103200 000377 004215 BIC #LOBYTE,ST [CLEAR LOW BYTE OF 1ST DATA WORD OF PROGRAM 
46 002474 101020 004215 BIS R2,ST *REPLACE IT BY THE BYTE COUNT OF THE REST 
47 002476 104204 003756 MOV #WRM+4 RG ‘R4 -> OUT BUFFER 
48 002500 023054 CALL  CONMEM > CONVERT MEMORY 
49 ; *** SEND TO THE DRIVE 
50 002501 104302 003717 MOV SDI,R2 :RESTORE PORT INDICATOR 
51 002503 023013 CALL  WRTMEM *SEND TO DRIVE 
52 002504 115002 TST R2 TALL OK? 
53 002505 052313 , BNE DO.DC4 ;1F NOT. GO CLEAR DRIVE 
54 002506 104302 001316 MOV SAVREG,R2 “R2 = BYTE COUN 
55 002510 105020 003754 ADD R2,WRM+2 SADJUST OFFSET 
56 002512 104657 000007 MOV 7(R5) ,RO 


57 002514 107027 SUB R2,RO 








oon a re 
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|UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 43-1 SEQ 0132 
| DIAGNOSE/GET PROGRAM NAME SPECIFIED BY DRIVE AND DOWNLINE LOAD 
58 002515 .100657 000007 MOV RO,7(RS) ;DECREMENT TOTAL BYTE COUNT/DONE? 
| 59 002517 012536 BEQ 4$ :IF 0, EXIT 
60 002520 072536 BMI 4$ 7IF NEG, EXIT 
61 002521 104657 000005 MOV 5(R5) RO 
| 62 002523 105027 ADD R2.RO 
63 002524 100657 000005 MOV RO,5(R5) 7ELSE, ADJUST UNIBUS ADDRESS TO READ FROM 
64 002526 106027 CMP R2,R0 31S PA ADDRESS LESS THAN BUFFER SIZE? 
65 002527 072535 BMI 38 ;IF IT IS NOT, CONTINUE 
66 002530 104657 000006 MOV 6(R5),RO 
67 002532 115407 INC RO 7ELSE, INCREMENT EA ADDRESS (CROSSED 0 BOUNDARY) 
68 002533 100657 000006 MOV RO,6(R5) 
| 69 002535 002427 3$: BR 1$ ;READ IN NEXT BUFFER 
71 ;_*** SET UP DIAGNOSE COMMAND 
72 002536 114000 003754 4$: CLR WRM+2 SREINIT OFFSET 
73 002540 104200 000007 003746 MOV #7 ,CR.WRM+1 ;REINIT BYTE COUNT OF INSTRUCTION 
74 002543 704650 000004 001046 MOV 4(R5),1N.02 ;SET UP REGION ID 
ee 002546 002110 BR DIAGNS ;SEND DIAGNOSE COMMAND 
77 ; *** JUST RECEIVED THE REGION ID TO DIAGNOSE TO. GO DIAGNOSE IT. 
78 002547 104300 003721 001046 DO.DI3: MOV SAVRID,IN.O2 ;STORE REGION ID FOR DIAGNOSE COMMAND 


79 002552 002110 BR DIAGNS :GO DIAGNOSE 
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DIAGNOSE/REPORT ERROR == NO DOWNLINE LOAD PROGRAM 


SEQ 0133 





1 .SBTTL DIAGNOSE/REPORT ERROR == NO DOWNL INE LOAD PROGRAM 
2 *s * NO DOWN LINE LOAD PROGRAM AFTER meray ED U 
; 002553 104650 000001 003716 bo. “DI?: MOV 1(R5) ,UNITNB SET UP YP OGICAL UNIT NUMBER 
| 5 ; *** NO DOWN LINE LOAD PROGRAM, REPORT ERROR 
6 002556 104654 000010 DO.DI8: MOV 10(R5) RS zR4 = 1ST WORD OF PROGRAM NAME 
7 002560 023630 CALL DIv50 :DIVIDE BY 50 AND GET 3RD CHARACTER 
8 002561 110707 SWAB RO ‘PUT IN PROPER BYTE 
9 002562 104070 004420 MOV RO,NAM.2 SET 3RD CHARACTER 
10 002564 023630 CALL DIVv50 :GET 2ND CHARACTER 
11 002565 104070 004417 MOV RO,NAM. 1 SET 2ND CHARACTER 
12 002567 104047 MOV 4,R0 “RO = RAD5O OF 1ST CHARACTER 
13 002570 023644 CALL FNDASC GET ASCII EQUIVALENT 
14 002571 110707 SWAB 0 “PUT IN PROPER BYTE 
15 002572 101070 004417 BIS 0,NAM. SET 1ST CHARACTER 
16 002574 104654 000011 MOV 11(R5) ,R4 = 2ND WORD OF PROGRAM NAME 
17 002576 023630 CALL DIVv50 ‘Ger “6TH CHARACTER 
18 002577 104070 004421 MOV RO,NAM. 3 SET 6TH CHARACTER 
19 002601 023630 CALL Div50 ‘GET 5TH CHARACTER 
20 002602 110707 SWAB 0 :PUT IN PROPER BYTE 
21 002603 101070 004421 BIS RO,NAM. 3 SET 5TH CHARACTER 
22 002605 104047 MOV R4,RO RO = RADSO UF 4TH CHARACTER 
23 002606 023644 CALL FNDASC FIND ASCII EQUIVALENT 
24 002607 101070 004420 BIS RO,NAM. 2 SET 4TH CHARACTER 
25 002611 ERRHRD MS56,NAM.1,NAM.2,NAM.3 ;REPORT ERROR 
002611 104010 001316 MOV R1,SAVREG 
002613 104301 004421 MOV NAM.3,R1 
002615 100461 MOV R1,=(SP) 
002616 104301 004420 MOV RI 
002620 100461 MOV R1,-(SP) 
02621 104301 004417 MOV NAM.1,R17 
002623 100461 MOV R1,-(SP) 
002624 104301 001316 MOV SAVREG,R1 
002626 021236 CALL RERROR sERRO 
002627 007023 . WORD pe AO orp, oP Peles 
002630 002511 .WORD MS56 


nn re 
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DIAGNOSE/GET EXTENDED STATUS 


- 4 -SBTTL DIAGNOSE/GET EXTENDED STATUS 
2 002631 DO.DI 
? 7. owe GET Saigaanee | STATUS 
4 002631 104200 177776 004167 MOV FFFE,RDM+1 REGION ID SET 
5 002634 114000 004170 CLR RDM > :CLEAR OFFSET 
6 002636 104200 000020 004171 MOV #16. ,RDM+3 BYTE COUNT = 8 
7 002641 022737 CALL RDMEM + READ MEMORY 
8 002642 115002 TST Re 30K? 
9 002643 052706 BNE DO.DIO IF NOT, EXIT 
10 002644 104302 003717 MOV SDI,R2 ZRESET PORT a 
11 002646 104204 001012 MOV HOUT .04,R4 :R4 => OUT BUFFER 
12 002650 023054 CALL CONMEM ; CONVERT MEMORY 
13 002651 104307 001012 MOV OUT.04,RO :RO =BYTE COUNT DRIVE GAVE 
14 002653 107207 000016 SUB #14. ,R0 ANY EXTENED STATUS? 
15 ' ; (BYTE COUNT DOESN'T ACCOUNT FOR STORAGE OF ITSELF) 
16 002655 012705 BEQ DO.DI6 IF NOT, EXIT 
17 002656 105200 000020 004179 ADD #16. ,RDM+2 ADJUST OF F SET 
18 002661 104070 004171 MOV RO,RDM+ 3 DM+3 = A ag BYTE COUNT 
19 002663 022737 : CALL RDMEM READ MEMORY 
0 002664 115002 TST Re SALL OK? 
1 002665 052706 BNE DO.DIO IF NOT, EXIT 
22 002666 104302 003717 MOV SD1,Re_ :RESET PORT iNDICATOR 
23 002670 104204 901022 MOV MOUT.12,R4 3R4 => OUTPUT BUFFER 
24 002672 023054 CALL CONMEM Z CONVERT MEMORY 
25 002673 MSSGE MS58 REPORT EXTENDED STATUS 
002673 104200 002613 001010 MOV #MS58,0UT.02 
002676 100467 MOV RO,-(SP) 
002677 100461 MOV R1,-(SP) 
002700 104207 000015 MOV ME SSAG,RO 
002702 020751 CALL HOSTRQ 
002703 104261 MOV (SP)+,R1 
002704 104267 MOV (SP)+,RO 


26 002705 002313 DO.DI6: BR DO.DC4 :DO A DRIVe CLEAR 


FO 
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| DIAGNOSE/SET UP RESPONSE TO HOST AND EX 
1 .SBTTL DIAGNOSE/SET UP RESPONSE TO HOST AND EXIT 
2 pote sei es RESPONSE PACKET 
3 002706 104302 003717 DO.DIO: SDI,R2 sRESTORE PORT INDICATOR 
4 002710 1043500 001315 001007 mov LUNIT,OUT.01 : SAVE UNIT NUMBER 
| 5 002713 115000 004416 TST DIAG. 1 ‘IF DIAG.1 = 0? 
6 002715 052721 BNE 12$ “IF NOT, SKIP 
| 7 002716 114000 001010 CLR OUT.02 :SET UP PROPER OP=CODE VALUE 
8 002720 002724 BR 13$ * CONT INUE 
9 002721 104200 000003 001010 12$: MOV #3,0UT.02 :SET UP REQUEST 
10 002724 13$: 
11 002724 104300 004215 001011 MOV ST,OUT.03 sREGION ID SET 
12 002727 114000 001012 CLR OUT.04 ; 
13 002731 104200 177777 004416 MOV #177777,DIAG. 1 sMAKE SURE DIAG.1 HAS NONE ZERO VALUE IN IT 
14 : FOR NEXT TIME THROUGH 
15 002734 115007 TST RO =XFC BREAK 
‘6 002735 001761 BR GSTST8 :GO SEND REQUEST 
18 
4 sEND OF TESTING THIS DRIVE 
21 002736 001501 TESTEX: BR TESTX GO BACK TO DRIVE SEQUENCER 
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TEST 2 SPECIFIC ROUTINES 
1 .SBTiL TEST 2 SPECIFIC ROUTINES 
é “SBTTL READ MEMORY SUBROUTINE 
. "+ 
| : : ROUTINE NAME: RDMEM 
| 6 : DESCRIPTION: 
? : THIS ROUTINE DOES THE XFC READ MEMORY (FROM A SPECIFIED REGION 
| 8 : AND OFFSET) OF DATA FROM THE DRIVE. THIS iOUTINE CALLS THE 
9 : SEND AND RCV (TALKER) ROUTINE AND JUDGES IF THE SDI COMMAND 
10 : WAS PROPERLY SENT. 
12 : INPUT: ALL PARAMETERS FOR THE READ MEMORY COMMAND 
13 ; MUST BE SET. THAT MEANS REGION ID, THE OFFSET, 
14 z AND THE BYTE COUNT MUST BE GIVEN THE APPRORIATE VALUES 
| 15 : AND STORED IN THE RDM PACKET 
17 : OUTPUT: R2 = 0 MEANS ALL IS OK 
| 18 5 R2 NOT = 0, READ FAILED (EITHER SEND OR RECIEVE OF THE COMMAND) 
4 s ST HAS THE READ DATA 
51 002737 RDMEM 
22 002737 PUSH <RO,R1,R3> s SAVE THESE KEGISTERS 
002737 100467 MOV RO,-(SP) 
002740 100467 MOV R1.=(SP) 
002741 10046 MOV R3.-(SP) 
23 002742 104203 004161 MOV ACR.RDM,R3 3R3 -> RDM PACKET 
24 002744 104302 003717 MOV SDI,Re tR2 = PORT 
25 002746 021102 CALL TALKER SEND COMMAND AND RECEIVE RESPONSE 
26 002747 115003 TST R3 ERRORS? 
27 002750 012764 BEQ 3$ ‘IF NONE SO FAR, CONTINUE 
28 002751 110203 ROL R3 TERROR ON SEND? 
29 002752 042757 BCC 2$ ZIF CARRY CLEAR (RECEIVE ERROR) BRANCH 
30 ; *** REPORT TRANSMISSION ERROR 
31 002753 ERRHRD MS27 
002753 021236 CALL RERROR — ;ERROR # 20. 
002754 001024 .WORD <PRMS*2000>+<2*400>+ERRN 
002755 001316 “WORD MS27 
32 002756 003005 BR 5$ sERROR EXIT 
33 ; *** REPORT RECEPTION ERROR 
34 002757 2$: ERRHRD MS28 
092757 021236 CALL RERROR — ;ERROR # 21. 
002760 001025 -WORD <PRMS*2000>+<2*400>+ERRN 
02761 001350 “WORD MS28 
35 062762 023237 CALL TYPERR :GO CHECK TYPE OF ERROR 
36 002763 003005 BR 5$ ‘ERROR EXIT 
37 ; *** CHECK RESPONSE OP=CODE FROM DRIVE 
38 002764 106207 000162 $$: CMP #RDM.EN,RO sCHECK RESPONSE 
39 002766 013003 BEQ 4$ TIF IT MATCHES, OK, EXIT 
40 002767 ERRHRD MS26,4RDM.EN,RO 
002767 100467 MOV RO,-(SP) 
002770 104010 001316 MOV R1.SAVREG 
002772 104201 000162 MOV #RDM.EN,R1 
002774 100461 MOV R1,-(SP) 
002775 104301 001316 MOV SAVREG,R1 
002777 021236 CALL RERROR 22 
003000 005026 WORD SPAMS #2008 >e< > 0400S sERRN 
F 003001 001226 “WORD MS26 
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UDAT2 DISK RESIDENT MACRO 04.00 9=JUL=81 11:39:12 PAGE 47-1 SEQ 0137 
READ MEMORY SUBROUTINE 
41 003002 003005 BR 5$ sERROR EXIT 
42 003003 114002 4$: CLR Re sALL OK, EXIT 
43 003004 003007 BR 6% : 
44 003005 104202 000001 5$: MOV #1,R2 sERROR OCCURED, SET R2 
45 003007 é$: POP <R3,R1,RO0> 
003007 104263 MOV (SP)+,R3 
003010 104261 MOV (SP)+,R1 
003011 104267 MOV (SP)+.RO 
46 003012 000000 RE TURN 


Ju 
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£ MEMORY SUBROUTINE 
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22 
23 003024 


003052 
33 003053 


104203 
104302 
021 


106207 


003745 
003717 


000176 


001316 
000176 


001316 


~SBTTL WRITE MEMORY SUBROUTINE 
WRTMEM 


DESCRIPTION: 

THIS ROUTINE DOES THE XFC WRITE MEMORY TO A SPECIFIED 
REGION ID AND OFFSET WITH A BYTE COUNT AND DATA 

THIS ROUTINE CALLS THE SEND AND RCV (TALKER) ROUTINE 
AND JUDGES IF THE SDI COMMAND WAS PROPERLY SENT. 


INPUT: ALL PARAMETERS FOR THE WRITE MEMORY COMMAND MUST BE SET. 


é REGION ID, OFFSET, BYTE COUNT AND THE DATA MUST BE STORED 
; IN THE PACKET 
WRIMEM: MOV #CR.WRM,R3 ;R3->MEM Mae: PACKET 
MOV SDI, tR2 = PORT 
CALL TALKER :SEND COMMAND AND RECEIVE RESPONSE FROM DRIVE 
TST R3 ZSEE IF ERROR OCCURRED 
BEQ 3$ s IF NO ERRORS, BRANCH 
ROL R3 ;SHIFT HIGH BIT INTO CARRY BIT 
BCC 2$ sIF CARRY CLEAR (RECEIVE ERROR) BRANCH 
; *** REPORT TRANSMISSION ERROR 
ERRHRD MS17 
CALL RERROR sERROR # 23. 
.WORD <PRMS*2000>+<2#400>+ERRN 
a ‘i ~WORD MS17 
3 *** REPORT RECEPTION ERROR 
e$: ERRHRD MS18 
CALL RERROR sERROR # 24. 
- WORD <PRMS *2000>+<2*400>+E RRN 
.WORD MS18 
a + tedins sFIND OUT WHAT TYPE OF ERROR OCCURED 
; *** SET UP RESPONSE PACKET 
3$: CMP #COMPLT,RO sDID IT COMPLETE 
BEQ 4$ sIF SO CONTINUE 
ERRHRD MS19,4COMPLT,RO 
MOV RO,-(SP) 
MOV R1,SAVREG 
MOV #COMPLT,R1 
MOV R1,-(SP) 
MOV SAVREG, R1 
CALL RERROR # 25. 
. WORD EPRMS* 2000562224005 ERRN 
“WORD MS19 


4$: RE TURN 


| UDAT2 DISK RESIDENT MACRO X04. 3 9=JUL=81 
CONVERT MEMORY == SKEWED BY BYTE 
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.SBTTL CONVERT MEMORY == SKEWED BY BYTE 


ROUTINE NAME: CONMEM 
DESCRIPTION 


MEMORY IS SENT TO_THE DM ROUTINE STARTING ON THE ODD BYTE BOUNDARY. 
THIS ROUTINE SHIFTS THE DATA TO START ON THE EVEN BYTE BOUNDARY AND 


STORES EACH WORD INTO A SPECIFIED BUFFER AREA. 


BYTE COUNT 
DATA BYTE 
DATA BYTE 
DATA BYTE 


S ong .> THIS: 
DATA BYTE 


DATA BYTE 
DATA BYTE 


FOLLOWS: 
ST: DATA BYTE 


“DATA BYTE 
A 


1 
3 
5 
H 
E 0 
2 
4 
6 


INPUT: R4 => BUFFER AREA'S FIRST LOCATION 


ST HAS INPUT DATA 


OUTPUT: OUTPUT BUFFER HAS SHIFTED DATA 


PUSH <RO,R1,R2,R3,R4> 


MOV AST ,R3 

MOV (R3) ,RO 
BIC #HIBYTE RO 
MOV (R3)+,R1 
BIC #LOBYTE,R1 
DEC RO 

BEQ 2$ 

MOV (R3) ,R2 
BIC #HIBYTE .R2 
BIS R2,R1 

SWAB 1 

MOV R1,(R4)+ 
DEC 0 

BEQ 3$ 

BR 1$ 

SWAB R1 

MOV R1,(R4) 
POP <R4,R3,R2,R1,R0> 


RE TURN 


MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 


3R3 -> BYTE COUNT 
;RO = BYTE COUNT 
:STRIP OFF EXTRANEOUS 


3:R1_ = EVEN BYTE OF DATA 
;STRIP OFF EXTRANEOUS 


; DONE ? 
iTF YES, GO STORE LAST BYTE 
:R2 = ODD BYTE 

SSTRIP OFF EXTRANEOUS 

:R1 HAS WHOLE WORD(BYTES REVERSED) 


[SWITCH BYTES 
STORE DATA 
; DONE? 


IF SO, EXITCEVEN # OF BYTES) 
SELSE, CONTINUE 
[ODD # BYTES TO GET HERE 


>STORE LAST BYTE 


MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


THE DATA IS STORED AS 


SEQ 0139 


38 35 
39 003137 
re 003140 
42 003141 
43 003143 
re: 003144 


46 003145 


51 003155 


100467 


001016 
177400 


001016 


177400 


000052 


001007 
004355 


001043 


Be Be Be Be Be Be Be Be Be Be Be Be Se Be Be 


Qs: Be Be Be Be Be Be Be 


GE TRCN: 


+ 
OUT.08:! 
+ 


L 11 


SK RESIDENT MACRO X04.00 9=JUL-81 11:39:12 PAGE 50 
COUNT 


-SBTTL GET BYTE COUNT 
ROUTINE NAME:  GETBCN 


DESCRIPTION: 

DATA IS READ BY THE DM PROGRAM AFTER THE DIAGNOSE COMMAND. 
WITHIN THIS DATA, THE DRIVE SPCCIFIES IF MORE DATA NEEDS TO 
BE READ. IF IT IS, THE BYTE COUNT MUST BE Baca FROM 
ITS PRESENT FORM WHICH FOLLOWS THIS FORMAT 


THE TOTAL BYTE COUNT IS FOUND BY THIS FORMULA: 

TBC = AC + (4*BC) 
OR THE TOTAL BYTE COUNT EQUALS THE ASCII COUNT PLUS FOUR 
TIMES THE BINARY COUNT. THE BINARY COUNT IS THE NUMBER OF 
32 BIT BINARY VALUES INCLUDED IN THE REPORT. THE ASCIi 
is THE NUMBER OF ASCII CHARACTERS INCLUDED IN THE 


OUT.O8 = ASCII COUNT AND BINARY COUNT IN THE FORM STATED ABOVE 
RDM+3 HAS UPDATED BYTE COUNT. 


INPUT: 
OUTPUT: 


PUSH <RO,R1,R2,R35,R4,R5> 

MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 


x 


CLR RO 

ROL RO :CLEAR CARRY 

MOV OUT.08,RO ;GET BYTE COUNT 

BIC ne Tn ae ;RO = BINARY COUNT= # 32 BIT WORDS 


ROL : 

ROL kO :RO = BINARY COUNT IN BYTES 
MOV OUT.08,R1 R1 = BYTE COUNT 

SWAB R1 ZASCII sre a L@ BYTE 

BIC #HIBYTE,R1 R1 = ASCII C 

MOV R1,R2 : SAVE IN R2 = ORSCL I COUNT 


RO = TOTAL BYTE COUNT 


ADD R1,R0 
; *** IS SIZE OF THE PACKET TOO BIG FOR BUFFER AVAILABLE? 
MOV #42. ,R1 


BPL 1$ 
3; eee SAVE" OUT. - DATA 
MOV 


4$: 





742. IS THE MAXIMUM # OF BYTES LEFT 
31S TOTAL BYTE COUNT > 42.? 
:IF NOT, GO STORE TOTAL BYTE COUNT 


CMP a ae 


#OUT.01,R4 :R4-> OUT.RQ DATA 
MOV #ST+140.R5 *R5S=>SAVE AREA 
MOV (R4)+,R4 + SAVE 
MOV R1,(R5)+ : 
CMP #OUT.29,R4 + DONE ? 


BNE 4$ SIF NOT, CONTINUE 


SEQ 0140 


ere oe | 7 


M11 
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GET BYTE COUNT | 

52 ; 

53 003156 MSSGE MS30 
003156 104200 001406 001010 MOV #MS30,0UT.02 
003161 100467 MOV RO,-(SP) 
003162 100461 MOV R1,=-(SP) 
003163 104207 000015 MOV AMESSAG,RO 
003165 020751 CALL HOSTRQ 
003166 104261 MOV (SP)+,R1 
003167 104267 MOV (SP)+,RO 

54 y *** RESTORE OUT.RQ DATA 

55 003170 104204 001007 MOV #OUT.01,R4 3R4=> OUT.RQ DATA 

56 003172 104205 004355 MOV #ST+140,R5 ;R5=>SAVE AREA 

57 003174 104251 : 5$: MOV (R5)+,R1 ;RESTORE 

58 003175 100241 MOV R1,(R4)+ : 

59 003176 106204 001043 CMP HOUT. 29,R4 ; DONE? 

4 003200 053174 BNE 5$ sIF NOT, CONTINUE 

62 003201 104073 MOV RO, R3 SAVE ASCII COUNT + 4*BINARY COUNT IN R3 

63 003202 104207 000052 MOV #42. ,RO ELSE, MAXIMUM BYTE COUNT IS STORED. 

64 ; *** ADJUST ASCII COUNT IF TOO LARGE 

65 003204 107023 SUB R2,R3 ;R3 = BINARY COUNT 

66 003205 106073 CMP RO,R3 > IF BINARY COUNT ALONE > 42.? 

67 003206 673215 BMI 2$ zIF SO, TO CLEAR ASCII COUNT AND ADJUST BINARY COUNT 

68 ; *** ASCII COUNT IS > 42. TO GET HERE 

69 003207 105032 ADD R3,R2 zR2 = TOTAL BYTE COUNT 

70 003210 107072 SUB RO,R2 zR2 = ASCII COUNT ADJUSTMENT 

71 003211 110702 SWAB R2 ;PUT ASCII COUNT ADJUSTMENT IN UPPER BYTE 

72 003212 107020 001016 SUB R2,0UT.08 ; SUBTRACT FROM OUT.08 FOR HOST 

73 003214 003226 BR sEXIT 

74 ; *** ADJUST BINARY COUNT IF TOO LARGE/CLEAR OUT ASCII COUNT 

75 003215 103200 177400 001016 2%: BIC #MHIBYTE,OUT.08 2CL EAR HI BYTE OF OUT.08 

76 003220 107073 SUB RO,R3 :R3 = BINARY COUNT ALONE 

77 003221 117400 001016 3$: DEC OUT.08 [ADJUST BINARY COUNT 

78 003223 107203 000004 SUB #4 ,R3 

79 003225 033271 BPL 3$ 

80 ; **®* STORE IN READ MEMORY PACKET AND EXIT 

81 003226 1$: 

82 003226 104070 004171 MOV RO, RDM+3 STORE IN READ MEMORY PACKET 

83 003230 POP <R5,R4,R3,R2,R1,RO> 
003230 104265 MOV (SP)+,R5 
003231 104264 MOV (SP)+,R4 
003232 104263 MOV (SP)+,R3 
003233 104262 MOV (SP)+,R2 
003234 104261 MOV (SP)+,R1 
003235 104267 MOV (SP)+,RO 


84 003236 000000 RETURN 
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003237 
003240 


Co 
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-SBTTL TYPE WHAT KIND OF RECEIVE ERROR 

TYPE ERROR 

DESCRIPTION: 

THIS ROUTINE PRINTS A REPORT TO TELL WHAT KIND OF fRROR OCCURED IF A 
RECEIVE XFC DID NOT SUCCESSFULLY COMPLETE. 


INPUT: R3 = ERROR leet XFC SAVED IN TALKER ROUTINE SHIFTED LEFT ONCE 
U 


V 
If = 
IF = 2 1ST WORD WAS NOT A START FRAME 
IF = 4 FRAMING ERROR ON SDI LEVEL O READ 
IF = 10 CHECKSUM ERROR ON SDI LEVEL O READ 
IF = 20 BUFFER SIZE WAS SMALLER THAN RESPONSE 
: ROR R3 ;READJUST R3 
CLR R1 
ROL R1 ;CLEAR CARRY 
MOV R35,R1 :STORE IN R1 
ROR R1 ; ERROR? 
BCC 1$ sIF NOT, CONTINUE 
MSSGE MS60 3: TIMEOUT 
MOV #MS60 ,OUT.02 
MOV RO,=-(SP) 
MOV R1,-(SP) 
MOV #MESSAG,RO 
CALL HOSTRQ 
MOV (SP)+,R1 
. MOV (SP)+,RO 
BR 6$ sEXIT 
ROR R1 Z ERROR? 
BCC 2$ :1F NOT, CONTINUE 
MSSGE MS61 21ST WORD WAS NOT A START FRAME 
MOV #MS61,0UT .02 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV #MESSAG,RO 
CALL HOSTRQ 
MOV (SP)+,R1 
MOV (SP)+,RO 
BR 6$ EXIT 
ROR R1 ;ERROR? 
BCC 3$ ; If NOT, CONTINUE 
MS SGE MS62 : FRAMING ERROR ON SDI LEVEL O READ 
MOV #MS6e ,OUT.02 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV #MESSAG,RO 
CALL HOSTRQ 
MOV (SP)+¢,R1 
MOV (SP)+,RO 
HR 4% TEM 
ROK a) 7 ERR = 
ACL 4$ iif CONT TINUE 
MSSGE M565 4 ERROR ON SDI LEVEL 0 READ 
MOV #MS63,0uUT 02 


MOV RO,-(SP) 


4 
| wont 
i 
| 
} 


043344 
104200 


003342 
39 003343 
40 003344 


> 
41 003369 


000000 


000015 


003057 


0660015 


4$: ROR 


001010 


BR 
MSSGE 
001010 


6$: RETURN 
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— WHAT KIND OF RECEIVE ERROR 


6f 
R1 


5$ 
MS64 


6$ 
MS65 ,R3 


B 12 


MOV 
CALL 


sEXIT 
; ERROR? 


SEQ 0143 
MOV R1,=(SP) 
#MESSAG,RO 


HOSTRQ 
MOV (SP)+,R1 
MOV (SP)+,RO 


:1F NOT, CONTINUE 
;BUFFER SIZE SMALLER THAN RESPONSE 


MOV 


MOV 
CALL 


AMS64 ,OUT.02 
MOV RO,=-(SP) 
MOV R1,=(SP) 
AME SSAG ,RO 


HOSTRQ 
MOV (SP)+,R1 
MOV (SP)+,RO 


sEXIT 
sERROR WASN'T PROPERLY SPECIFIED 
MOV AMS65 02 


MOV 


MOV 
CALL 


, oe 


R3,0UT.03 
MOV RO,-(SP) 
MOV R1,-(SP) 


AME SSAG,RO 


HOSTRQ 
MOV (SP)+,R1 
MOV (SP)+,RO 





1 


MIOMMOMMOMVOMVMVOVVVVOVVVVOCVCVVVVVVVOVAANANAAANAANAOOVOWWWAWWAIWAMAAArrr VC 


Sa 


03361 104205 


104204 


ed ed ed i — a 


053463 
100464 


104264 
003436 003463 


1 
2 
3 
4 
5 
é 
 ¥ 
8 
9 
0 
1 
0 
2 
3 
4 
5 
6 
? 
8 
9 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 003415 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 


53 003452 


000001 


003676 


010000 


005000 
010000 
000001 


003730 


000012 
000001 


000001 


004215 


170000 
040000 


GETU: 


1$: 


2$: 


14$: 


3$: 


5$: 


11$: 


12$: 


13$: 





cr 
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ROM HOST 


-SBTTL GET UNITS FROM HOST 


POLL ALL PORTS AND FILL 


#1,R5 
MUNITS,R4 
R4 

R5,R2 
RDSTAT 
#10000,R1 
6$ 

DINIT 
teal hi 
10000 1 
ARCVRDY,R1 
5$ 

RO 

14$ 

6$ 
ACR.GST,R3 


RO,R2 
#* CHBHINB ,RO 


#40000 ,RO 
R2 
Re 
R2 
Re 


GETU WILL GET THE UNITS TO TEST 


IN A UDA PORT INFORMATION TABLE (UNITS) 


Be Be 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be 


Be Be Be Be Be Be Be Be Be Be Be 


Be Be Be Be Be Be Be Be 


MOVE INITIAL MASK TO R5 
R4 POINTS TO UNIT TABLE 
SAVE R4 


MOVE MASK TO R2 

GET STATUS 

SEE IF ERROR OCCURRED (NO DRIVE ATTACHED) 
IF NO DRIVE, BRANCH 

INITILIZE THE DRIVE 

MOVE TIMEOUT TO RO 

GET STATUS 

SEE IF fh: IS VALID 

IF NOT, BRANCH 

SEE IF RECEIVER READY ASSERTED 
IF SO, BRANCH 

DECREMENT COUNT 

IF INCOMPLETE, BRANCH 

NO VALID STATE 

R3 POINTS TO GET STATUS COMMAND 
SET ADR OF SDI COMMAND BUFFER 
SET BUFFER LENGTH 

SEND COMMAND 

DID UNIT ar COMMAND 

IF SO, BRANCH 

SAVE R4 


SET UP SHORT TIMEOUT 
SET DATA BUFFER ADDRESS 
SET BUFFER LENGTH 

SEND RECEIVE SDI COMMAND 
DID ERROR OCCUR 

IF NOT, BRANCH 

SEE IF TIMEOUT 

IF NOT, BRANCH 

DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT, BRANCH 
RESTORE R4 


BRANCH TO EXIT 
RESTORE R4 


HAS UNIT NUMBER 


MOV R4,-(SP) 


MOV R4,-(SP) 


MOV (SP)+,R4 


MOV (SP)+,R4 


HA NUMBER 
FLAG UNIT AS NOT TESTED 
SWAP R2'S BYTES 
MOVE SUBUNIT MASK TO LO NIBBLE 
MOVE SUBUNIT MASK TO LO NIBBLE 
MOVE SUBUNIT MASK TO LO NIBBLE 


SEQ 0144 





MAAN TDBDAADDBDDDABDAMMDMBAMB BR MDRDMD DMD ABMB DVM MD VMDMDMB MBM DDDDDONOO uc 


ee — 


ra 


g 
| 
| 
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UNITS FR 


54 003453 
55 003454 
3456 


65 003471 


106 
053365 


177760 


000004 
000020 


4$: 


6$: 


R2 
A#LBLONB ,R2 
R2 


6$ 
RO, (R4) + 
R 


SEQ 0145 


MOVE SUBUNIT MASK TO LO NIBBLE 
CLEAR ALL BUT SUBUNIT BITS 
MOVE SUBUNIT BIT TO CARRY 

IF NO MORE SUBUNITS, BRANCH 
MOVE SUBUNIT NUMBER TO TABLE 
ghee at SUBUNIT NUMBER 


BRANCH 
R4 POINTS TO START OF UNIT JUST HANDLED 
MOV (SP)+,R4 
R4 WILL POINT TO NEXT UNIT (CLEAR CARRY FOR ROL) 
R5 HAS NEXT UNIT PORT MASK 
SEE IF ALL PORTS TESTED 
IF NOT, BRANCH 


ee ee ee ee ee ee eee ee PP PS ES PS eS ee PS ee RR AAR OMMMNM MONON ni is ~ 


+ 
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/GET UNITS FROM HOST 
1 j 
Q ; NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 
| 4 003472 104207 000012 MOV #UTOTST,RO ; GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 
| 5 003474 020751 CALL — HOSTRQ ; GET THE PLUG NUMBERS 
| 6 003475 104207 001045 MoV #1N.01,RO ; RO POINTS TO UNIT NUMBERS TO TEST 
7 003477 104201 003676 7$: MOV #UNITS RI ; R1 POINTS TO UDA PORT INFORMATION 
8 003501 104112 8S: MOV (R1) ,R2 ; R2 HAS UNIT 
9 003502 073511 BMI 9$ ; IF NONE, BRANCH 
10 003503 103202 170000 BIC #*CHBHINB.R2 ; CLEAR THE "NOT TESTED BIT’ FOR COMPARISON 
11 003505 106172 CMP (RO) ,Re ; SEE IF IT IS A UNIT TO TEST 
12 003506 053511 BNE 9$ ; NO MATCH 
13 003507 100112 MOV R2, (R1) ; SAVE UNIT AS ONE TO TEST 
14 003510 003516 BR 10$ ; LOOK FOR THE NEXT ONE 
15 003511 115401 98: INC R1 ; LOOK AT NEXT UNIT 
16 003512 106201 003716 CMP #UNITS+16.,R1 ; SEF IF ENTIRE TABLE SEARCHED 
17 003514 053501 BNE 8$ ; IF NOT, BRANCH 
18 003515 060000 XF C BREAK ; ERROR *a**xe0e 
19 003516 . 115407 10$: INC RO ; POINT TO NEXT UNIT TO TEST 
20 003517 104172 MOV (RO) .R2 : CHECK NEXT UNIT 
21 003520 033477 BPL 7$ ; FIND IN UDA PORT INFORMATION 
22 003521 000000 RE TURN ; RETURN TO CALLING FROGRAM 


MMM MM MMM MMMM MM MMM MMMM IVIPIVIIOIMIIMVIIMIMS 


RO Fr om eee 


a 


F 12 
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GET STATUS SUBROUTINE ( 

} .SBTTL GET STATUS SUBROUTINE o 

| 3 : GET STATUS If 
4 ; 

5 ; OUTPUT R3 = 0 IF OK /F 

$ : R2 = 1 IF ERROR if 

8 003522 104203 003730 GTSTAT: MOV ACR.GST,R3 zPOINT TO GET STATUS COMMAND G 

9 003524 021102 CALL TALKER ; SEND AND RECEIVE COMMAND G 

10 003525 115003 TST R3 : SEE IF ERROR OCCURED G 

11 003526 013541 BEQ 12% : IF NOT, BRANCH G 

12 003527 110203 ROL R ; SEE IF RECEIVE ERROR G 

13 003530 043535 BCC 11$ : IF SO, BRANCH G 

| 14 003531 ERRHRD MS7 G 

003531 021236 CALL RERROR sERROR # 26. G 

| 003532 001032 «WORD <PRMS*2000>+<2*400>+ERRN G 

003533 000316 .WORD MS7 G 

15 003534 003557 BR ER.END G 

| 16 003535 11$: ERRri2h MS G 

003535 021236 CALL RERROR sERROR # 27. G 

003536 001033 -WORD <PRMS*2000>+<2#400>+ERRN G 

003537 000350 .WORD MS8 ac 

17 003540 003557 BR ER.END H 

18 : *** LOOK AT RESPONSE OP=CODE FROM DRIVE _ =- SHOULD BE DATA RESPONSE H 

19 003541 106207 000366 12$: CMP ast ES,RO CHECK OP=CODE H 

20 003543 013562 BEQ K . END ‘BRANCH IF A MATCH H 

21 003544 | ERRHRD mS9aSTSRES.RO ;WRONG RESPONSE FROM DRIVE H 

003544 100467 MOV RO,-(SP) H 

003545 104010 001316 MOV R1.SAVREG H 

003547 104201 000366 MOV #STSRES,R1 H 

003551 100461 MOV R1,-(SP) H 

003552 104301 001316 MOV SAVREG,R1 H 

003554 021236 ; CALL RERROR sERROR # 28. H 

003555 005034 .WORD <PRMS*2000>+<2*400>+ERRN H 

003556 000405 .WORD MS9 b 

22 003557 104203 000001 ER.END: MOV #T,R3 ;R3 = NONE ZERO VALUE WHEN DONE (ERROR) H 

23 003561 003563 BR EX. END ZEXIT H 

24 003562 114003 OK.END: CLR R3 3R3 = 0 WHEN DONE (NO ERROR) . 

25 003563 000000 EX.END: RETURN 4 

4 


te es he ne ee et ee ne ee he ee ee ee 
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“CLEAR DRIVE SUBROUTINE 

| .SBTTL CLEAR DRIVE SUBROUTINE 

DRIVE CLEAR 


OUTPUT 3 = O IF OK 
R% = 1 IF ERROR 


NOUS WWN HO OONAYME Wr 
So 
o 
WN 
Ww 
oO 
Oo 


| 003564 104203 003736 LRDRV: MOV #CR.DRC,R3 ; POINT TO DRIVE CLEAR COMMAND 
| 104301 004216 MOV ST+1,R1 > GET ERROR BYTE 
| 10 003570 103201 177400 BIC HHIBYTE,R1 > CLEAR UNUSED BITS 
| 11 003572 104010 003744. MOV R1,DRCBYT ; MOVE TO DRIVE CLEAR COMMAND 
| 12 003574 021102 CALL ‘TALKER > SEND AND RECEIVE COMMAND 
13 003575 115003 TST R3 : SEE IF ERROR OCCURED 
| 14 003576 013611 BEQ 12$ > IF NOT, BRANCH 
15 003577 110203 ROL R3 > SEE IF RECEIVE ERROR 
16 003600 043605 BCC 11$ ; IF SO, BRANCH 
17 003601 ERRHRD MS10 
003601 021236 CALL RERROR sERROR # 29. 
003602 001035 “WORD <PRMS*20005+<2*4005+¢RRN 
0C3603 000475 -WORD MS10 
18 003604 003557 BR ER. END 
19 003605 11$:  ERRHRD MS11 
003605 021236 CALL RERROR _ ;ERROR # 30. 
003606 001036 WORD <PRMS*2000>+<2*400>+ERRN 
003607 000527 -WORD MS11 
20 003610 003557 BR ER. END 
21 i sett CHECK RESPONSE CODE 
22 003611 106207 000176 12$: #COMPLT .RO ; SEE IF CORRECT RESPONSE CODE RECEIVED 
23 003613 013562 BO OK. > IF SUCCESSFUL, BRANCH 
24 003614 FRRHRD MSi>-#COMPLT,RO ZCLEAR ERROR FAILED 
003614 100467 MOV RO,-(SP) 
003615 104010 001316 MOV R1.SAVREG 
003617 104201 000176 MOV #COMPLT,R1 
003621 100461 MOV R1,-(SP) 
003622 104301 001316 MOV SAVREG,R1 
003624 021236 CALL RERROR ;ERROR 
003625 005037 SWORD “<PRMS*20005+<5400>+ERRN 
003626 000564 “WORD MS12 
25 003627 00355 BR ER. END 





Eee -_ 
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DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 


r 
' 
| 1 .SBTTL DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 
ms 

; DIVIDE BY 50 
5 ; DESCRIPTION: RAD 50 VALUE IN R4 IS DIVIDED BY 5QCOCTAL) 
6 ; O STRIP OFF A SINGLE CHARACTER INTO RO. 
| z : JUMP TC FNDASC TO FIND THE ASCII EQUIVALENT 
| 2 ; INPUT: R4 HAS RADSO VALUE 

i OUTPUT: RO HAS ASCII CHARACTER 

13 003630 DIVSO: PUSH <R1> 

003630 100461 MOV R1,=(SP) 

14 003631 114001 CUR >) at R1 = QUO 
15 003632 115401 1$: INC RI KEEP TRACK OF # OF LOOPS 
| 16 003633 107204 000050 SUB #50,RG DONE ? 
| 17 003635 033632 BPL 1$ IF NOT, LOOP 

18 003636 105204 000050 ADD #50, RG R4 = REMAINDER 
| 19 003640 104047 MoV —s_R&,, RO STORE REMAINDER IN RO 

20 003641 117401 DEC RI R1 HAS 1 MORE THAN IT SHOULD 

21 003642 104014 MOV —- R17, R [QUO IN R4 

22 003643 POP <i> 

53 003043 10426 MOV (SP)+,R1 
24 s3* 

25 : FIND ASCII 

44 ; INPUT: RO HAS RAD 50 CHARACTER 

29 003644 115007 FNDASC: TST — RO 1S = 0? 

30 003645 053651 BNE 3$ IF NOT, CONTINUE 

21 003646 104207 000040 MOV  —- #40,RO IF SO, SPACE SET 

32 003650 000000 RE TURN 

33 003651 106207 000032 38: CMP: #32,RO ; > LARGEST LETTER 

34 003653 073657 BMI 4$ ZIF SO, CONTINUE 

35 003654 105207 000100 ADD —«- #100,,RO SET ASCII LETTER 

003656 000000 RETURN 

37 003657 106207 000033 4$: CMP #33, RO ; = 33? 

38 003661 053665 BNE 5$ Z1F NOT, CONTINUE 

39 003662 104207 000044 MOV #44, RO iser ‘sé 

40 003664 000000 RE TURN 

41 003665 106207 000034 5$: (MP #34,RO ; = 34? 

42 003667 053673 BNE 6$ :1F NOT, CONTINUE 

43 003670 104207 000056 MOY #56, RO ser *.* 

44 003672 000000 RE TURN 

45 003673 105207 000022 68: ADD —«- #22,,RO ELSE ADD 22(OCTAL)FOR NUMERAL CHARACTER 

46 003675 000000 RE TURN 


om 
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° SEQ 0150 
DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 


Fel 


DVD DAOAANANAOAAANANAROOAOAOOM 


— SS sess sss: 


SS eee sss ess sists nesses ener — 


j zPROGRAM VARIABLES 
3 ZUNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 
5 003676 aaa 000000 000000 UNITS: .WwORD <-1,0,0,0 LOGICAL UNIT NUMBER IF POSITIVE 
6 003702 Lathes 000000 000000 .WORD =1,0.0,0 ;DISK DRIVE NOT TO BE TESTED IF NEGATIVE 
? 003706 177777 000000 000000 .WORD =1,0,0,0 
003711 000000 
8 003712 177777 000000 000000 .WORD -1,0,0,0 
‘ 003715 000000 
10 003716 000000 UNITNB: .WORD 0 NUMBER OF UNIT CURRENTLY UNDER TEST 
1 ; POINTER INTO TABLE ABOVE 
13 003717 000000 SDI: .wORD 0 SDI INTERCONNECT CODE FOR XFC CALLS 
15 003720 000000 SAVSTA: .WORD 0 SAVE STATUS 
3 003721 000000 SAVRID: .WORD 0 SAVE REGION ID 
18 003722 377 350 ECHOD: .BYTE 377,ECHOC ECHO DATA TO SEND TO DRIVE 
19 003723 000 350 «BYTE  000,ECHOC 
20 003724 252 350 «BYTE  252,ECHOC 
21 003725 360 350 .BYTE -360,ECHOC 
22 003726 017 350 BYTE 017,ECHOC 
33 003727 000000 .WORD 0 END MARKER 
4 ; COMMAND BUFFERS FOR SEND XFC 
27 003730 CR.GST: MSG GETST.1,S1.7 : GET STATUS SDI INFORMATION 
003730 003735 .WORD GETST zADDRESS OF COMMAND 
003731 00000 . WORD SIZE OF COMMAND IN BYTES 
003732 004215 .WORD ST sADDRESS OF REPLY 
003733 K .WORD 7 SIZE OF REPLY IN WORDS 
003734 000000 . WORD ; SUCCESSFUL COMPLETION CODE 
28 003735 000 011 GETST: .BYTE O,GETSTA 
30 003736 CR.DRC: MSG DRC,2.S1.7 : DRIVE CLEAR SDI INFORMATION 
003736 003743 .WORD DRC ADDRESS OF COMMAND 
093737 00000 .WORD 2 SIZE OF COMMAND IN BYTES 
003740 004275 .WORD ST ZADDRESS OF REPLY 
003741 000007 .WORD 7 SIZE OF REPLY IN WORDS 
003742 000000 . WORD ; SUCCESSFUL COMPLETION CODE 
31 003743 000 005 DRC: BYTE 0 DRVCLR 
32 003744 177777 DRCBYT: .WORD 17777 
34 003745 CR.WRM: MSG WRM,7,ST,7 : MEMORY WRITE COMMAND INFO 
003745 003752 .WORD WRM ADDRESS OF COMMAND 
003746 7 WORD 7 sSIZE OF COMMAND IN BYTES 
003747 004215 WORD ST ZADDRESS OF REPLY 
003750 000007 .WORD 7 :SIZE OF REPLY IN WORDS 
003751 000000 . WORD : SUCCESSFUL COMPLETION CODE 
35 003752 000 017 WRM : -BYTE 0,WRM.OP 
36 003753 000000 000000 000000 WORD 0,0,0 
37 003756 000000 000000 000000 WORD 0,0,0 
38 003761 UF 1 BLK 200 


DDDDD 
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ear, BY OCTAL 50 AND FIND ASCII EQUIVALENT 
| 


39 ; 
40 004161 CR.RDM: MSG RDM,6,5T,STSIZE : MEMORY READ COMMAND INFO 
004161 004166 .WORD RDM ADDRESS OF COMMAND 
004162 000006 «WORD 6 SIZE OF COMMAND IN BYTES 
004163 004215 .WORD ST ZADDRE SS OF REPLY 
004164 000200 .WORD STSIZE SIZE OF REPLY IN WORDS 
004165 000000 WORD : SUCCDSSFUL COMPLETION CODE 
41 004166 000 215 RDM: -BYTE 0,RDM.OP 
| 42 004167 000000 00000 000000 «WORD 0,0,0,0 
004172 00000 : 
43 004173 000000 000000 000000 .wORD 0,0,0,0 
| 1, 006176 000000 
45 004177 CR.GCR: MSG GCR,1,S1,12. 3 GET CHARACTERISTICS 
004177 004204, .WORD GCR ADDRESS OF COMMAND 
004200 000001 .WORD 1 SIZE OF COMMAND IN BYTES 
004201 004215 .WORD ST ADDRESS OF REPLY 
| 004202 000014 .WORD 12. SIZE OF REPLY ” WORDS 
004203 000000 . WORD ; SUCCESSFUL COMPLETION CODE 
“6 004204 000 207 GER: BYTE 0,GETCHR ; GET CHARACTERISTICS 
rs} 004205 LONG: ; ALL LONG TIMEOUT COMMANDS FOLLOW 
50 004205 CR.DIA: MSG DIA,3,S17,7 : DIAGNOSE COMMAND INFORMATION 
004205 004212 .WORD DIA ADDRESS OF COMMAND 
004206 000003 .WORD 3 :SIZE OF COMMAND IN BYTES 
004215 .WORD ST ADDRESS OF REPLY 
004210 000007 .WORD 7 SIZE OF REPLY IN WORDS 
004211 000000 . WORD 3; SUCCESSFUL COMPLETION CODE 
51 004212 000 003 DIA: -BYTE 0,DIA.OP 
52 004213 000000 -WORD 0 
23 004214 000000 .wORD 0 
55 DRIVE RESPONSE BUFFERS 
56 000200 STSIZE = 200 
57 004215 ST: -BLKW 200 
5 
4 : TEST 2 SPECIFIC MEMORY LOCATIONS 
62 004415 000000 S.ERR: .WORD 0 : = 0, HARD ERROR 
63 ; NOT = 0, SOFT ERROR 
64 004416 000000 DIAG.1: .wORD 0 3. 0, 1ST DIAGNOSE COMMAND 
65 ; NOT = 0, DRIVE TESTED BEFORE 
66 004417 000000 NAM.1: .WORD 0 :HOLD PROGRAM NAME 
67 004420 000000 NAM.2: .WORD 0 
68 004421 000000 NAM.3: .WORD 0 
$8 004422 000000 -WORD 0 
: TEST 2 SPECIFIC OP CODES AND END CODES 
WRM.OP = 17 ; WRITE MEMORY COMMAND 
RDM.OP = 215 ; READ MEMORY COMMAND 
DIA.OP = 3 ; DIAGNOSE COMMAND 
GETCHR = 207 : GET COMMON CHARACTERISTICS COMMAND 
RDM.EN = 162 ; READ MEMORY RESPONSE 
DIA.EN = 374 : DIAGNOSE RESPONSE 





SEQ 0151 
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_~ 


GOOT7C 
100000 
040000 


177774 
177775 
177776 


) 
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‘© 1] EQUIVALENT — 


GCC.EN 


ERRTYP 
DATAVL 
FFFC 
FFFD 
FFFE 


170 


K 12 


3; GET COMMON CHARACTERISTICS 


DIAGNOSE ET AND DA 


100000 
40000 


FFFD + 1 


;ERROR TYPE ET 
;DATA AVAILABLE 


SEQ 0152 





seer 
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a BY OCTAL 50 AND FIND ASCII EQUIVALENT 
i 


004423 
004423 
004423 


000000 
000027 


WOONAUSWN—ODOONAW BWR 
So 
i=) 
S 
Oo 
Ww 
o 


ed et es ns et OL 


| 
20 000233 
$ 000261 


150426 


MESSAGE STORAGE OVERLAY 


FREE: 


MS1: 


MS2: 
MS3: 
MS4: 


MSS: 


MS6: 


MS7: 


MS8: 
MS9: 


MS10: 
MS11: 
MS12: 


MS16: 


MS17: 
MS18: 
MS19: 


MS20: 


3; FREE AREA STARTS HERE 
ee MS 0 


e-NLIST BEX 


-ASCII\"'CANNOT RECEIVE VALID DRIVE STATE FROM DRIVE’ N\ 
a. IF DRIVE IS POWERED ON.’N\ 


YTE 0 
“ASCII DRIVE STATE RECEIVED HAS BAD PARITY’ N\ 
“ASCLIN DRIVE IS NOT ASSERTING RECEIVER READY IN DRIVE STATE’ N\ 
-ASCII\"'TIME-OUT ON at hy ECHO COMMAND TO DRIVE'N\ 


;OUTPUT EDC FOR THIS OVERLAY 


oO 


yee ECHO DATA 

“ASCII\''TIME-OUT ON RECEIVE OF ECHO RESPONSE FROM DRIVE’ N\ 

aie a ECHO DATA ‘H8N\ 

-BY 

-ASCII\"'ECHO COMMAND i aeae WITH DIFFERENT DATA’ N\ 

-ASCII\'' ECHO DATA SEN "'H16N\ 

aie ECHO DATA RECEIVED “HT6N\ 

“ASCII\""TIME-OUT ON SEND OF GET STATUS COMMAND TO DRIVE'N\ 
“ASCII\""TIME-OUT ON RECEIVE OF GET STATUS RESPONSE FROM DRIVE’ N\ 

-BY 

-ASCII\''GET STATUS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE*N\ 
-ASCII\'' EXPECTED RESPONSE ‘'H8N\ 

mag ACTUAL RESPONSE "“"H8N\ 

“ASCII\""TIME-OUT ON SEND OF DRIVE CLEAR COMMAND TO DRIVE'N\ 
“ASCII\"TIME-OUT OF RECEIVE OF DRIVE CLEAR RESPONSE FROM DRIVE’ N\ 
“ASCII\' DRIVE CLEAR COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
-ASCII\"' EXPECTED RESPONSE ‘'H8N\ 

i ACTUAL RESPONE "H8N\ 

“ASCII\'ERROR BIT SET IN GET STATUS RESPONSE AFTER DRIVE CLEAR COMMAND’ N\ 
-ASCII\"' 18 pine RESPONSE ‘'H16N\ 

-ASCII\S23H1 

‘ASCII \S03HTOM\ 

vet gts aE -Gie ON SEND OF MEMORY WRITE COMMAND TO DRIVE’ N\ 

-BY 

mets, we DURING RECEIVE OF MEMORY WRITE RESPONSE FROM DRIVE'N\ 
-BY 

-ASCII\' WRITE MEMORY COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'N\ 
-ASCII\"' EXPECTED RESPONSE *'H8N\ 

“7 ACTUAL RESPONSE ‘H8N\ 

BY 

-ASCII\"INVALID INPUT. HOST PROGRAM DID NOT GIVE_PROPER RESPONSE*N\ 
-ASCII\'' EXPECTED VALUE SHOULD BE BETWEEN 0 AND 3'N\ 

at a ACTUAL VALUE WAS *‘08N\ 

BY! 


SEQ 0153 


Voll aaalll anal aaa aad adil qual anal call cual cadll call ual call cual aul eae eel eed ged cee eed ee eed eed eed eed eee ee ee ee eee, eee, Bee ee, ee, ee ee ee 4 oe 1 





+ 





UDAT2 DISK RESIDENT MACRO X04.00 9-JUL-81 11:39: 


DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 


57 001226 042 122 105 MS26: 
58 001264 042 040 040 
59 001300 042 040 040 
60 001315 000 
61 001316 042 124 111 MS27: 
62 001347 000 
63 001350 042 105 122 MS28: 
64 001405 000 
65 001406 042 106 117 MS30: 
66 001437 000 
67 001440 042 104 111 MS36: 
68 001474 042 040 040 
69 001511 042 040 040 
70 001525 000 

MS37: 


71 001526 042 124 111 
72 001556 


MS38: 
MS40: 


MS41: 


MS4&2: 


MS4S3: 


MS50: 
MS51: 
MSS2: 


MS53: 


MS54: 


M12 
12 PAGE 59=1 SEQ 0154 
-ASCII\''READ MEMORY COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
-ASCII\"' EXPECTED RESPONSE ‘'H8N\ 
aig ACTUAL RESPONSE ‘'H8N\ 
BY 
v2 Pitt ON SEND OF MEMORY READ COMMAND TO DRIVE'N\ 
BY 
7" vt baton DURING RECEIVE OF MEMORY READ RESPONSE FROM DRIVE’ N\ 
7 eames REPORT HAS BEEN TRUNCATED DUE TO SIZE'N\ 
-ASCII\' DIAGNOSE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
-ASCII\'' EXPECTED RESPONSE ''H8N\ 
ie ACTUAL RESPONSE ‘'‘'H8N\ 
an. ON SEND OF DIAGNOSE COMMAND TO DRIVE’ N\ 
‘BYE DURING RECEIVE OF DIAGNOSE RESPONSE FROM DRIVE’ N\ 
-ASCII\’ UNDETERMINABLE RESPONSE FROM THE DRIVE GIVEN DIAGNOSTIC COMMAND ‘N\ 
-ASCII\"* TEST NUMBER A shh \ 
-ASCII\"' DRIVE TYPE 'H8N\ 
-ASCII\'" ERROR NUMBER ‘'H16N\ 
-ASCII\R2\ 
-BYTE 0 
-ASCII\"'INFORMATION SENT BACK FROM THE DRIVE IS BEING PRESENTED.’ N\ 
-ASCII\'' TEST NUMBER ‘H16N\ 
eASCII\'' DRIVE TYPE  ‘'H8N\ 
-ASCII\'" ERROR NUMBER ''H16N\ 
-ASCII\R2\ 
-BYTE 0 
-ASCII\" DRIVE DIAGNOSTIC REPORTS A HARD ERROR N\ 
-ASCII\'' TEST NUMBER ‘H16N\ 
-ASCII\’' DRIVE TYPE  ‘"H8N\ 
-ASCII\"* ERROR NUMBER ''H16N\ 
-ASCII\R2\ 
-BYTE 0 
-ASCII\'’ DRIVE DIAGNOSTIC REPORTS A SOFT ERROR’ N\ 
-ASCII\'' TEST NUMBER ‘H16N\ 
-ASCII\’’ DRIVE TYPE  ‘'H8N\ 
-ASCII\'* ERROR NUMBER ‘'H16N\ 
7! ale 
aes Taare ON SEND OF GET UNIT CHARACTERISTICS COMMAND TO DRIVE'N\ 
yt Ch tala ON RECEIVE OF GET UNIT CHARACTERISTICS COMMAND FROM DRIVE’ N\ 
-ASCII\''GET UNIT CHARACTERISTICS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE*N\ 
-ASCII\"" EXPECTED RESPONSE ‘'H8N\ 
-ASCII\'' ACTUAL RESPONSE *'H8N\ 
-ASCII\N\ 
-ASCII\''READ MEMORY FROM DRIVE UNSUCCESSFUL’ N\ 
eASCIIN' ATTEMPTING DRIVE CLEAR’ N\ 
-BYTE QO 
-ASCII\N\ 
-ASCII\’ DRIVE CLEAR FAILED’ N\ 
-ASCII\"'ATTEMPT ING ATTEMPT ING’ N\ 


1 


ew MEE SST CKESCSLFESCELCCCCCCCCCCCCcCCcCCcCCcCeC nxt 


N 12 

UDAT2 DISK RESIDENT MACRO X04.00 9=-JUL=81 11:39:12 PAGE 59-2 SEQ 0155 
DIVIDE BY OCTAL 50 AND FIND ASCII EQUIVALENT 

114 002460 00C -BYTE 0 

115 002461 116 MS55: —.ASCII\N\ 

116 002461 042 107 105 ASCII\''GET STATUS FAILED’ N\ 

117 002473 042 101 124 ASCII\' ATTEMPTING DRIVE CLEAR’ N\ 

118 002510 000 -BYTE 0 

119 002511 042 106 111. MS56: ~—.ASCII\' FILE *'A6"'.2??? REQUESTED BY THE DRIVE COULD NOT BE FOUND.'N\ 

120 002546 000 -BYTE O 

121 002547 042 110 117 MS5S7: ~—.ASCII\' HOST SPECIFIED UNIT #''D16'' THAT CAN'T BE FOUND.'N\ 

122 002600 042 124 105 -ASCIIN''TEST2 BEGAN AGAIN’ N\ 

123 002612 000 BYTE QO 

124 002613 116 MS58: .ASCII\N\ 

125 002613 042 106 117 -ASCII\’ FOLLOWING DATA IS THE STATUS AND EXTENDED STATUS FROM REGION FFFE ‘N\ 

126 002656 122 064 eASCIINRS\ 

127 002657 000 “BYTE 

128 002660 042 104 111. MS59: ~~ .ASCII\' DIAGNOSE OF REGION ID ‘H8N\ 

129 002676 000 BYTE 0 

130 002677 042 124 111. MS60: ~ .ASCII\''TIMEOUT ERROR OCCURED DURING RECEIVE XFC'N\ 

131 002724 000 -BYTE 

132 002725 042 061 123 MS61: ~—.ASCII\''IST WORD NOT START FRAME DURING RECEIVE XFC’N\ 

133 002754 000 -BYTE 0 

134 002755 116 MS62:  .ASCII\N\ 

135 002755 042 106 122 -ASCII\" FRAMING ERROR CCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC'N\ 

136 003015 000 : 


-BYTE 
137 003016 116 MS63: -ASCII\N\ 
138 003016 042 105 110 a ERROR OCCURED ON SDI LEVEL 0 READ DURING RECEIVE XFC’N\ 


140 003057 116 MS64: -ASCII\N\ 
141 003057 042 102 125 -ASCII\' BUFFER SIZE SMALLER THEN RESPONSE DURING RECEIVE XFC*N\ 
142 003113 000 -BYTE 
143 003114 116 MS65: -ASCII\N\ 
144 003114 - 042 103 117 -ASCII\"‘CODE FROM RECEIVE XFC WAS UNINTELLIGIBLE FROM SUBSYSTEM ‘'O16N\ 
145 003154 000 -BYTE 0O 
146 
147 
148 003154 DME ND 
003155 0204615 - WREDC sOUTPUT EDC FOR THIS OVERLAY 
9 ; 000001 . 


oO 


mmmovuV0000D ae | 


man 


aC ANNYNDDD D D VOBZBBBVBIFAMMNM 


-- + + ee _ — - “  egemead 


B 13 | 


| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE 59-3 7 SEQ 0156 U 
SYMBOL TABLE 0 
000003 DRCLR1 001625 GETSUB= 000210 IN.24 001074 ms59 002660 
000002 DROP = 100000 GETU 003361 IN.25 001075 mS6 = 000233 
000100 DRTYPE= 000007 GRPCYL= 000002 IN.26 001076 mS60 002677 
000040 DRVCLR= 000005 GRPOFF= 000011 IN.27 001077 MS61 002725 
DRVID = 000004 GSTST8 001761 IN.28 001100 MS62 
000401 DRVONL= 000213 GSTS3 001631 329 001101 MS63 003016 
000400 DRVRUN= 000014 GSTS6 001635 IRECLB= 000216 MS64 003057 
D.LIMT= 000001 GSTS7_ 001662 LARGE = 000001 MS65 003114 
040000 D:SCHR= 000002 GTSTAT 003522 LBHINB= 177417 MS? 000316 
000036 ECC = 000015 HBHINB= 007777 LBLONB= 177760 MS8 000350 | 
003761 ECCCHK= 010000 ONB= 170377 LBNCYL= 000000 MS? 000405 
10 ECCFLG= 010000 HDRPRE= 000005 LBNHST= 000012 = 000017 
000201 ECCRSH= 000002 HD.BAD= 110000 LBNTRK= 000011 MWRITE 001170 
000170 ECHO = 000010 HD: DBN= 140000 LINKLN= 090007 1 004417 
000777 ECHOC = 000350 HD.LBN= 000000 LOBYTE= 000377 NAM:2 004420 
ECHOD 003722 HD.PRV= 050000 LONG 004205 004421 
0 ECHO! 001553 HD: RBN= 060000 LONGTO= 000001 NEWSUB= 004000 | 
000176 ECHO2 001556 HD:REV= 030000 Low = 000002 NUMPTR= 000004 
003054 ECHO3 001573 HD.XBN= 120000 LUNIT 001315 OK.END 003562 
ECHO4 001600 HEADER= 000002 MEDTYP= 000006 ONLYCL= 0 | 
003736 ECHOS 001614 HIBYTE= 177400 MESSAG= 000015 OUT.RQ 001006 
004177 = 100000 HICYL = 000001 MICREV= 000003 OUT.01 001007 | 
003730 ERECOV= 000006 HIDBN = 000003 MRD = 000016 OUT:02 001010 | 
004161 ERHARD= 001000 HILBN = 000002 MREAD 001152 OUT:03 001011 | 
003745 ERLEV = 000002 HIMEM = 010000 Msi 00000 OUT:04 001012 | 
20 ERRMC = 000014 HIRBN = 000003 mS10 000475 OUT:05 001013 
040000 ERRMES= 000013 HIXBN = 000002 MS11 000527 OUT:06 001014 | 
000002 ERRN = 000040 HOSTRO 000751 MS12 000564 OUT:67 001015 
000020 ERRTYP= 100000 HRDREV= 000003 MS16 000655 QUT:08 001016 | 
5 ERSOFT= 001400 ILOOP 001523 MS17 000744 OUT:09 001017 | 
000022 ER.END 003557 INITW = 040000 mMS18 000777 OUT:10 001020 | 
0 EXIT = 000021 INSEEK= 000012 mS19. 001035 OUT:11 001021 | 
020000 EX.END 003563 INTEDC= 000105 mMS2 000050 QUT: 12 | 
1 FB:DAT= 000000 IN.RQ 001044 mS20 001125 OUT:13 001023 
002119 FB.EDC= 000400 IN:01 001045 MS26 © 001226 OUT:14 001024 | 
45 FCTSIZ= 000010 IN:02 001046 MS27 001316 QUT:15 001025 | 
00037% FFC = 177774 IN.03 001047 MS28 001350 OUT.16 001026 
FFFD = 177775 IN.04 001050 Mss 000074 OUT:17 001027 | 
FFFE = 177776 IN.05 001051 mS30 001406 OUT:18 001030 | 
010000 FIRSTU= 007723 IN.06 001052 MS36 001440 OUT:19 001031 | 
000204 FNDASC 003644 IN.07 001053 MS37 001526 OUT:20 001032 
003630 FORMAT= 000001 IN.08 001054 mS38 © 001557 OU 001033 
6 FRAME = 000 IN.09 001055 Ms4 000130 OUT: 22 34 
001513 FREE 004423 IN.10 001056 MS4O 001613 QUT:23 001035 
002315 FSTOP = 100000 IN.11 001057 ms41 001715 OUT:24 001036 
002313 FTIME = 001000 IN.12 001060 MS42 002013 OUT:25 001037 
002340 FTLDEV= 000400 IN.13 001061 mMS43 002100 OUT:26 001040 
FTLSYS= 000000 IN.14 001062 mss 000170 OUT: 27 
002372 FT.BUF= 000000 IN.15 001063 ms50 002165 OUT:28 001042 | 
002424 FT:HI = 000001 IN.16 001064 ms51 002226 OUT:29 001043 
002547 FT:LOW= 000002 IN.17 001065 ms52 002271 OVERFL= 000002 
002705 GCC.EN= 000170 IN.18 001066 ms53 002370 OVE .MN= 000714 
00 CR’ 004204 IN.19 001067 MS54 © 002431 OVE :MS= 
002556 GETBCN 003114 IN.20 001070 ms5S 002461 OVL:MN= 003510 G 
002631 GETCHR= 000207 IN.21 001071 mMS56 = 002511 OVL:MS= 003156 G 
003743 GETST 003735 IN.22 001072 mMS57 002547 OVL...= 006666 
003744 GETSTA= 000011 IN.23 001073 mS58 =—-002613 OvSIRT= 007774 | 





a 


aReeninaieSEaicy ce ame cPeaenaam 
UDAT2 DISK RESIDENT MACRO X04.00 9=JUL~81 11:39:12 PAGE 59-4 
SYMBOL TABLE 


OVS .MN= 
OVS. MS= 


aD 
m 
< 
” 
non nbn hb tn ne 


- ABS. 


001040 G RW.ANG= 000006 
010260 G RW.BUF= 000001 
06 Rw.CMD= 000004 
001445 RW.HI = 000003 
001450 RW. LOW= 
001505 RW.SDI= 000005 
Rw. STA= 000000 
0 SAVREG 001316 
000200 SAVRID 003721 
SAVSTA 003720 
000415 SBCRES= 000167 
SCTWRD= 000377 
000001 SDI 003717 
000014 SDILTO 001151 
000005 SDISTO 001150 
000004 SDIVER= 000000 
000001 SEKINP= 002000 
SEND = 000004 
002737 SEQSEK= 000100 
000162 SHRTTO= 000000 
000215 SNDAGN 000756 
000720 SPADJU 001312 
002054 SS = 000001 
100 ST 004215 
177777 STACK 001357 
1 START 001360 
001301 STATEX 000746 
001236 STATLP 000724 
001275 STATOK 000737 
20000 STATUS= 000007 
000004 STSIZE= 000200 
1 STSRES= 000366 
000400 ST.C_ = 000002 
000004 ST.CON= 000002 
0 r ST.DB = 001000 
004 ST.DF = 000020 
004000 ST.DIA 001742 
013400 ST.DR = 000040 
00000 ST.ERR= 000002 
001000 ST.FE = 000200 
190000 
016614 oo 


000000 00 
ERRORS DETECTED: 0 


VIRTUAL 
DYNAMIC 


69 PAGES 
UDAT2.BIN,A:UDAT2B/C=[1, 33JDMACRC,UDAT2T, DAT? UDATR,UDAT2M,UDAT2S 


-_—_——— 


MEMORY USED: 4377 WORDS a 18 PAGES) 
MEMORY AVAILABLE FOR 





ST.MSK= 000000 
ST.OA = 000200 
ST.PE = 000040 
ST.PS = 000002 
ST.RE = 000100 
ST.RR = 000100 
ST.RTY= 000003 
ST.RU = 000001 
ST.SR = 000020 
ST.STA= 000001 
ST.S7 = 000400 
ST.UNT= 000000 
ST.WE = 000010 
SUB. _= 000013 


TIMEOU= 000001 


TLEN.U= 000055 
TO 


T00 001724 
TIMSIZ= 000000 
T2CMD = 000002 
T2DLL = 000001 
T4BB1 = 000005 
T4BB2 = 000006 


UNITO = 000001 
UNIT1 = 000002 
UNIT2 = 000004 
UNIT3 = 000010 


U.MBN = 000035 


. ” 6 a s . . - a 

NNMMHMDD wvuvuz2z33 
MOVE ADO, RPUNAMA 
Meare 4 DS asm 
KXonr-o~x<x of O2aC< 

ee " nwuu 


COCCCCCCCCCCCCcCecc]e 
: g 
iT wun i 


XREAD 


? 


000003 


SEQ 0157 


J 


—_——— 


Pea : D3 
| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL-81 11:39:12 PAGE S=1 
CROSS REFERENCE TABLE (CREF V01-05 ) 


| ARGSS 32-46 32-464 33-18 33-18 33-184 33-184 33-23 33-234 
5-35 35-354 36-6 36-6 36-64 36-64 36-9 36-94 
40-30 40-304 41-18 41-184 41-55 41-554 41-58 41-584 
47-40 47-408 48-23 48-234 48-26 48-264 48-32 48-324 
55-17 55-174 55-19 . 55-194 55=24 55-244 

| ATTN 6-224 

AVAIL 6-244 

BEUSED 8-334 

BF DAT 3-624 

BF.ECC 3-644 

BF.EDC 3-634 

BREAK 4-34 53-18 

BUF 1 57-384 

BUFFLG 3-474 

BUFSIZ 22-15 22-20 23-684 

CHECK 5-674 

CHGMOD 6-324 

CHRRES 6-434 36-7 36-9 36-9 

CLRBUF 22-254 22-27 

CLRDRV 35-13 42-6 55-84 

COMPAR 4-94 

COMPLT 6-414 48-30 48-32 48-32 55-22 55-24 55-24 

CONMEM 41-11 41-30 41-48 42-32 43-48 45-12 45-24 49-274 

CR.DIA 40-12 57-504 

CR.DRC 55-8 57-304 

CR.GCR 36-5 57-454 

CR.GST 52-26 54-8 57-274 

CR.RDM 47-23 57-404 

CR.WRM 38-20* 43-35% 43-36% 43-73% 48-15 57-344 

CVT 4-194 

D.LIMT 8-44 

D.SCHR 8-54 

DATAVL 41-21 41-39 41-49 57-844 

DATCMP 8-384 

DATERR 8-204 

DATPRE 5-334 

DBNCYL 5-424 

DCMPAL 8-404 

DCYLS 8-254 

DIA 40-9* 57-50 57-514 

DIA.EN 490-28 40-30 40-30 57-784 

DIA.OP 57-51 57-754 

DIAG.1 37-8 46-5* 46-13* 57-644 

DIAGNS 37-12 37-25 40-84 43-75 43-79 

DINIT 4-124 33-12 52-16 

DIREC 8-134 

DISCON 6-304 

DIv50 44-7 44-10 4-17 44-19 56-134 

DO.DC4 42-44 43-53 45-26 

DO.DCL 42-54 42-10 42-16 

DO.DIO 42-20 42-29 45-9 45-21 46-34 

DO.DI1 42-36 43-34 

DO.DI2 32-56 43-224 

DO.DI3 42-38 43-784 

DO.DI6 45-16 45-264 

DO.DI7 32-27 44-34 


(oa SSP 


54-144 


34-244 
40-204 
47-314 
54-164 


54-21 


SEQ 0158 


34-314 
40-234 
47-344 
54-214 


, Ul 


-—_———-------- 


| UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE S=2 


ge: REFERENCE TABLE (CREF v01=05 ) 


4-64 
(DO:DI9 41-19 41-32 41-56 
DONE 5 
DONECD 32-105# 32-107 33-18 


DRCLR1 35-8 5-13" 35=34 





rn 
ao 
z 
Ww 
lw 
' 
Nm 
fo) 
Ww 
> 
1 
— 
— 
Ry 


ERRTYP 41-16 41-36 57-834 


FFFD 42-22 57-88 57-894 


FNDASC 44-73 44-23 56-298 


41-59 


33-18 


34-354 
57-20 


57-90 


45-28 





E 13 


33-18 33-18 
34-224 34-24 
-o 36-6 
37-264 40-20 
41-18 41-18 
44-254 47-31 
48-23 48-23 


55-19 55-19 


55-194 


33-184 
34-31 
36-64 
40-23 
41-55 
47-34 
48-26 
54-21 
55-24 


33-184 
34-31 


SEQ 0159 


UDAT2 DISK RESIDENT MACRO x04, * A pelted 11:39:12 PAGE S=3 


CROSS REFERENCE TABLE (CREF VvO1-05 


GETBCN 41-24 41-42 50-298 
GETCHR 6-368 57-46 57-768 


GSTST8 37-134 37-27 38-28 
{|GTSTAT 35-6 35-22 42-12 
HBHINB 5-568 52-48 53-10 


5 
5 
HIBYTE Sor 32-36 34-13 
5 
5 


HI XBN -27# 
HOS TRO ew 29-38 32-106 


iL 
IN.01 23-39% 37-16 43-5 
IN.0O2 23-40H 37-10% 37-26 





39-24 
54-84 


39-20 


46-16 


49-30 


41-31 


53-6 
38-11 


49-36 


43-17 


39-10 


50-33 


45-25 


40-9 


50-38 


50-53 


43-74% 


50-75 


51-22 


43-78* 


55-10 


51-26 


SEQ 0160 


51-30 51-34 51-38 51-40 


| 
| 
| 


UDAT2 DISK RESIDENT MACRO 04.00 he tecalach 11:39:12 PAGE S=4 


CROSS REFERENCE TABLE (CREF v01-05 


22222222 
rMrnrnw—--+ > 


a =r si dt Ot Oe et et et ee ee 
2222 
ee 
mnrnrn 
Runs 


23-528 
23-5 34 


34092 


23-384 


36-13 


23-68 


36-17 


43-41 


32-53* 


45-2) 


52-55 


43-45 49-32 


i a oa es | 
50-53 S1=22 ss S1=260 $1230 


EP Sate AS ee ON iD A ah SO FEM 


57 


-38 


51-40 


SEQ 0161 


(Dn 


UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE S=5 
CROSS REFERENCE TABLE (CREF vO1=05 ) 


MS40 41-18 
MS41 41-31 
/MS42 41-55 
1MS63 41-58 
iMS5 34-24 
/MSSO 36-6 
| MS51 36-6 
'MSS2 36-9 
iMS53 59-1078 
1MS54 59-1114 
;MS55 59-1154 
iMS56 44-25 
|MS57 32-46 
MS58 45-25 
MS5S9 59-1284 
MS6 34-3) 
MS60 51-22 
MS61 51-26 
MS62 51-30 
“S63 51-34 
MS64 51-38 
MS65 51-40 
MS7 54-14 
MS8 54-16 
MS9 54-21 
MwR 4-184 
| MWRITE 26-108 
NAM. 1 44-11* 
NAM.2 44-9 
NAM.3 44-18 
NEWSUB 8-144 
NUMPTR 41-314 
OK.END 54-20 
ONLYCL 8-304 
OUT.01 22-22 
OUT.02 23-74 
51-40* 
OUT.03 23-84 
tT. 23-98 
OUT.05 23-104 
OuT. 23-114 
OUT.O7 23-124 
OUT. 23-134 
OUT.09 23-144 
QUT.10 23-154 
OUT.11 22-23 
OUT.12 23-174 
OUT.13 23-184 
OUT.14 23-194 
OUT.15 23-208 
OUT.16 23-214 
OUT.17 23-224 
OUT.18 23-234 
OUT.19 23-2464 
OUT.20 23-254 
OUT.21 23-264 
OUT.22 23-278 


59-1038 


59-1198 
59-1214 
59-1244 


59-204 


44-25 
44-25 
44-25 


51-224 
29-13 

39-17« 
46-11% 


45-11 
41-10 


50-36 


57-664 
S7-674 
57-684 
51-264 
37-6" 

41-31 


51-40* 
45-13 


50-72* 


51-304 


38-24 
45-25* 


46-12* 


50-75* 


51-344 51-384 51-40 51-40 51-404 
39-16% 46-48 50-46 50-55 

46-7* 46-9" 50-53* 51-228 51=26* 
50-77* 


51-404 


51-30* 


51-34* 


SEQ 0162 


51-38* 


-———_—_—— 


I 13 
UDAT2 DISK RESIDENT MACRO K04.00 9=JUL=-81 11:39:12 PAGE S=6 SEQ 0163 
CROSS REFERENCE TABLE (CREF vO1=05 ) 


(QUT.29 53-348 50-50 50-59 
'OUT.RQ 22-13% 22-14 23-54 
A a 59-4 59-4 59-4 «59-148 59-148 


™/.... 2°39 2-398 = 59-4 59-48 59-148 5y=1488 
OV..MN = 2=39 2-39 59-4 59=4 59-44 
OVL.MS 59-148 59-148 59-1484 


PORTO 32-22 32-47 32-598 


PORT5 32-83 32-91 32-1018 
ae. ee + ee | ee ee 


48-32 48-32 48-32 48-32% 44-21 54-21 54-21 54-21 54-21% = 54-218 = 5-24 55-24 55-24 55-24 


 [ieaeaameoeamaiane en —~ — - — — — 


J 13 
“pare DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE S=7 SEQ 0164 
| CROSS REFERENCE TABLE (CREF v01-05 ) 


lactesz 5-404 
/RCV 


4-84 24-30 52-36 
RCVERR 6-23 21-17 
RCVRDY 6-218 33-19 Se-21 
;R 39-10" 39-11" = 3o=12e =—41=3* 41=4* 4i-5S* 41-25% 41-41% 8 42=22e = 42-25% 42-24% 4 5=hs 45=-5* 45=6* 
45-17* 45-18" 50-82" 57-40 57-418 


(ROM.EN 47-38 9 47-40 = 47-40 = 57=778 


IRDMEM 39-14 41-6 i; an oe. ne 45-19 &7=214 
RDSTAT 21-28 33-18 52-13 52=18 


REGS$ 32-46 32-46 32-464 33-18 33-18 35-184 33-184 33-23 33-234 34-22 34-22 34-224 34-24 34-24 
34-248 34-31 34-31 34-31 34-31 34-31 34-31 34-314 34-31% 34-314 35-35 35-35 35-35 35-35 
35-35 35-35 35-35 35-354 35-354 35-354 36-6 36-6 36-64 36-64 36-9 36-9 36-9 36-9 
36-9 36-9 36-94 36-94 36-94 37-26 37-26 37-26 37-26 37-26 37-264 37-264 37-264 40-20 
40-204 40-23 40-234 40-30 40-30 40-30 40-30 40-30 40-30 40-304 40-304 40-304 41-18 41-184 
41-55 41-554 41-58 41-584 44-25 44-25 44-25 44-25 44-25 44-25 44-25 44-25 44-25 44-254 
44-25% 44-25 47-31 47-314 47-34 47-344 47-40 47-40 47-40 47-40 47-40 47-40 47-40# 47-408 
47-408 48-23 48-234 48-26 48-264 48-32 48-32 48-32 48-32 48-32 48-32 48-324 48-324 48-324 
54-14 54-144 54-16 54-164 54-21 54-21 54-21 54-21 54-21 54-21 54-214 54-214 54-214 55-17 


5 ‘ 
REGUS 34-31 34-31 34-314 35-35 b daa 35-354 36-9 36-9 36-94 37-26 37-26 37-264 40-30 40-30 
40-308 44-25 44-25 44-25 44-25 44-258 44-258 44-254 47-40 47-40 47-408 48-32 48-32 48-324 
54-21 54-21 54-214 55-24 55-24 55-244 


RERROR 29-7# 32-46 33-18 33-18 «= 33-23 34-22 34-24 «= 84-31 35-35 36-6 36-6 36-9 37=26 40-20 
60-23 40-30 «61-18 3 41-55. 61-58 4h-25 0G 7~ 81h 73474 hBH23 RDG 452 Sw 14 Sm 16 
54-21 55-17 55-19 5524 





REVECT 5-634 
REVS 5-164 
5-328 





S 7-64 
S.ERR 41-35* — 41-52* 57-624 


ae 


5: SRC SRN NORE peeR EE SE S-p 


UDAT2 DISK RESIDENT MACRO x04.00 Se eps 11: 39: 12 PAGE S-8 


CROSS REFERENCE TABLE (CREF v01-05 ) 


7-56 

7-53 

7-66 

7-55 

32-34% 32-36% 
43-54 44-25 
43-4 43-78 
37-2 57-154 
32-97" 32-100 
48-16 57-134 
24-464 36-19* 
24-454 36-4 
24-18 52-29 
36-12 
22-18 
29-404 

35-30 35-35 
43-14 43-29 
57-40 57-45 


37-3 42-19 


35-31 


21-18 21-224 
21-14 21-20 


43-32 57-40 
54-19 54-21 





32-37 
44-25 
57-164 


33-11 


36-15* 


35-35 
43-39 
57-50 


57-S6a 
54-21 


34-31% 
47-40* 


41-9 


36-16 
43-46* 


39"32 
48-32 


41-28 


36-9 
54-21 


42-5 


42-18 
50-47 


37-26 
55=24 


43-50 


42-34 
52-46 


37=26* 
55-24" 


45-10 


42-35* 
55-9 


SEQ 0165 


40-30* 


46-3 


43-10 
57-30 


on 


L 13 


UDAT2 DISK RESIDENT MACRO X04.00 9=JUL-81 11:39:12 PAGE S=¢ SEQ 0166 
CROSS REFERENCE TABLE (CREF v01-05 ) 

SUB 5-228 
iI 36-44 

' TOO 36-8 36-128 

TIMSIZ 6-34 


T2CMD 6-54 37-14 
T2DLL 6-44 43-16 


24-424 
47-25 48-17 54-9 55-12 


35-25 36-6 36-6 36-10 37-19 42-11 42-17 46-214 


51-164 





roo Ce ee ee ee 
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UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE S=10 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


M 13 


UDAT 25-14 25-16 26-11* $573 26-208 


UNI TO 5-464 32-31 32-78 


UNITNB 32-55* 32-95* 32-99 44-3* 57-104 
UNITS 32-29 32-80 52-10 53-7 53-16 57-58 


UREAD 4-148 25-15 43-33 


WRITE 37-21 38-104 
WRM 38-11% 38-12* 38-17% 38-18% 38-19% 43-4« 43-20% 43-37% 43-38% 43-42% 43-47 


WRM.OP 57-35 57-734 
WRTMEM 38-22 43-51 48-154 


XMTERR 6-254 21-11 
OR 


43-55* 


43-72 


SEQ 0167 


57-34 


-————— 


UDAT2 DISK RESIDENT MACRO X04.00 9=JUL=81 11:39:12 PAGE M~1 


CROSS R 


RSTRS 


UDAT3 


RENCE 


TABLE (CREF VO1=05 ) 


34-31 35-35 36-9 37-26 
34-31 35-35 = 36-9 37-26 


36-6 


40-30 


51-26 
57-45 


51-26 
59-148 


DISK FUNCTIONAL MACRO K04.00 9-JUL-81 01:13:55 
TABLE OF CONTENTS 


1 
1 


1 
1 
1 
1 
1 
1 


UDA _DM PROGRAM PARAMETERS 
TEST 4 SPECIFIC INFORMATION 
MACRO DEFINITIONS 

START OF TEST CODE 


RDSTAT = GET DRIVE*S REAL TIME DRIVE STATE 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, FIC. 


DISK DRIVE SEQUENCER 


INITIALIZE DRIVE AND .OOk AT DRIVE SIGNALS 


N 13 


36-6 
48-32 


36-6 
48-26 


48-32 
51-40 


36-9 
55-24 
47-45 


45-25 


55-24 
55-24 


36-9 
54-14 


36-9 
48-32 


54-21 


37-26 


49-45 
47-22 


37-26 
54-16 


37-26 
54-14 


55-24 


40-30 


50-53 
49-27 


SEQ 0168 


40-20 
54-21 


40-20 
54-16 


40-30 
50-83 
50-29 


8 14 
~UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 2 SEQ 0169 
DIAGNOSTIC MACHINE MACROS = OVERLAY VERSION - 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


| 1 .TITLE UDAT3 DISK FUNCTIONAL 

| ? ; 

5 : COPYRIGHT (C) 1980 

y ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
2 : 

| 9 : THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
10 : SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
17 : OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
12 : COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AAVAILABLE 
13 : TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
14 : WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND ONE RSHIP OF 
15 > THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 
17 : THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
12 * NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
19 + EQUIPMENT CORPORATION. 


“THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 
[USING 4 COMMAND LINE SIMILAR TO: 


: UDAT3.BIN,UDAT3/C=C1,2JDMACRO, UDAT 31 ,UDATP, UDAT 3M, UDATR, UDAT 3S 
1ESTG = 0 : THIS IS NOT TESTS 
.ENABL ABS 
DMCODE UDAT3.0.714,3,0 





bry¥4 DISK FUNCTIONAL MACRO 06.00 9-JUL=81 07: 


DM PROGRAM PARAMETERS 


1 
2 
3 
4 
' 5 
6 
| 7 
} 8 
9 010000 
10 0077746 
1 
18 
14 
15 000000 
16 000001 
17 000002 
18 
19 
20 
21 
22 000000 
23 600400 
24 
25 
26 
27 
28 000000 
29 000001 
30 000002 
31 000003 
32 000004 
33 000005 
34 000006 
35 
36 
37 
38 140000 
39 040000 
40 100000 
41 000000 
42 100000 
43 122400 
44 013400 
45 010000 
46 100000 
47 040000 
48 
49 
50 
51 
52 000000 
53 060000 
54 030000 
55 110000 
56 050000 
57 120000 


- SBTTL 


© Tee ee ee tees 
<* 

<a 

Dz 

4 


Be Be Se Be FU FFG Be Be Ge HU FN Rs Oe Be Oe 
4-4 
° 
ae. 3 
?~ 


13:55 PAGE 3 


C 14 
SEQ 0170 


UDA DM PROGRAM PARAMETERS 
-LIST MEB 


EQUATES 
HIGHEST 


OFFSETS 


USABLE LOCATION OF UDA MEMORY + 1 


10000 ; HIGH MEMORY+1 
777% : OVERLAY ADDRESS LOCATION 


FOR FORMAT TRACK TABLE 


0. ;BUFFER POINTER OFFSET 
16 zHI] ORDER HEADER OFFSET 
é. ;LOW ORDER HEADER OFFSET 


FOR FORMAT TRACK BUFFER 


0. FIRST DATA WORD CFFSET 
256. sEDC WORD OFFSET 
FOR READ/WRITE I/0 CHAIN TABLES 


0. 7STATUS AND NEXT BUFFER POINTER OFFSET 
Te sPOINTER TO DATA BUFFER 

é. zHI ORDER EXPECTED HEADER 

, ;LOW ORDER EXPECTED HEADER 

4. :SDI1 COMMAND AND HEAD ADDRESS 

5. ;DUMMY SDI CONTROL BLOCK POINTER 

6. ; THETA FROM INDEX 


CONSTANTS FOR READ AND WRITE XFCS 


140000 ; LAST ENTRY IN CHAIN FOR WRITE 
40000 ; WRITE CONTINUE 

100000 ; LAST ENTRY IN CHAIN FOR READ 
0 ; READ CONTINUE 

100000 : LAST ENTRY IN CHAIN FOR FORMAT 
122400 : WRITE REAL TIME ECOMMAND 

13400 ; READ REAL TIME COMMAND 

10000 ; ECC ERROR IN BUFFER BIT 

100000 ; END OF CHAIN 

40000 ; BUFFER FULL OR EMPTY FLAG 


HEADER CODES 


000000 ;GOOD LBN 
060000 :GOOD RBN, PERHAPS UNUSED 
030000 SREVECTORED LBN 
10000 ;BAD BLOCK 
050000 PRIMARY REVES TORED BLOCK 


120000 7; XBN BLOCK 


ss SS Sh —— — ae 


| 


| D 14 


UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 3-1 SEQ 0171 
UDA DM PROGRAM PARAMETERS 

38 14000¢ HD.DBN = 140000 ;DBN BLOCK 

rs ; OFFSETS FOR DATA BUFFERS 

62 000000 BF.DAT = 0. DATA 

63 000400 BF.EDC = 256. ERROR DETECTION CODE 
4 000401 BF.ECC = 257. LAST 17 ECC RESIDUES 

% : BUFFER AND READ/WRITE CHAIN LINK SIZES 

68 000401 wAUFLN = 257. ; WRITE BUFFER SIZE 

69 000415 RBUFLN = WBUFLN+12. : READ BUFFER SIZE 

70 000007 LINKLN = Fs : LINK SIZE 


[ore en ee sientethaemnniiineneemoneminiasinantitiss — 
} 
{ 
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/UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 4 SEQ 0172 | Ul 


UDA DM PROGRAM PARAMETERS M 
! “hes XFC DEFINITION EQUATES 
3 000000 BREAK = G. ;BREAKPOINT XFC CODE 
4 000001 FORMAT = 1. ‘FORMAT TRACK XFC CODE 
5 00002 XREAD = 2. [READ N SECTORS XFC CODE 
6 000003 XWRITE = 3. SWRITE N SECTORS XFC CODE 
? 00004 SEND —s = ‘. ‘SEND SDI COMMAND XFC CODE 
8 000005 RCV - 5. SRECEIVE SDI MESSAGE XFC CODE 
g 000006 COMPARE = 6. ;COMPARE DATA PATTERN TO BUFFER | 
| 10 000007 STATUS = r. “RETURN DRIVE STATUS XFC CODE | 
11 000010 ECHO = 8. sECHO DATA TO DRIVE XFC CODE 
12 000011 DINIT = 9. SDRIVE INITIALIZE XFC CODE | 
13 000072 WAITS] = 10. ‘WAIT FOR SECTOR OR INDEX PULSE | 
14 000013 UREAD = 11. “READ UNIBUS MEMORY XFC CODE 
15 000014 UWRITE = 12. [WRITE UNIBUS MEMORY XFC CODE 
16 000015 ECC = 13, “DO ECC ON BUFFER XFC CODE 
17 000016 MRD = 14. *SEND BUFFER TO MAINTENANCE READ COMMAND 
18 000017 MWR = 15. ‘GET BUFFER FROM MAINTENANCE WRITE COMMAND 
19 000020 CVT 2 16. [CONVERT TO PHYSICAL ADDRESS XFC CODE 
20 000021 7) gage 17. ‘TERMINATE DM PROGRAM XFC CODE 
22 ; GET STATUS OFFSETS 
24 0000 ST.UNT = 0. :UNIT NUABER 
25 000000 ST.MSK = 0. * SUBUNIT MASK 
26 01 ST.STA = 1. =STATUS BYTE 
27 000001 ST.MOD = 1, ‘MODE BYTE 
28 ST.ERR = i ‘ERROR BYTE 
29 000002 ST.CON = Zz, : CONTROLLER BYTE 
30 000002 ‘ae 2 :C BITS 
31 000003 ST.RTY = 3 “RETRY COUNT/FAILURE CODE 
33 : STATUS BIT DEFINITIONS 
35 200200 ST.OA = 200 : ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
36 000100 ST.RR = 100 : READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
37 000040 ST.DR = 40 + DIAGNOSTIC REQUEST (SET IF DIAGNOSTIC REQUESTED) 
000020 ST.SR = 20 + SPINDLE READY (SET IF SPINDLE READY) 
29 000002 ST.PS) = 2 ‘ PORT SWITCH (SET IF PORT SWITCH IN) 
40 000001 ST.RU = > RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
41 000200 ST.FE = 200 : FATAL ERROR (SET IF FATAL ERROR OCCURRED) 
42 000100 ST.RE = 106 + RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
43 000040 ST.PE = 40 * PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
44 0020 ST.DF = 20 : INITIALIZATION FAILURE (SET IF INIT FAILED) 
45 000010 ST.WE = 10 : WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
46 002000 ST.FO. = 2000 + FORMATTING (SET IF FORMATTING ENABLED 
47 001000 ST.DB = 1000 > DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
48 000400 ST.S7. = 400 + SECTOR SIZE (SET FOR 576 BYTE SECTORS) 





F 14 


| WATS DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 5 SEQ 0173 
| UDA DM PROGRAM PARAMETERS 
| ! 3 GET COMMON CHARACTERISTICS OFFSETS 
| 3 000000 SHRTTO = 0. SHORT TIMEOUT <3:0> 
4 000000 SDIVER = 0. :SDI VERSION <7:4> 
5 00000 XFERRT = 0. > TRANSFER RATE <15:0> 
6 000001 LONGTO = a LONG TIMEOUT <3:0> 
| 7 000001 ETS rs 1. RETRIES <7:4> 
8 000001 RCTCPS = ‘. sF/RCT COPIES <11:8> 
| 9 00000 Ss 2 1. SECTOR SIZE <15:15> 
10 000002 ERLEV = 2. ERROR RETRY LEVELS <7:0> 
11 000002 FCCRSH = + ECC THRESHOLD <15:8> 
12 000003 MICREV = 3. MICROCODE REVISION NUMBER <7:0> 
13 00000 HRDREV = - 5. HARDWARE REVISION NUMBEP <15:8> 
14 000004 DRVID = 4. UNIQUE DRIVE ID <47:0> 
15 000007 DRTYPE = 7. DRIVE TYPE IDENTIFIER <7:0> 
16 000007 REVS = 7. s;REVS/SECOND <15:8> 
i 4 3 GET SUBUNIT CHARACTERISTICS OFFSETS 
20 Z THESE OFFSETS ARE= CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 SUB = 1. OFFSET TO PUT SUBUNIT AFTER COMMON; 
2 600000 LBNCYL = 0. “NUMBER OF CYLINDERS IN LBN AREA <31:0> 
24 000001 HICYL = iF HI ORDER CYLINDER BITS <15:12> 
25 000002 GRPCYL = ‘GROUPS PER CYLINDER <7:0> 
26 000002 HILBN = + sHI STARTING LBN <11:8> 
27 000002 HIXBN = 2. zHI STARTING XBN <15:12> 
28 00000 TRKGRP = a, ; TRACKS PER GROUP <7:0> 
29 000003 HIRBN = 3, :HI STARTING RBN <11:8> 
30 00000 HIDBN = 3. ZHI STARTING DBN <15:12> 
31 000004 RBNTRK = 4. :RBNS PER TRACK <6:0> 
32 000004 M = 6. REMOVABLE MEDIA <7:7> 1=REMOVEABLE 
33 000005 DATPRE = .. DATA PREAMBLE SIZE IN WORDS <7:0> 
00000 HDRPRE = 5. HEADER PREAMBLE SIZE IN WORDS <15:8> 
35 000006 MEDTYP = 6. sMEDIA TYPE <31:0> 
36 000010 FCTSIZ = 8. sFCT COPY SIZE <15:0> 
37 000011 LBNTRK = 9. *LBNS PER TRACK <7:0> 
38 0000 GRPOFF = 9. GROUP OFFSET (SECTORS) <15:8> 
39 000012 LBNHST = 10. LBNS IN HOST AREA <31:0> 
40 000014 RCTCSZ = 12. RCT COPY SIZE <15:0> 
41 000021 XBNCYL = 17. :CYLS IN XBN AREA <15:0> 
42 000022 DBNCYL = 18. CYLS IN DBN AREA <15:8> 
° ; UNIT CODES 
46 000001 UNITO = 1 UNIT ZERO CODE 
47 000002 UNIT1 = 2. UNIT ONE CODE 
48 000004 UNIT2 = 4. UNIT TWO CODE 
‘° 000010 UNIT3 = 8. *UNIT THREE CODE 
51 : BIT MASK DEFINITIONS 
5 : 
54 177400 HIBYTE = 1774600 :HIGH BYTE MASK 
55 000377 LOBYTE = 000377 LOW BYTE MASK 
56 007777 HBHINB = ?777 HI] BYTE, HI NIBBLE MASK 
57 170377 HBLONB) = 170377 7H] BYTE, LO NIBBLE MASK 





zc 
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-UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 5-1 SEQ 0174 
| UDA DM PROGRAM PARAMETERS 
58 177417 LBHINB = 177417 7L0 BYTE, HI NIBBLE MASK 
| 29 177760 LBLONB = 177760 [LO BYTE, LO NIBBLE MASK 
61 000001 TIMEOUT = - :DRIVE TIMEOUT CODE 
| 62 900002 HEADER = 2. ‘HEADER COMPARE FAILURE CODE 
65 000004 REVECT = 4. TREVECTOR NEEDED CODE 
65 000002 WRONG = a :FIRST WORD NOT START FRAME CODE 
66 000004 FQAME == ‘. [FRAMING ERROR CODE 
4 000010 CHECK = 8. = CHECKSUM ERROR CODE 
69 000001 TOOBIG = +. :NUMBER OF WORDS EXCEEDS 7064 
20 000002 LOW ~ 2. [DM BUFFER ADDRESS IS LESS THAN 714 
22 : BIT MASK 
74 000001 LARGE = , :RLOCK NUMBER TOO LARGE 
000002 OVERFL = _ “SECTOR NUMBER LARGER THAN 16 BITS 





H 14 
| DATS DISK FUNCTIONAL MACRO X06.00 9=JUL=81 01:13:55 PAGE 6 SEQ 0175 
UDA DM PROGRAM PARAMETERS 


i 
' 


sMAINTANENCE READ/WRITE REQUEST NUMBERS 
| 3 000000 TIMSIZ = Q. ;GET FREE MEMORY PARAMETERS 
4 000001 T2DLL = 1. ;DOWNLINE LOAD DRIVE DIAGNOSTIC 
5 2 T2CMD == es :MANUAL INTERVENTION TEST 2 PROTOCOL 
6 000003 T4MPRM = Se [GET MASTER PARAMETERS FROM SW QUESTIONS 
7 0004 T4UPRM = 4. ;GET UNIT PARAMETERS FROM HW QUESTIONS 
8 000005 T4BB1 == 5. ;GET BAD BLOCKS (1 THRU 14) 
g 06 T4BB2_- = 6. GET REST OF BAD BLOCKS (15 AND 16) 
10 000007 TGSOFT = 7. ;ADD TO SOFT ERROR AND ECC COUNT 
11 000010 T4SEEK = 8. sADD 1 TO SEEK COUNT 
le 000011 T4MXFR = 9. oy: TO MEGABITS READ AND WRITTEN 
13 000012 UTOTST = 10. ;GET UNITS TO TEST 
14 000013 ERRMES = TVs [PRINT ERROR MESSAGE 
15 000014 ERRMC = 12. ;TEST 4 ERROR REPORTING 
16 000015 MESSAG = 13, > INFORMATION MESSAGE 
a 000016 DONE = 14, ;MARK DM PROGRAM AS NO LONGER RUNNING 
e é OTHER BIT DEF INITIIONS 
21 000001 RCVRDY = 1 ; RECIEVER READY 1 = READY 
22 002 ATTN = 2 ; ATTENTION BIT FOR RETURN DRIVE SIGNALS XFC 
RCVERR = “ ; RECIEVER ERROR 
AVAIL = 100 ; AVAILABLE 1 = AVAILABLE 
XMTERR = 406 ; TRANSMIT ERROR 
RWRDY = 100000 ; IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 
: SDi COMMANDS AND RESPONSES 
DISCON = 204 ; DISCONNECT DRIVE 
ERECOV = 6 ; ERROR RECOVERY 
CHGMOD = 201 ; CHANGE MODE 
DRVONL = 213 ; DRIVE ONLINE 
DRVRUN = 14 ; DRIVE RUN 
DRVCLR = 5 : DRIVE CLEAR OPCODE > 
GETCHR = 207 ; GET CHARACTERISTICS 
GETSUB = 210 ; GET SUBUNIT CHARACTERISTICS 
GETSTA = 11 ; GET STATUS 
IRECLB = 216 ; RECALIBRATE 
INSEEK = 12 ; INITIATE SEEK 
COMPLT = 176 ; SUCCESSFUL COMPLETION 
UNSSUC = 175 ; UNSUCCESSFUL onc 
CHRRES = 170 ; GET CHARACTERISTICS RESPON 
SBCRES = 167 ; GET SUBUNIT CHARACTERISTICS. RE SPONSE 
STSRES = 366 ; GET STATUS RESPONSE 
ECHOC = 350 ; DIAGNOSTIC ECHO COMMAND AND RESPONSE 
: ERROR CODES 
FTILSYS = ; SYSTEM FATAL ERROR 
FILDEV = 400 : DEVICE FATAL 
ERHARD = 1000 3; HARD ERROR 
ERSOFT = 1400 ; SOFT ERROR 
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/UDAT3 DISK FUNCTIONAL MACRO 04.00 9=JUL=81 01:73:55 PAGE 7 SEQ 0176 Ul 


| TEST & SPECIFIC INFORMATION M 
| j 
5 ~SBTTL TEST & SPECIFIC INFORMATION 
? : TEST & SPECIFIC INFORMATION 
| 5 : 
: é CONSTANTS 
8 000377 SCTWRD = 253 ; NUMBER OF WORDS IN SECTOR TO FILL 
9 000105 INTEDC = 69. ; INITIAL EDC VALUE 
10 000061 TLEN.U = U.LGRP+1 ; UNIT PARAMETER LENG 
13 007717 FIRSTU. = HIMEM=TLEN.U ; LOCATION OF FIRST ONIT PARAMETER BLOCK 
2 : UNIT PARAMETER OFFSETS 
4 ; 
15 000000 U.NEXT = ; POINTER TO NEXT UNIT (RING LINKED LIST) 
16 900901 U.SUBP = U.NEXT +1 : 4 WORDS OF SUBUNIT PARAMETER POINTERS 
17 000005 U.TIMO = U. SUBP+4 ; AREA TO STORE VARIOUS TIMEOUT VALUES 
18 U.RWTIO = U.TIMO+1 ; READ/WRITE TIMEOUT AREA 
19 U.SEEK = U.RWTO+1 ; NUMBER OF SEEKS ISSUED 
U.NFUN = U.SEEK+1 ; NEXT FUNCTION se (FOR DEFERRED CALLS) 
U.PAT = U.NFUN+1 ; PATTERN NUMBER TO WRITE 
U.CCNT = U.PAT+1 ; CURRENT COUNT OF T/G LOOPS 
U.PCTG = U.CCNT+2 ; POINTER TO CURRENT TRACK OR GROUP 
U.CTRK = U.PCTG+1 ; TRACK COUNT FOR GROUP OPERATIONS 
U.NSEC = U.CTRK+1 ; NUMBER OF SECTORS R/W THIS TRY 
U.MSEC = U.NSEC+1 ; NUMBER OF SECTORS TO BE R/W 
Y.TSEC = U.MSEC+1 ; NUMBER OF SECTORS TO BE ap THIS OP 
U.CSEC = U.TSEC+1 ; COUNT OF SECTORS R/W SO F 
U.MASK = U.CSEC+1 : UNIT MASK FOR XFC CALLS (0601 - 1000) 
U.WRIT = U.MASK+1 ; WRITE PROTECTION STATUS 
U.ELEV = U.WRIT+? ; CURRENT ERROR RECOVERY LEVEL 
U.RTRY = U.ELEV+1 ; MAXIMUM NUMBER OF READ RETRIES | 
U.MLEV = U.RTRY+1 ; MAXIMUM NUMBER OF ERROR RECOVERY LEVELS 
Y.ECCT = U.MLEV+1 : ECC THRESHOLD 
U.SDIS = U.ECCT+1 ; SDI SHORT TIMEOUT 
U.SDIL = U.SDIS+1 ; SDI LONG TIMEOUT 
U.WPRT = U.SDIL+1 : MASK TO WRITE or READ-ONLY DRIVES 
U.PARM = U.WPRT +1 ; UNIT PARAMETER WORD 
U.SUBU = U.PARM+1 ; SUBUNIT OFFSET (0 = 3) 
U.MBN = U. SUBU+1 ; MASTER L/DBN 
U.CBN = U.MBN+2 ; CURRENT L/DBN FOR START OF CHAIN 
U.RBN = U. CBN+2 ; RBN TO BE READ/WRITTEN IF LBN REVECTORED 
B.COPY = U.RBN+2 ; NUMBER OF RCT COPIES ON EACH SUBUNIT 
U.CCOP = U.COPY+1 ; CURRENT RCT COPY THAT WE' - WORKING ON 
U.RWER = U.CCOP+1 ; ERROR (IF ANY) ON THE LAST R/W 
U.RVER = U.RWER+1 ; ERROR THAT OCCURRED BEFOR THE WREVECTOR OPERATION 
U.SNUM = U.RVER+1 : 4 WORDS THAT HOLD THE SUBUNIT LOGICAL NUMBERS 
U.CCYL = U. SNUM+4 ; CURRENT CYLINDER 
U.CGRP = U.CCYL+2 
ULC = U.CGRP+1 ; LAST CYLINDER SEEKED TO 
U.LGRP = U.LCYL+2 ; LAST GROUP SEEKED TO ; 
; SUBUNIT PARAMETER OFFSET 
S.PARM = 0. ; SUBUNIT PARAMETER WORD 
S.SDCL = S.PARM+1 >; STARTING DIAGNOSTIC CYLINDER 
S.PAT = S.SDCL+2 ; PATTERN TO USE FOR WRITES 
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| UDAT3 DISK FUNCTIONAL MACRO X06.00 9=JUL=81 01:13:55 PAGE 7=1 SEQ 0177 


| TEST & SPECIFIC INFORMATION 
58 000004 S.TRKL = S.PAT+1 ; NUMBER OF SECTORS IN ONE TRACK 
.. = S.TRKL41 > POINTER TO SUBUNIT CHARACTERISTICS 
S = 5. SCHR+1 + SECTORS READ (UP TO 245) 
S = 5 .MEGR+1 : SECTORS WRITTEN (UP TO 245) 
5 = S.MEGW+1 : POINTER TO BAD BLOCK AREA 
¥ = 5 .BADP+1 > START OF BEGIN/END SETS 
: IF TRACK/GROUP LIMITS ARE GIVEN, THE SUBUNIT PARAMETERS HAVE THE 
; FOLLOWING FIELDS ADDED TO THEM 
§ = S.BESS : MAXIMUM TRACK/GROUP COUNT 
5 = S.MCNT +2 > ORIGINAL TRACK/GROUP OFFSET 
S 2 S$. TGOF +2 : START OF TRACK/GROUP SETS 
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est 4 SPECIFIC INFORMATION 

| 1 

| 2 

3 

| é 000001 

| 5 000002 
6 
¢ 
8 
9 
10 100000 
1 040000 
12 020000 
13 010000 
14 004000 
15 002000 
16 00100 
17 000400 
18 000200 
19 000100 
20 000040 
21 000020 
22 000004 
23 600001 
24 
25 
26 
27 020000 
28 010000 

004000 

30 002000 
31 001000 
32 000200 
34 000100 





Soest. OOree- 
ee 
- 
_ 
= 
~ 


WCHE CK 


WCHKAL 
DATCMP 


DCMPAL 


DUMMY SDI CONTROL BLOCK OFFSETS 


1 
2 


DUMMY SDI SEARCH LIMIT 
DUMMY POINTER TO SUBUNIT CHAR=5 


Be 


UNIT PARAMETER BITS (U.PARM(RS5)) 


ee 


© 
2 


wou wou a 


100000 ; DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 

40000 ; INITIAL WRITE (SET IF INITIAL WRITE IN PROG) 
20000 ; IF 1, INDICATES THAT A SEEK IS NECESSARY 

10000 ; DIRECTION (SET IF SEQUENTIAL ACCESSES DECREASING) 
4000 ; SET IF SEQUENTIAL SEEKS MOVED TO NEW SUBUNIT 
2000 ; SEEK_IN PROGRESS = SET IF TRUE 

1000 ; FIRST TIME FLAG = SET FOR INIT CODE 

400 ; REVECTOR BIT (SET IF BLOCK REVECTORED) 

200 ; SEE IF WORKING ON RBN 

100 ; REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) 
40 ; REVECTORING OPERATION IN PROGRESS 

20 ‘ ii ; DATA ERROR IF SET 

4 ; IF CLEAR, START RETRIES AT ZERO 

1 ; RECALIBRATION BIT (SET IF RECALIBRATE JUST DONE) 
PARAMETER BITS (S.PARM(R4) ) 

20000 ; DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 

10000 ; 1 IF ECC CORRECTION ALLOWED MASTER BITS 

4000 ; READ ONLY (SET IF READ ONLY) 

2000 ; WRITE ONLY (SET IF WRITE ONLY) 

1000 ; 1 IF RETRIES ALLOWED 

200 :; SET IF ONLY CYLINDERS SPECIFIED 


; USED DURING SETUP ONLY 


100 ; SEQUENTIAL SEEK (START UP TESTING ONLY) 

40 ; BEGIN/END SETS (USED IF SET) 

20 : TRACKS OR GROUPS (TRACK IF SET) 

10 ; WRITE CHECK BIT (IF SET, WRITE CHECK WILL BE DONE) 


asp 1s ALSO USED FOR THE UNIT PARAMETERS 

4 se as WRITE CHECK ALWAYS TO BE DONE 

2 A COMPARE (SET IF DATA COMPARE TO BE DONE) 
DATCMP’ 1s. ALSO USED FOR THE UNIT PARAMETERS 

1 ; SET IF DATA COMPARE ALWAYS TO BE DONE 


nn en 


| 
| 


UDAT3 
MACRO 


1 
1 
1 


D 
D 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
i 
2 


TSK FUNCTIONAL MACRO K04.00 9=JUL=87 01 
EF INITIONS 


.SBTTL 


$D IAG$ 





:13:55 PAGE 9 


MACRO DEFINITIONS 
DIAGNOSTIC MACRO FOR TESTS OVERLAYS 


DIAG$$ 
> Nateedaegnee: 


#60000,RO 
RO, a$$) 1 AG+$D 


+] 
$DIAGS + 1 


IAG$ 


SEQ 0179 


re | 


M 14 
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MACRO DEFINITIONS 


! ; MESSAGE CONTROL TABLE MACRO 
| 3 : .MACRO MSG CMDBUF , CMDSZ,RPLBUF , RPLSZ , SUCCOM 

4 “WORD CMDBUF ADDRESS OF COMMAND 

5 .WORD CMDSZ ‘SIZE OF COMMAND IN BYTES 

6 “WORD RPLRUF SADDRESS OF REPLY 

? “WORD RPLSZ ‘SIZE OF REPLY IN WORDS 

8 _IF NB NUMBER 

- - WORD SUCCOM : SUCCESSFUL COMPLETION CODE 
1 *ENDM 


_ 





N 14 
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MACRO DEFINITIONS 


-MACRO BCS LAB.. 


wre 


« ENDM 


BCC 
BR 


-*2 
LAB.. 


SEQ 0181 


“UDAT3 DISK FUNCTIONAL 04.00 9=JUL=81 01:13:55 PAGE 12 


MACRO DEFINITIONS 


| 
AEA $OOD NO We wr 
. 


eee ons g 


B15 : 
SEQ 0182 





PUSH REGISTER MACRO 


«MACRO PUSH R9 
«IRP X,<R9> 


~ENDR 
~ENDM 


POP REGISTER MACRO 


«MACRO POP R9 
- IRP X,<R9> 


-ENDR 
- ENDM 


MOV X,=(SP) 


MOV (SP)+,x 


—_ oo ee ——_— ———= a ee —_ 
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MACRO DEFINITIONS 


ERROR MACROS 
; THESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM 
[THE MACRO NAMES ARE : ERRSF, gal ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
:BE ING > roping TO REPORT THE ERR 
ARGUMENT (MS$) MESSAGE POINTER 
(P1$) PARAMETER #1 
(P2$) PARAMETER #2 
(P3$) PARAMETER #3 
PARAMETER #4 
(P5$) PARAMETER #5 
(P6$) PARAMETER #6 
(P7$) PARAMETER #7 
(P8$) PARAMETER #8 


; THE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE OVERLAY ‘™MS** IMMEDIATELY 
[FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. #MS1, @R2). 

‘tO PAINT MUST CONTAIN AN ASCII FORMAT STRING TO DETERMINE THE MESSAGE 
:THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 

; THERE IS DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
SMESSAGE. THESE PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
;USING ANY ADDRESSING MODE DESIRED. 
SALL REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT ARGUMENTS 

; CONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 
ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


-MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
-NARG ARGSS$ 


-RADIX 10 
ey 0.MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


ODWNA UES W- 
- 
v 
* 
wn 
~ 


ee ee ee ee ee 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
20 


«MACRO ERRDF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
«NARG ARGS$ 


-RADIX 10 
—— 1,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


ist ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 


NL 

-NARG —= 

«RADIX 10 

ERRORS 2.MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 
L 


. ENDM 
git 'o gh te! de MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
»NARG ARGS$ 


«RADIX 16 
énnons 3,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


* 











ro 


D 15 
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/MACRO DEF INI TIONS 


3; THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 


| 
| 
| 


IF LT,<PRMS> 
“ee ENOUGH ARGUMENTS IN ERROR CALL 


i 
E 

| IIF GE,<PRMS-8.>,PARGS. P8$ 
IIF GE,<PRMS=-7.>,PARGS. P7$ 
IIF GE,<PRMS-6.>,PARGS. P6$ 
ite GE,<PRMS=5.>,PARGS. P5$ 
IIF 
IIF 
I] 
I 

22 AIST 


GE ,<PRMS-4.>,PARGS. P4$ 
GE,<PRMS-3.>,PARGS. P3$ 
GE ,<PRMS-2.>,PARGS. P2$ 
F GE,<PRMS-1.>,PARGS. P1$ 


RSTR$ \REGS$ 
- ENDC 
ert 10 
23 CALL RERROR sERROR # ERRNS*. 
24 «NLIST 


«RADIX 8 
«LIST 


9 OW NAUESW HOOD NAME wr 


NON SA SS - 


«WORD <PRMS*2000>+<ET$*400>+ERRN 
«WORD MS$ 


«NLIST 
ERRN=ERRN+1 
- ENDM 


-MACRO PARGS. ,ADDR$ 
-NTYPE PTYPE$,ADDR$ 
-1F EQ,<PTYPE$&70> 
he ene ESET ES SORES \REGS$ 





“LIS 
MOV ADDR$,-(SP) 
:NUIST 
"LIF £Q,<PTYPE$&7>=1 :PICK A REGISTER TO USE 
REGUS=2 ZSELECT Re IF R1 IS USED IN PARAMETER FETCH 
RESUS? SOTHERWISE USE R1 
"IF NE, <REGU$-REGS$> :IF REGISTER NOT ALREADY SAVED 
.IF GE,REGS$ 
Rstré \REGS$ :RESTORE CURRENT SAVED REGISTER 
SAVRS \REGUS$ :THEN SAVE SELECTED REGISTER 


. END 
GETP$ \REGS$,ADDR$ 
- ENDC 
- ENDM 


] 
| 
| 
| 
| 
| 


outs a = . ec icc A iain an ete 
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MACRO DEFINITIONS 


1 «MACRO _SAVR$ REGN 

2 -LIST 

3 MOV R'REGN, SAVREG 
4 «NLIST 

5 REGS$=REGN 

g . ENDM 

8 -MACRO RSTR$ REGN 

9 oL IST 

10 MOV SAVREG,R'REGN 
11 eNLIST 

12 REGS$=-1 

i? .ENDM 
15 «MACRO GETP$ REGN,ADDR$ 

16 «LIST 

17 MOV ADDR$,R'REGN 
18 MOV R'REGN,=(SP) 
19 »NLIST 
20 ~ENDM 


ere oe ee 


UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 16 
MACRO DEFINITIONS 


| 
| 





MO OWNO NEW HO OONA MEW 


noron— 3 ee es OO 


PRIMARY 
-MACRO 
ERROR 

. ENDM 
-MACRO 
IF 


ERROR REPORTING (TEST 4) 


SOF TER 
MERSOFT, 


REPSFT 
SFTFL 


NUM , ARGS 
NUM , <ARGS> 


SFTFLG,ECCFG 


NB,SFTFLG 


NB,ECCFG 


HARDER 
MERHARD, 


DEVF TL 
MFTILDEV, 


SYSFTL 
MFTLSYS, 


ERROR 
10 


#ER*NUM, 
NB, <ARGS 
X,<ARGS> 
X, \NUMPT 


NUM ,ARGS 
NUM, <ARGS> 


NUM ,,ARGS 
NUM , <ARGS> 


NUM , ARGS 
NUM , <ARGS> 


TYPE ,.NUM, ARGS 
5 
4 
> 


R 
NUMPTR + 1 


MOV 
MOV 


MOV 
MOV 


AMERRMES ,R2 
R2,0UT.RQ 


#1,0UT.02 
OUT.02 


#1,0UT.03 
OUT .03 


RO 
a 


U. SUBU(R5S) ,RO 
(RO) ,OUT.01 
AT4SOFT RO 
HOSTRQ 

RO 


MERRMC ,R2 
R2,0UT.RQ 


MERRMC ,R2 
R2,0UT.RQ 


MERRMC ,R2 
R2,0UT.RQ 


SEQ 0186 


—_— ———-— 


| 
} 
| 
| 


106 


2 8 td oe 


~byemw bate bo 
WV OOON 
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MACRO DEFINITIONS 


NUMPTR 


NUMPTR 


NUMPTR 


2:13:55 PAGE 16-1 


«ENDC 


«RADIX 
. ENDM 


-MACRO 
«RADIX 


. IRP 
MOVMSG 


- ENDC 
. ENDM 


ME SSAGE 


MOVMSG 


MOV 
BIS 
MOV 


ee STNUM,ARGS 
STNUM 
X,<ARGS> 


X,\NUMPTR 
NUMPTR + 1 


oo ARGS 
X,<ARGS> 


X,\NUMPTR 
NUMPTR + 1 


MOVMSG ARG, INDX 


LT, INDX=-10 
MOV 


MOV 


ng a POS 


POS 
\NUMPTR 


NDERR POS 
NE ,POS 
BIS 


CLR 


REPORTING MACRO 
MSSG NUM , ARGS 
10 


F 3 
#MS "NUM, 2 


SEQ 0187 


#NUM, OUT .02 
TYPE ,OUT.02 
#.,0uT.01 


ARG,OUT.0° INDX 


ARG,OUT. * INDX 


#POS ,ERRPOS ; SET THE POSITION 
ERRPOS ; CLEAR THE POSITION 


H 15 
* A a ONAL MACRO X046.00 9=JUL=81 01:13:55 PAGE 16-2 


Tin 


IF NB, <ARGS> 
. IRP X,<ARGS> 
MOVMSG X,\NUMPTR 
NUMPTR = NUMPTR + 1 


WR —-OOONAUEWN HO OONOM CO 


-MACRO es NUM, ARGS 


4 4-4 Ss et a st et ot to te 


eR pet epee Eee ah de he ie oa ~—- 
aw 


~RADIX 
NUMPTR = 3 
MOVMSG #'°NUM,2 
137 IF NB, <ARGS> 
138 .IRP x,<ARGS> 
139 MOVMSG X,\NUMPTR 
140 NUMPTR = NUMPTR + 1 
141 ~ENDR 
142 ~ENDC 
143 
144 
145 
146 
147 «RADIX 
148 .ENDM 


PUSH 
MOV 


CALL 
POP 


SEQ 0188 


<RO,R1> 
#U.SNUM,R1 
R5,R1 

U. SUBU(RS) ,R1 
(R1),0UT.01 
#MESSAG,RO 


HOSTRQ 
<Ri,RO> 


<RO,R1> 
#MESSAG,RO 
HOSTRQ 
<R1,RO> 


a 


/UDAT3 DISK FUNCTIONAL MACRO 046.00 9=JUL=81 01:73:55 PAGE 17 


/ MACRO DEFINITIONS 


1 
as 
4 
5 
| 6 
7 
8 
9 
10 
11 
12 
13 
14 

{ 15 1$: 
16 

17 2S: 
18 
19 
20 
21 


» 
ec 





I 15 


DSTAT,LAB$,E1.E2 


MEB 
MF 


RDSTAT 
#10000,R1 


2$ 
#4000,R1 
1$ 


Be Ba Be Be Be Be Be Be Be 


SEQ 0189 


ZRETURN DRIVE STATUS MACRO WITH ERROR REPORTING 


GET DRIVE STATUS 
SEE IF ANY ERRORS 
IF NO ERROR, BRANCH 
SEE IF XMIT ERROR 


IF SO, BRANCH 
REPORT INVALID STATUS ERROR 
BRANCH TO DONE 

REPORT XMIT ERROR 

BRANCH TO DONE 


a Se ne 


[ana ee ee ee 


J 15 
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MACRO DEFINITIONS 


1 

| 2 ; KOR THE CONTENTS OF TwO REGISTERS 

: 

i “MACRO RXOR _REG1,REG2 

5 MOV REG2,=(SP) : SAVE REGISTER REG2 

6 BIC REG] .REG2 > CLEAR COORESPONDING BITS IN REG2 

? BIC (SP) +,REGI * CLEAR COORESPONDING BITS IN REGI 
8 BIS REG! -AEG2 + OR WHAT'S LEFT 





SEQ 0190 


Po cn ne 


kK 15 
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| MACRO DEFINITIONS 


: SDI INTERCHANGE WITH DRIVE WITH ERROR REPORTING 
| .MACRO TALKX ERRLAB,E1,£2 


-NLIST MEB 
-LIST ME 


CALL TALKER ; INITIATE SDI INTERCHANGE 
R3 SEE IF ERROP OCCURRED 

BEQ 12$ IF NOT, BRANCH 

L 11 IF SO, BRANCH 

ERRHRD £€1;SEND COMMAND ERROR 
BR ERRL 

11$: ERRHRD E2;RECEIVE COMMAND ERROR 

128 BR ERRLAB 


"NLIST ME 
"LIST  MEB 


HO DONAOUEW HO OWNAMN EW 
@ 
U0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 





[a nn 
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START OF TEST CODE 


L 15 


1 ~SBITL START OF TEST CODE 

§ THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. CAN BE NOP OR BREAKPOINT. 

: 000714 114007 CLR RO ; CHANGE TO BREAKPOINT FOR DEBUG 
S ZINITIALIZE STACK 

8 000715 104206 001357 MOV #STACK,SP ;SET UP STACK POINTER 

9 000717 001360 BR START ; BRANCH OVER SUPPORT CODE 





SEQ 0192 


es. Se 
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RDSTAT = GET DRIVE'S 


000720 


NOUS wr 


Nonny — 2S Ss oS eS ee 


N 

Ww MO OONAUSWR—OOC 
NNNNN™N 
NNN NnoNoNn 
—wNUT SS abd 


000750 


100463 


104267 
104263 
000000 


000003 


014000 
000400 


010000 
000004 


014000 


REAL TIME DRIVE STATE 


SEQ 0193 


RDSTAT: RDSTAT = GET DRIVE'S REAL TIME DRIVE STATE 


SRETURN DRIVE STATU 


S 
STATUS RETURNED IN DM REGISTER 1 


Py 


STATLP: 


STATOK: 


STATEX: 


PUSH 


RETURN 


<R3,RO0> 


#3,R3 
STATUS 
#14000,R1 
AXMTERR,R1 
STATOK 

R3 

STATLP 


-#10000,R1 


STATEX 
ARCVERR,R1 
STATEX 

R3 

STATLP 
#14000,81 
<RO,R3> 


; SAVE R3 AND RO 


MOV R3,-(SP) 
MOV RO,-(SP) 


: ALLOW ONLY 3 ERRORS 
; GET DRIVE'S STATUS 
; CLEAR ERROR PASSING BITS 
: CHECK XMIT ERRORS 
; IF NO ERRORS, BRANCH 
; DECREMENT TRANSMIT ERROR COUNT 
; IF ERROR COUNT INCOMPLETE, BRANCH 
; FLAG AS TRANSMIT ERROR 
BRANCH 


; RECIEVER ERRORS 

; IF VALID, BRANCH 

; DECREMENT ERROR COUNT 

; IF ERROR COUNT NON-ZERO, BRANCH 
; FLAG AS INVALID STATUS ERROR 

; RESTORE RO, R 


MOV (SP)+,RO 
MOV (SP)+,R3 


; RETURN TO CALLING MODULE 


cS 


N 15 
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| HO HOSTRQ = HOST REQUEST = REPORT ERRORS, 


000751 


MO OONA Ns Wro— 


Ss -2 


6 000762 060016 


000751 
000751 100467 
000752 100461 
00462 

001004 
29 001005 000000 


001006 
001006 
000036 


001044 
000036 


001007 
000034 


MEGABYTES TRANSFERRED, 


pete HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 


:SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
:CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
:FOR NEXT HOSTRQ CALL. 


‘INPUTS: 
: RO = HOST REQUEST NUMBER 
: OUT BUFFER LOADED WITH DATA 


PUSH <RO,R1,R2> 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV kO,OUT.RQ ;STORE REQUEST NUMBER IN BUFFER 
SNDAGN: MOV #0UT.RQ,RO ;SEND BUFFER TO HOST 
MOV a ere 


TST R1 :CHECK FOR ERROR 

BNE SNDAGN IF ERROR, TRY AGAIN 

MOV 4IN.RQ,RO [WAIT FOR RESPONSE FROM HOST 
MOV #BUF SIZ, »R1 


MOV #0UT.01,R0 :CLEAR ARGUMENT WORDS IN BUFFER 
MOV #OUT.29-OUT.01,R1 


CLR Re 
CLRBUF: MOV ~ seat 


BPL CLRBU 

POP <R2, RI, RO> 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 

RETURN 


om 


oe ee eee B 16 
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| HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, , 


| } STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 
| ? sOUT BUFFER = DATA TO SEND TO HOST 
5 001006 000000 OUT.RQ: .WORD 0 ;HOST REQUEST CODE 
6 001007 0000 OUT.01: .WORD 0 DATA ARGUMENT 1 
7 001010 000000 OUT.02: RD 0 DATA ARGUMENT 2 
8 001011 000000 OUT.03: .WORD 0 DATA ARGUMENT 3 
9 001012 000000 OUT.04: .WORD 0 DATA ARGUMENT 4 
10 001013 000000 OUT.05: .WORD 0 DATA ARGUMENT 5 
11 001014 000000 OUT.06: .WORD 0 DATA ARGUMENT 6 
12 001015 000000 OUT.07: .WORD 0 DATA ARGUMENT 7 
13 001016 000000 OUT.08: .WORD 0 [DATA ARGUMENT 8 
14 001017 000000 OUT.09: .WORD 0 DATA ARGUMENT 9 
15 001020 00 OUT.10: .WORD 0 DATA ARGUMENT 10 
16 001021 000000 OUT.11: .WORD 0 DATA ARGUMENT 11 
17 001022 00 OUT.12: .WORD 0 DATA ARGUMENT 12 
18 001023 OUT.13: .WORD O DATA ARGUMENT 13 
OUT.14: .WORD 0 DATA ARGUMENT 14 
OUT.15: .WORD 0 DATA ARGUMENT 15 
OUT.16: .WORD 0 DATA ARGUMENT 16 
OUT.17: .WORD 0 DATA ARGUMENT 17 
OUT.18: .WORD 0 DATA ARGUMENT 18 
OUT.19: .WORD 0 DATA ARGUMENT 19 
OUT.20: .WORD 0 DATA ARGUMENT 20 
GUT.21: .WORD 0 DATA ARGUMENT 21 
OUT.22: .WORD 0 DATA ARGUMENT 
OUT.23: .WORD 0 DATA ARGUMENT 23 
OUT.24: .WORD 0 DATA ARGUMENT 24 
OUT.25: .WORD 0 DATA ARGUMENT 25 
OUT.26: .WORD 0 DATA ARGUMENT 26 
OUT.27: .WORD 0 DATA ARGUMENT 27 
OUT.28: .WORD 0 DATA ARGUMENT 28 
OUT.29: .WORD 0 DATA ARGUMENT 29 


IN BUFFER = DATA RECEIVED FROM HOST 


IN.RQ: .WORD 0 sHOST REQUEST CODE (ECHO) 
IN.01: .WORD OQ ;DATA ARGUMENT 1 

IN.02: .WORD 0 DATA ARGUMENT 2 

IN.03: .WORD 0 DATA ARGUMENT 3 

IN.04: .WORD 0 ;DATA ARGUMENT 4 

IN.05: .WORD 0 ;DATA ARGUMENT 5 

IN.06: .WORD 0 s;DATA ARGUMENT 6 

IN.0O7: .WORD 0 DATA ARGUMENT 7 

IN.08: .WORD 0 :DATA ARGUMENT 8 

IN.09: .WORD 0 ;DATA ARGUMENT 9 

IN.10: .WORD 0 DATA ARGUMENT 10 

IN.11: .WORD 0 DATA ARGUMENT 11 - 
IN.12: .WORD 0 DATA ARGUMENT 12 

IN.13: .WORD 0 DATA ARGUMENT 73 

IN.14: .WORD 0 DATA ARGUMENT 14 

IN.15: .WORD 0 ;DATA ARGUMENT 15 

IN.16: .WORD 0 DATA ARGUMENT 16 

IN.17: .WORD 0 ;DATA ARGUMENT 17 

IN.18: .WORD 0 DATA ARGUMENT 18 

IN.19: WORD 0 DATA ARGUMENT 19 





refs - 


58 001070 


66 001100 
67 001101 
68 


IN.20: 

000000 IN.21: 
0 IN.22: 
000000 IN.23: 
0000 IN.24: 
000 IN.25: 
000000 IN.26: 
000000 IN.27: 
000000 IN.28: 
000000 IN.29: 
000036 BUF SIZ 


| UDAT3 DISK FUNCTIGNAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 23-1 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


P) 
Cv 
elelelelalelelelal a) 


« = IN.RO 


C 16 


ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 
ARGUMENT 


ARGUMENT 2 


OF BUFFER 


SEQ 0196 





"ENE 2 RRC te AN ce 2 aa ae 
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_HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


SDI LONG TIMEOUT 


46 001151 000024 SDILTO: .WORD 20. 


1 IF NE, TEST4 : 
2 NLIST 
ey: 
| H : TALKER SENDS AND RECEIVES AN SDI INTERCHANGE 
7 : INPUTS: 
8 ; R2 = SDI INTERCONNECT 
9 ; R3 = POINTER TO COMMAND TABLE CONTAINING APPROPRIATE COMMAND 
10 ; SDILTO/SDISTO SDI LONG AND SHORT TJMEOUTS, RESPECTIVELY 
11 OUTPUTS: 
12 : RO = RETURN OP CODE FROM UNIT : 
13 ; R3 = ERROR CODE - 0 = NO ERROR, 1.= RECEIVE ERROR, 100001 = SEND ERROR 
15 001102 TALKER: PUSH —<R1,R4> ; SAVE REGISTERS 
001102 100461 MOV R1,-(SP) 
001103 100464 MOV R4,=(SP) 
16 001104 104237 MOV (R3)+,RO ; SET ADR OF SDI COMMAND BUFFER 
17 001105 104231 MOV (R3)+,R1 > SET BUFFER LENGTH 
18 001106 060004 XFC SEND ; SEND COMMAND 
19 001107 115001 TST R1 ; DID UNIT ACCEPT COMMAND 
20 001110 011114 BEQ TALK1A ; IF SO, BRANCH 
21 001111 104203 100001 MOV #100001 ,R3 > FLAG AS SEND ERROR 
22 001113 001145 BR TALK2B ; BRANCH TO EXIT 
23 001114 106203 004626 TALK1A: CMP #LONG,R3 ; SEE IF LONG TIMEOUT TO BE USED 
24 001116 071122 BMI 1$ : IF SO, BRANCH 
25 001117 104304 001150 MOV SDISTO,R4 ; SET UP SHORT TIMEOUT 
26 001121 001124 BR TALK1B ; BRANCH 
27 001122 104304 001151 1$: MOV SDILTO,R4 ; SET UP_LONG TIMEOUT 
28 001124 104137 TALK1B: MOV (R3) ,RO ; SET DATA BUFFER ADDRESS 
29 001125 104631 000001 MOV 1(R3) ,R1 > SET BUFFER LENGTH  ° 
30 001127 060005 KFC RCV ; SEND RECEIVE SDI COMMAND 
31 001130 115001 TST R1 ; DID ERROR OCCUR 
32 001131 011144 BEQ TALK2A ; IF _NOT, BRANCH 
33 001132 106201 000001 CMP #1,R1 > SEE. IF TIMEOUT 
34 001134 011137 BEQ 1$ ; IF SO, BRANCH 
35 001135 104013 MOV R1,R3 ; MOVE. ERROR TYPE TO R3 FOR REPORTING 
36 001136 001145 BR TALK2B > EXIT 
37 001137 117404 1$: DEC R4 ; DECREMENT TIMEOUT VALUE 
38 001140 051124 BNE TALK1B ; IF NOT TIMEOUT, BRANCH 
39 001141 104203 000001 MOV #1,R3 ; FLAG AS RECIEVE ERROR 
40 001143 001145 BA TALK2B ; BRANCH TO EXIT 
41 001144 114003 TALK2A: CLR R3.. - 4 3 FLAG AS NO ERRORS 
42 001145 TALK2B: POP <R4,R1> « 2 RESTORE R4, R1 
001145 104264 MOV (SP)+,R4 
001146 104261 3 MOV (SP)+,R1 
43 001147 000000 RETURN 
45 001150 000012 SDISTO: .WORD 10. ; SDI SHORT TIMEOUT 
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OVOWNAMNEWN = 


— 


100462 


3 
163 104307 


001165 104263 
001166 104262 
18 001167 600000 


ae ee ee ee 
NOAWEWI— 


000001 


001210 
007210 


| HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
:MREAD 


ZREAD he WORD FROM UNIBUS MEMORY 


OUTPUTS: 


MREAD: 


a - ~ ADDRESS OF pt TO READ (LOW 16 BITS) 


(HIGH 2 BITS) 

RO = DATA READ 

PUSH <R2,R3> SAVE SOME REGISTERS 
MOV R2,=(SP) 
MOV R3,=(SP) 

MOV R5,RO ;PUT UNIBUS ADDRESS IN RO AND R1 

MOV R4,R1 

MOV #1,R2 ; TRANSFER ONE WORD 

MOV #UDATA,R3 ;LOCATION TO PUT DATA 

XFC UREAD ;DO THE READ 

MOV UDATA,RO ;GET DATA READ 

POP <R3,Re2> RESTORE OTHER REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,R2 

RETURN 


SEQ 0198 


Ce 


21 ;UNIBUS MEMORY 


-UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 26 SEQ 0199 
/HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
! sMWRITE 
| Py 
3 “WRITE ONE WORD TO UNIBUS MEMORY 
| 4 ‘ INPUTS: 
| 5 : R5 = ADDRESS OF WORD TO WRITE (LOW 16 BITS) 
é : RG = (HIGH 2 BIT 
| ? : RO = DATA TO WRITE 
| 3 OUTPUTS: 
10 001170 MWRITE: PUSH <RO,R2,R3> sSAVE SOME REGISTERS 
001170 100467 MOV RO,-(SP) 
001171 100462 MOV R2.=(SP) 
001172 100463 MOV R3.-(SP) 
11 001173 104070 001210 MOV RO,UDATA :PUT DATA TO BE WRITTEN INTO BUFFER 
12 001175 104057 MOV R5.RO ‘PUT UNIBUS ADDRESS IN RO AND R17 
13001176 104041 MOV R4.R1 
14 001177 104202 000001 MOV #1.R2 : TRANSFER ONE WORD 
15 001201 104203 001210 MOV #UDATA,R3 ‘ADDRESS OF DATA WORD 
16 001203 060014 XFC UWRITE °DO THE WRITE 
17 001204 POP <R3,R2,R0> “RESTORE THE REGISTERS 
0012046 104263 MOV (SP)+,R3 
001205 104262 MOV (SP)+.R2 
001206 104267 MOV (SP)+_RO 
18 001207 000000 RETURN 
20 001210 000000 UDATA: .WORD 0 :DATA BUFFER FOR TRANSFERS TO AND FROM 


UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 27 
“HOSTRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


; :xOR 
3 PERFORM XOR LOGIC FUNCTION ON TWO REGISTERS 
4 > INPUTS: 
5 : R1, R2 = DATA TO BE XOR'ED 
| 6 ;OUTPUTS: 
? : R1 = UNCHANGED 
8 : R2 = KOR OF TwO INPUTS 
10 001211 KOR: PUSH R3 SAVE R3 
001211 100463 MOV R3,=-(SP) 
11 001072 104013 — MOV R1,R3 
12 001213 103023 BIC RZ,R3 
13 001214 103012 BIC R1,R2 
14 001215 101032 BIS R3,R2 
15 001216 POP R3 RESTORE R3 
001216 104263 MOV (SP)+,R3 
16 001217. 115002 TST R2 SET CONDITION CODES 
17 001220 000000 RE TURN 


SEQ 0200 


or ee a 


H 16 
-UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 28 
~HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


3 007221 TO: 
: : “gh me THE TIMEOUT IN YSEC INTERVALS (SDI RECEIVE XFC TAKES 
5 ; 
6 001221 104201 000001 MOV #1,R1 ; SET UP LOG2 SHIFTER 
7 001223 110201 1$: ROL R? ; DOUBLE THE TIMEOUT VALUE 
8 001224 103201 000001 BIC #1,R1 ; CLEAR THE LOW BIT 
9 001226 117407 DEC RO ; DECREMENT COUNT 
10 001227 051223 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
11 001230 114007 CLR RO ; CLEAR 9SEC COUNT 
12 001231 115407 e$: INC RO : INCREMENT 9 SEC COUNT 
13 001232 107201 060011 SUB #9.,R1 ; SUBTRACT 9 SEC FROM TIMEOUT 
14 001234 031231 BPL 2$ ; IF MORE TIME TO GO, BRANCH 
15 001235 000000 RETURN ; RETURN TO CALLING PROGRAM 


SEQ 0201 


SESE ee ee ee eC se asin 
| 


I 16 


| UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 29 SEQ 0202 
| HOSTRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
: sRERROR 
3 :REPORT ERROR TO HOST PROGRAM 
| 4 :THIS ROUTINE IS CALLED BY THE ERROR MachOS: 
> ZERRSF, ERRDF, ERRHRD AND ERRSFT 
7 001236 RERROR: PUSH RO SAVE ONE REGISTER 
001236 100467 MOV RO,=-(SP) 
8B 001237 104067 MOV SP,RO GET STACK POINTER 
9 001240 PUSH <R1,R2,R3,R4> SAVE MORE REGISTERS 
601240 100461 MOV R1,=(SP) 
001241 100462 MOV R2,-(SP) 
001242 100465 MOV R3,=<SP) 
001243 100464 MOV R4,-(SP) 
10 001244 115407 INC RO CHANGE SAVED STACK POINTER TO POINT TO 
11 ; ADDRESS OF LOCATION AFTER CALL 
12 001245 104271 MOV (RO)+,R1 GET RETURN PC 
13001246 104202 001007 MOV #OUT.01,R2 :GET ADDRESS OF WHERE TO PUT DATA 
14 001250 117401 DEC R1 REDUCE TO PC OF ERROR CALL 
15 001251 100221 MOV R1,<R2)+ PUT PC IN OUT BUFFER 
16 001252 115401 INC R RI GET BACK TO RETURN PC 
17 001253 104113 MOV (R1),R3 GET ERROR NUMBER AND TYPE 
18 001254 103203 176000 BIC #"(061777,, R3 CLEAR OTHER BITS 
19 001256 100223 MOV R3,(R2)+ :PUT IN BUFFER 
26 001257 104303 001315 MOV LUNIT,R3 ;PUT UNIT NUMBER IN BUFFER 
| 21 001261 100223 MOV R3,(R2)+ 
22 001262 104214 MOV (R1)+,R4 GET COUNT OF PARAMETERS 
23 001263 104213 MOV (R1)+,R3 GET MESSAGE POINTER 
24 001264 100223 MOV R3,(2)+ PUT IN OUT BUFFER 
25 :R1 IS NOW POINTING TO INSTRUCTION AFTER ERROR CALL 
26 001265 110704 SWAB RG 
27 001266 110604 ROR 84 EXTRACT NUMBER OF PARAMETERS FROM ERROR MACRO 
28 001267 110604 ROR R4 
29 001270 103204 177700 BIC #177700,R4 
30 001272 104040 001313 MOV R4,SPADJU+1 SAVE FOR LATER ADJUSTMENT OF STACK POINTER 
31 001274 011301 BEQ RERRCA SBRANCH IF NO PARAMETERS 
32 001275 104273 RERRP4: MOV (RO)+,R3 =GET PARAMETER 
33 001276 100223 MOV R3,(R2)+ STORE PARAMETER IN OUT BUFFER 
34 001277 117404 DEC RG COUNT THE PARAMETERS 
35 001300 051275 BNE RERRPA *GET NEXT IF MORE 
36 091301 100471 RERRCA: MOV R1,-(RO) [PUT RETURN ADDRESS ON STACK 
37 001302 104207 000013 MOV #ERRMES,RO SEND ERROR PACKET TO HOST PROGRAM 
38 0013 020751 CALL HOSTRQ 
39 001305 POP <R4,R3,R2,R1,RO> RESTORE REGISTERS 
001305 104264 MOV (SP)+,R4 
001306 104263 MOV (SP)+,R3 
001307 104262 MOV (SP)+,R2 
001310 104261 MOV (SP)+,R1 
001311 104267 MOV (SP)+,RO 
40 001312 105206 000000 SPADJU: ADD #0,SP ADJUST STACK OVER PARAMETERS 
41 VALUE CHANGED ABOVE 
42 001314 000000 RE TURN 
4 001315 177777 LUNIT: .WORD -1 sLOGICAL UNIT NUMBER (-1 FOR NOT AVAILABLE) 


Al de 001316 000000 SAVREG: WORD 0 SSTORAGE FOR REGISTER AT CALL TIME 


} J 16 
/UDATS DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:73:55 PAGE 29-1 SEQ 0203 
oe = HOST. REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


48 LIST 
49 ~ENDC 


SRLOD SOY aie Ae ire Been OS Toe ee 


er eS iS a Ss St ss 


| 


| UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 30 
| HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


; sSTACK AREA 

3 001317 123456 ~WORD 123456 
4 001320 -BLKW 31. 

5 001357 123456 STACK: .WORD 123456 


K 16 


7END MARKER FOR STACK 
STACK 
7MARKER FOR STACK UNDERFi OW 


SEQ 0204 


UDAT3 
DISK D 


Do 
—e 


VE SEQUENCER 


004706 
000001 
091360 


007360 104205 
104204 


001364 100464 
365 


Nononun- Se SS SO eS oe 
WN—ODOONAW FWY -ODONA NEW 

=) 

oO 

= 

WG 

Oo 

Nm 


N 
= 
* 
Vw 
— 
So 
& 
&* 
Ww 


091427 104263 
39 001430 115001 
051534 


001432 100464 


001450 104264 


- 


000001 
004527 


040000 
003732 
000001 
010000 


000001 


000002 


004607 


004055 
000001 


000012 
000001 


“ 


000001 


148: 


11$8 





.SBITL 
ERRN=1. 
GET THE UNITS TO TEST 


POLL ALL PORTS AND FILL 


SK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 32 


DISK DRIVE SEQUENCER 


SUB + CR 


#1,R5 
MUNITS RS 
RS 


R5,R2 
DINIT 
#40000,R0 
RDSTAT 
#SER10,R3 
R3,1(R4) 
#10000,R1 
3$ 


ARCVRDY ,R1 
#SER11,R3 
R3,1(R4) 
coo 


a a oe 


* #OR.GST RS 


#SER12,R3 
R3,1(R4) 
R3 


(R3),RO 
1(R3),R1 


;MODIFY SUB TO POINT AT SUBUNIT CHAR 
START ERROR NUMBERS AT 1. 


IN A UDA PORT INFORMATION TABLE (UNITS) 


; MOVE INITIAL MASK TO R5 
; R4 POINTS TO UNIT TABLE 
3 SAVE R4 


Be Be Se Be Be Be 


MOV R4,-(SP) 
MOVE MASK TO R2 
INITILIZE THE DRIVE 
MOVE TIMEOUT TC RO 
GET STATUS 
GET SECONDARY ERROR 
PUT ERROR IN TABLE 
SEE IF STATUS IS VALID 
IF NOT, BRANCH 
SEE IF RECEIVER READY ASSERTED 
GET SECONDARY ERROR 
PUT ERROR IN TABLE 
STORE STATE 
IF SO, BRANCH 
DECREMENT COUNT 
IF INCOMPLETE, BRANCH 
NO VALID STATE 
R3 POINTS TO GET STATUS COMMAND 
SET ADR OF SDI COMMAND BUFFER 
SET BUFFER LENGTH 
SEND COMMAND 
SAVE COUNT 


GET ERROR NUMBER 
SAVE 
RESTORE R3 


MOV R3,~(SP) 


MOV (SP)+,R3 


; DID UNIT ACCEPT COMMAND 
: IF NOT, BRANCH 
; SAVE R&S 


MOV R4,-(SP) 
SET UP SHORT TIMEOUT 
SET DATA BUFFER ADDRESS 
SET BUFFER LENGTH 
SEND RECEIVE SDI COMMAND 
DID ERROR OCCUR 
IF NOT, BRANCH 
SEE IF TIMEOUT 
IF NOT, BRANCH 
DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT, BRANCH 
RESTORE R4 
MOV (SP)+,R4 


SEQ 0205 


tty 


M 16 





UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 32-1 SEQ 0206 
DISK DRIVE SEQUENCER 
| 53 001451 104202 004106 MOV ASER13,R3 : GET ERROR NUMBER 
54 001453 001477 BR 23$ : BRANCH TO EXIT 
55 001454 12$: POP RS : RESTORE R4 
| 001454 104264 MOV (SP)+,R4 
56 001455 110601 ROR R1 ; ROTATE INTO POSITION TO TEST 
57 001456 110601 ROR R1 : SEE IF FIRST WORD NOT START FRAME 
58 001457 041463 BCC 20$ ; IF NOT, BRANCH 
59 001460 104203 004141 MOV ASER14,R3 : GET ERROR NUMBER 
60 001462 001477 BR 23$ ; BRANCH TO END OF LOOP 
61 001463 110601 208: ROR R1 : SEE IF FRAMING ERROR 
62 001464 041470 BCC 21$ > IF NOT, BRANCH 
63 001465 104203 004176 MOV ASER15,R3 : GET ERROR NUMBER 
64 001467 001477 BR 23$ : BRANCH TO END OF LOOP 
65 001470 110601 218: ROR R1 : SEE IF CHECKSUM ERROR 
66 001471 041475 2 BCC 22$ ; IF NOT, BRANCH 
67 001472 104203 004241 MOV ASER16,R3 : GET ERROR NUMBER 
68 001474 001477 BR 23$ ; BRANCH TO END OF LOOP 
69 001475 104203 004304 22%: MOV ASER17,R3 ; GET ERROR NUMBER 
70 001477 100643 000001 238: MOV R3,1(R4) : SAVE 


71 001501 001534 BR 6$ ; BRANCH TO END OF LOOP 





— 


| WATS DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 33 
DISK DRIVE SEQUENCER 


| 
| 
| 


eo aps 


COONAN EWNM-ODCONAW fw 
S 
A) 
— 
- 


Ne Ss Ss ss SS st 


22 001533 
3 
26 001534 


29 001540 
30 001542 


104264 


: 
051364 


177777 


170000 
040000 


177760 


000004 
000020 


tte Oe Be 
AN 
wf 


4$: 


6$: 


NOW FILL IN THE TABLE WITH ALL THE SUBUNIT NUMBERS 


PoP 


R4 
#=-1,RO 


RO,1(R4) 
Hs pe > hes 


RO,R2 
#*CHBHINB,RO 
#4%000,RO0 
R2 

Re 

R? 

R2 

ALBLONB ,R2 
R2 

6$ 

RO, (R4)+ 
RO 

4$ 

R4 


#4 RS 
R5 
#20,R5 
1$ 


Be Be Be Be 


RESTORE R4 


MOV (SP)+,R4 
GET "NO UNITS" FLAG 
CLEAR ANY ERRORS THAT ARE FLAGGED 
CLEAR ANY , a ARE FLAGGED 


NUMBER 
FLAG UNIT AS NOT TESTED 
SWAP R2°S BYTES 

MOVE SUBUNIT MASK TO LO NIBBLE 
MOVE SUBUNIT MASK TO LO NIBBLE 
MOVE SUBUNIT MASK TO LO NIBBLE 


; MOVE SUBUNIT BIT TO CARRY 

; IF NO MORE SUBUNITS, BRANCH 
; MOVE SUBUNIT NUMBER TO TABLE 
; INCREM! NT SUBUNIT NUMBER 

; BRANCH 


R4 POINTS TO START OF: UNIT JUST HANDLED 
MOV (SP)+,R4 


; R4 WILL POINT TO NEXT UNIT (CLEAR CARRY FOR ROL) 


RS HAS NEXT UNIT PORT MASK 
SEE IF ALL PORTS TESTED 
IF NOT, BRANCH 


SEQ 0207 


SDAT? DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 34 


DISK DRIVE SEQUENCER 


q 
4 001543 104207 000012 
5 001545 020751 
6 001546 104207 001045 
; 7? 001550 104201 004527 
8B 001552 104112 
9 001553 071576 
10 001554 ‘ 
001554 100461 
11 001555 103202 170000 
12 001557 106172 
13001560 051564 
14 001561 100112 
15 001562 
001562 104261 
16 001563 001712 
17 001564 115401 
| 18 001565 104012 
19 001566 107202 904527 
20 001570 102202 000003 
21 001572 011575 
22 001573 104112 
23 001574 031555 
24 001575 
001575 104261 
25 001576 105201 000004 
26 001600 106201 004547 
27 001602 051552 


42$: 


40$: 


41$. 
9$: 


‘NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 


#UTOTST,RO 
HOSTRQ 
#IN.01,RO0 
MUNITS,R1 
(R1),R2 

9$ 


R1 


#*CHBHINB,R2 
(RO) ,R2 


40% 
R2,(R1) 
R1 


#4,R1 
MUNITS+16.,R1 
8$ 


GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 


; GET THE PLUG NUMBERS 

; RO POINTS TO UNIT NUMBERS TO TEST 
; R1 POINTS TO UDA PORT INFORMATION 
; R2 HAS UNIT 


IF NONE, BRANCH 
SAVE R1 
MOV R1,=(SP) 


; CLEAR THE ‘NOT TESTED BIT' FOR COMPARISON 
; SEE IF IT IS A UNIT TO TEST 

; NO MATCH 

; SAVE UNIT AS ONE TO TEST 

; RESTORE STACK 


MOV (SP)+,R1 
LOOK FOR THE NEXT ONE 
POINT TO NEXT SUBUNIT 
COPY TO R2 
SUBTRACT STARTING ADDRESS 
SEE IF STILL ON SAME UNIT 
IF NOT, BRANCH 


; SEE IF ANY MORE SUBUNITS 
: IF SO, BRANCH 
; RESTORE R1 


MOV (SP)+,R1 
LOOK AT NEXT UNIT 
SEE IF ENTIRE TABLE SEARCHED 
IF NOT, BRANCH 


SEQ 0208 


a a ey 


es AS SSS SSS gn 
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DISK DRIVE SEQUENCER 


S225 


ARXAAAAO 
— ot oe od dd 
NUS MO 


Dd ed et etd ed 


—d od od 
* 


rye 
—OO0ODO NOWUESWR—COONe 


22 001632 


44 001705 
45 001706 


100467 


100241 
104265 
100465 


104265 
105205 
106205 
051610 


104200 


104020 
104267 


104207 


001013 
004527 


000001 
004005 
000002 


004374 


000003 
001716 


000004 
004547 


003577 


001006 


001011 
000014 


000016 


39$: 


31$: 


32$: 


33$: 


34$: 


36$: 


DIDN'T FIND THE REQUESTED 
UDA PORTS AND DIE 


PUSH 


BN 
DEVFTL 


RO 
ir 


#SER11,RO 
36$ 


2(R5) ,RO 
RO, (R4)+ 
36$ 


R5 
#SER18,RO 
RO, (R4)+ 
RO 

R5 
(R5)+,R1 
33$ 


RO 
#3,R0 


2$ 
ERTXT(RO),R1 
R1,(R4)+ 
RS 
R5 


(R5)+,R1 
R1,(R4)+ 
RO 


34$ 

R5 

#4,R5 
MUNITS+16.,R5 
30$ 

80, 


RO 


(RO) ,R2 
R2,0UT.03 
#ERRMC ,RO 
HOSTRQ 
ADONE ,RO 


UNITS == DUMP ALL KNOWLEDGE OF THE 


SAVE POINTER TO UNIT 
MOV RO,=-(SP) 


; R4 POINTS TO OUTPUT BUFFER 


RS POINTS TO UNIT TABLE 

GET FIRST WORD OF UNIT 

IF VALID UNIT WAS FOUND, BRANCH 

GET POINTER TO apy ME SSAGE 

SAVE IN OUTPUT BUFFER 

SEE IF ITS THE RECIEVER RDY NEVER ASSERTED 
IF NOT, BRANCH 

GET STATE THAT WAS FOUND 

SAVE 


EXIT 
SAVE POINTER TC UNIT TABLE 
I er eptact TO ERROR MESSAGE 


CLEAR COUNT 

SKIP FIRST WORD (WE KNOW IT'S POSITIVE) 
GET UNIT NUMBER 

IF INVALID, BRANCH 

INCREMENT COUNT 

SEE IF MAX 

IF NOT, LOOP 

GET POINTER TO CORRECT ERROR MESSAGE 
MOVE INTO OUTPUT BUFFER 

RESTORE R5 


SAVE R5 

GET SUBUNIT NUMBER 

SAVE 

DECREMENT COUNT 

IF COUNT INCOMPLETE, BRANCH 
RESTORE R5 


POINT TO NEXT UNIT TABLE 
SEE IF ptm Biceps SEARCHED 


MOV R5,-(SP) 


MOV (SP)+,R5 
MOV R5,-(SP) 


MOV (SP)+,R5 


IF NOT, BR 

REPORT FATAL ERROR 
MOV #ER8O OUT .04 
MOV #80 ,OUT.02 
BIS #FTLDEV,OUT.02 
MOV . -OUT.01 
MOV #ERRMC ,R2 
MOV R2,0UT.ROQ 


GET POINTER TO UNIT NUMBER 
MOV (SP)+,RO 


; GET UNIT NUMBER 


SAVE IN OUTPUT 
SET UP FOR REPORT 
age ERROR 

END TEST 


SEQ 0209 


UDATS DISK FUNCTIONAL MACRO xK04.00 9=JUL=81 01:13:55 PAGE 35-1 
DISK DRIVE SEQUENCER 


46 001710 020751 CALL HOSTRQ 

‘ 001711 069021 XFC EXIT 

49 001712 1°5407 10$: INC RO 

50 001713 104172 MOV (RO) ,R2 
51 001714 031550 BPL 7$ 

os 001715 001722 BR T3STRT 

54 001716 004446 ERTXT: .WORD SER18D 

55 001717 004443 -WORD SER18C 

56 007720 004440 -WORD SER18B 

57 001721 004435 -WORD SER18A 


SEND END-OF=TEST TO HOST 
TERMINATE DM 


POINT TO NEXT UNIT TO TEST 
CHECK NEXT UNIT 

FIND IN UDA PORT INFORMATION 
STAR’ TEST 


POINTERS TO THE DIFFERENT SUBUNIT 
REPORTING MESSAGES 


SEQ 0210 





a a - — — 


. ¥ 
UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 36 SEQ 0211 
DISK DRIVE SEQUENCER ; 


1 sSEQUENCE THE DIAGNOSTICS TO ALL UNITS SELECTED. 
2 ZTEST CODE WILL BE CALLED FOR EACH DISK SUBUNIT TO BE TESTED. 
3 : LUNIT WILL CONTAIN LOGICAL UNIT NUMBER OF DRIVE FOR ERROR REPORTS 
4 > SDI WILL CONTAIN SDI INTERCONNECT CODE FOR SELECTED DRIVE 
5 > UNITNB WILL CONTAIN AN EVEN NUMBER FOR TESTING FIRST SUBUNIT OF A DRIVE 
" ; AN ODD NUMBER FOR TESTING SECOND SUBUNIT OF A DRIVE 
8 001722 114001 T3STRT: CLR R1 ;START WITH UNIT 0 INDEX 
10 001723 104207 004527 PORT2: MOV #UNITS ,RO : GET POINTER TO UNITS TABLE 
11001725 105017 ADD R1,RO > ADD INDEX 
12 001726 104173 MOV (RO) ,R3 > GET CONTENTS OF TABLE 
13 001727 031736 BPL 1$ : IF THIS UNIT IS PRESENT, BRANCH 
14 001730 102201 000003 BIT #3,R1 > SEE IF ON SUBUNIT 0 OF UNIT 
15 001732 051770 BNE PORTS > IF NOT, TEST NEXT SUBUNIT 
16 001733 105201 000003 ADD #5 .Rl > IF NO SUBUNIT 0, THEN NO UNIT = SKIP OTHER SUBUNITS 
17 001735 001770 BR RT5 > BYPASS IF NO UNIT 
18 001736 102203 040000 1$: BIT #20000, R3 > SEE IF THIS UNIT IS TO BE TESTED 
19 001740 051770 BNE PORTS > IF NOT, BRANCH 
20 001741 104010 004547 MOV R1,UNI TNB > STORE UNIT INDEX 
21 001743 104030 001315 MOV R3.LUNIT > STORE LOGICAL UNIT NUMBER FOR DRIVE 
22 001745 104202 000001 MOV #UNITO,R2 > GET UNIT 0 INTERCONNECT CODE 
23 001747 110601 ROR R1 > DIVIDE UNITNB BY FOUR 
24 001750 110601 ROR R1 
25 001751 103201 177760 BIC #LBLONB,R1 : CLEAR UNUSED BITS 
26 001753 117401 FORT3: DEC R1 
27 001754 071761 BMI PORT4 : FOR EACH DRIVE OVER O SHIFT R2 LEFT 
28 001755 110202 ROL R2 
29 001756 103202 000001 BIC #1 ,R2 : CLEAR CARRY ROTATED INTO REG (IF ANY) 
30 001760 001753 BR PORT3 
31 001761 104020 004550 PORT4: MOV R2,SDI ; STORE SDI INTERCONNECT CODE 
32 001763 002000 BR TEST > PERFORM TEST ON THIS DRIVE 
33 , > TEST RETURNS TO TESTX 
34 001764 104206 001357 TESTX: MOV #STACK, SP S RESET STACK DO TO JUMPS OUT OF 
35 > SUBROUTINES 
36 001766 104301 004547 MOV UNI TNB,R1 : GET UNIT INDEX 
37 001770 115401 PORTS: INC R1 > INCREMENT INDEX 
38 001771 106201 000020 CMP #16. ,R1 > CHECK IF 16 DRIVES ALREADY SELECTED 
39 001773 051723 BNE PORT2 > REPEAT FOR ALL DRIVES 
40 001774 104207 000016 DONECD: MOV #DONE ,RO > END OF PROGRAM 
41 001776 020751 CALL —_-HOSTRO 


: 
42 001777 001774 BR DONE CD ; REPEAT IF RETURNED 


ate 
“ypar3 DISK FUNCTIONAL MACRO X04.00 9=JUL~81 01:13:55 PAGE 37 SEQ 0212 
et IALIZE DRIVE AND LOOK AT DRIVE SIGNALS ; 


} .SBITL INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
? START OF TEST CODE 
5 s INPUTS: 
6 3 LUNIT = LOGICAL UNIT NUMBER OF DRIVE UNDER TEST 
; ; SDI = SDI INTERCONNECT CODE FOR DRIVE 
ms s INITIALIZE THE DRIVE 
41 002000 104302 004550 TEST: MOV SDI,R2 :GET SDI SELECT CODE 
4 002002 060011 XFC DINIT INITIALIZE THE DRIVE 
14 WAIT FOR DRIVE 10 ASSERT RECEIVER READY 
3 TIME OUT AFTER 
17 002003 114005 CLR R5 :GET TIMEOUT COUNTER 
| 18 002004 ILOOP: DSTAT TESTEX,.MS1.MS2 LOOK AT DRIVE STATUS LINES 
002004 020720 CALL RDSTAT ; GET DRIVE STATUS 
0C2005 102201 010000 BIT #10000,R1 >: SEE IF ANY ERRORS 
002007 012023 BEQ 2$ : IF NO ERROR, BRANCH 
002010 102201 004000 BIT #4000,R1 >; SEE IF XMIT ERROR 
002012 612017 BEQ 1$ : IF SO, BRANCH 
002013 ERRHRD MS1 : REPORT INVALID STATUS ERROR 
002013 021236 CALL RERROR ERROR # 
002014 001001 . WORD pc NS ae lh HR 
002015 000000 “WORD MS1 
002016 003443 BR TESTEX : BRANCH TO DONE 
002017 1$: .  ERRHRD MS2 : REPORT XMIT ERROR 
002017 021236 CALL RERROR sERROR # 2. 
002020 001002 “WORD <PRMS*2000>+<2*400>+ERRN 
002021 000045 -WORD MS2 
002022 003443 BR TESTEX : BRANCH TO DONE 
002023 2$: 
19 002023 102201 000001 BIT #RCVRDY,R1 : CHECK RECEIVER READY LINES 
20 002025 052034 BNE T sADVANCE IF ASSERTED 
21002026 117405 DEC R5 :DECREMENT TIME OUT COUNTER 
22 002027 052004 BNE ILOOP a sSTAY IN LOOP UNTIL SIGNAL SETS OR TIMEOUT 
23 002030 ERRHRD MS3 “REPORT ERROR 
002030 021236 CALL RERROR ERROR # 3. 
092031 001003 .~ WORD <PRMS *2000>+<2*400>+ERRN 


002032 000071 «WORD MS3 
24 002033 003443 BR TESTEX ; sEXIT TESTING THIS DRIVE 





fe LO A Oe 


UuDAT3 DISK FUNCTIONAL MACRO x04.00 9-JUL=81 01:13:55 PAGE 38 SEQ 0213 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
} GET DRIVE CHARACTERISTICS 
3 002034 104200 000012 001150 T: MOV #10. ,SDISTO : SET UP TEMPORARY SHORT TIMEOUT VALUE 
4 002037 104203 004575 MOV #CR.GCR,R3 POINT TO GET CHARS COMMAND 
5 002041 TALKX TESTEX, MS26,MS27 : SDI INTERCHANGE 
002041 021102 CALL LKER : INITIATE SDI INTERCHANGE 
002042 115003 TST a3 : SEE IF ERROR OCCURRED 
002043 012055 BEQ 12$ : IF NOT, BRANCH 
002044 032051 BPL 11$ : IF SO, BRANCH 
002045 ERRHRD MS26;SEND COMMAND ERROR 
| 002045 021236 CALL RERROR s ERROR 
002046 001004 . WORD epres #200050<2 2400>3ERAN 
002047 001344 “WORD MS26 
002050 003443 BR TESTEX 
002051 118: ERRHRD MS27;RECEIVE COMMAND ERROR 
| 002051 021236 CALL RERROR sERROR # 5. 
52 001005 .WORD <PRMS*2000>+<2*400>+ERRN 
| 002053 001405 .WwORD MS27 
002054 003443 BR TESTEX 
002055 12$: 
6 002055 106207 000170 CMP #CHRRES,RO CHECK FOR SUCCESSFUL RESPONSE 
7 002057 012074 BEQ TOO 
8 002060 ERRHRD MS28,4CHRRES,RO:;GET CHARACTERISTICS COMMAND FAILED 
002060 100467 MOV RO,-(SP) 
002061 104010 001316 MOV R1,SAVREG 
002063 104201 000170 MOV #CHRRES,R1 
002065 100461 MOV R1,-(SP) 
002066 104301 001316 MOV SAVREG,R1 
002070 021236 CALL RERROR : # 6. 
002071 005006 .~ WORD pe AOE ape ably BB RRN 
002072 001451 .WORD MS28 
2 002073 003443 BR TESTEX ; BRANCH TO END OF TEST 
11 002074 104307 004673 T00: MOV CR+SHRTTO,RO : GET SHORT TIMEOUT 
12 002076 103297 177760 BIC #LBLONB,RO : CLEAR UNUSED BITS 
13. 002100 021221. CALL TO : SET UP TIMEOUT 
14 002101 104070 001150 MOV RO, SDISTO : SAVE IN SHORT TIMEQUT 
15 002103 104307 004674 MOV CR+LONGTO,RO : GET LONG TIMEOUT 
16 002105 103207 177760 BIC #LBLONB,RO : CLEAR UNUSED BITS 
17 002107 021221 CALL TO : SET UP TIMEOUT 
18 092110 104070 001151 MOV RO,SDILTO : SAVE IN LONG TIMEOUT 


H 1 
FUNCTIONAL MACRO 04.00 9=JUL=81 01:13:55 PAGE 39 SEQ 0214 


“UDAT3 DISK 
“INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
j 
i :ISSUE ONLINE COMMAND AND CHECK RESPONSE 
| 3 002112 104203 004551 MOV #CR.ONL ,R3 : POINT TO ONLINE COMMAND 
| 4 002114 TALKX  TESTEX,MS4,MS5 * SDI INTERCHANGE 
| 002114 021102 CALL TALKER t INITIATE SDI INTERCHANGE 
| 002115 115003 TST RZ + SEE IF ERROR OCCURRED 
002116 012130 BEQ 12$ + IF NOT, BRANCH 
| 002117 032124 BPL 11$ > IF SO, BRANCH 
| 092120 ERRHRD ™MS4;SEND COMMAND ERROR 
002120 021236 CALL RERROR ERROR # 
002121 001007 “WORD speunaniglserteatinesehin 
| 002122 000124 “WORD MS4 
| 302123 003443 BR TESTEX 
002124 11$:  ERRHRD MS5;RECEIVE COMMAND ERROR 
002124 021236 CALL RERROR ZERROR # 8. 
002125 001010 “WORD <PRMS*2000>+<2*400>*ERRN 
002126 000154 "WORD MS5 
002127 003443 BR TESTEX ) 
002130 12$: 
5 002130 106207 000176 CMP #COMPLT RO : CHECK FOR ERROR 
6 002132 012147 BEQ T0 + IF NO ERROR BRANCH 
7 002133 ERRHRD MS6,4COMPLT,RO * ONLINE COMMAND FAILED 
002133 100467 MOV RO,-(SP) 
002134 104C10 001316 MOV R1.SAVREG 
002136 104201 000176 MOV #COMPLT,R1 
002140 100461 MOV R1,=(SP5 
002147 104301 001316 MOV SAVREG,R1 
002145 021236 CALL RERROR sERROR # 9. 
002144 005011 WORD <PRMS*20005+<2*400>7ERRN 
002145 000207 "WORD MS6 


8 002146 003443 BR TESTEX 5 CNL? TEST 


on ee 


UDAT3 


DISK FUNCTIONAL MACRO X04.00 9-JUL-81 01:13:55 PAGE 40 SEQ 0215 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
: ISSUE GET STATUS COMMAND AND CHECK THAT ATTENTION DROPS 
3 002147 104203 004607 TO: MOV #CR.GST,R3 ;POINT TO GET STATUS COMMAND 
4 002151 TALKX — TESTEX,MS7,MS8 > SDI_ INTERCHANGE 
00215? 021102 CALL ‘TALKER ; INITIATE SDI INTERCHANGE 
| 002152 115003 TST Re ; SEE IF ERROR OCCURRED 
002153 012165 BEQ 12$ ; IF NOT, BRANCH 
002154 032161 BPL 11$ ; IF SO, BRANCH 
| 002155 ERRHRD MS7;SEND COMMAND ERROR 
002155 021236 CALL RERROR ; ERROR 10. 
| 002156 001012 “WORD “<PRMS *2000>+<2%400>+ERRN 
002157 000275 .WORD MS7 
| 002160 003443 BR TESTEX 
002161 11$: | ERRHRD MS8;RECEIVE COMMAND ERROR 
002161 021236 CALL RERROR 7; ERROR 
002162 001013 . WORD EPRIMS #200052 *400>+ERRN 
002163 000327 -WORD MS8 
002164 003443 BH TESTEX 
002165 12$: 
5 002165 106207 000366 CMP #STSRES,RO : CHECK FOR ERROR 
6 002167 012204 BEQ TOA 
7 002170 ERRHRD MS9,ASTSRES,RO ;GET STATUS COMMAND REJECTED 
002170 100467 MOV RO,-(SP) 
002171 104010 001316 MOV R1,SAVREG 
002173 104201 000366 MOV #STSRES,R1 
002175 100461 MOV R1,-(SP) 
002176 104301 001316 MOV SAVREG,R1 
002200 021236 CALL RERROR __;ERROR # 12. 
002201 005014 - WORD EP RMS *2000>+<2"400>%ERRN 
002202 000364 WORD MS9 
8 002203 003443 BR TESTEX 
9 002204 TOA: DSTAT ietae -MS10,MS2 ;LOOK AT STATUS LINES 
002204 020720 CALL _—-RDST > GET DRIVE STATUS 
002205 102201 010000 BIT #10000, R1 > SEE IF ANY ERRORS 
002207 012223 BEQ 2$ > IF NO ERROR, BRANCH 
002210 102201 004000 BIT #4000,R1 ; SEE IF XMIT ERROR 
002212 012217 BEQ 1$ ; IF SO, BRANCH 
002213 ERRHRD MS10 ; REPORT INVALID STATUS ERROR 
002213 021236 CALL _RERROR ;ERROR # 13. 
002214 001015 WORD <PRMS*2000>+<2*400>+ERRN 
002215 000454 . -WORD MS10 
002216 003443 BR TESTEX ; BRANCH TG DONE 
002217 1$: ERRHRD MS2 ; REPORT XMIT ERROR 
002217 021236 CALL RERROR __; ERROR 
002220 001016 . WORD EPRMS+20005-+<2"400>+E RRN 
002221 000045 -WORD MS2 
002222 003443 * BR TESTEX ; BRANCH TO DONE 
10 002223 102201 000002 BIT #ATIN,R1 ;CHECK THE ATTENTION LINE, THE GETS TATUS 
11 002225 0912232 BEQ TOB >COMMAND SHOULD HAVE CLEARED IT 
12 002226 ERRHRD MS12;ATTN DID NOT DROP AFTER GET STATUS COMMAND 
002226 021236 CALL RERROR ;ERROR # 15. 
002227 001017 WORD <PRMS*2000>+<2#400>+ERRN 
002230 000500 -WORD MS12 
13 002231 003443 BR TESTEX 
14 002232 TOB: 


--—_——_—_ SS ee... 


/UDAT3 


DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 41 SEQ 0216 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
| \ ISSUE DRIVE CLEAR COMMAND 
| 3 002232. 104303 004666 TI: MOV ST+ST.ERR,R3 GET ERROR BYTE 
| 4 002234 103203 177400 BIC #HIBYTE,RS ZCLEAR ALL _NON-ERROR BITS 
| 5 002236 104030 004647 MOV R3,ERRORS :MOVE TO DRIVE CLEAR SDI AREA 
| 6 002240 104203 004556 MOV #CR.CLR,R3 POINT TO DRIVE CLEAR 
| 7 002242 TALKX — TESTEX,MS13,MS14 = SDI_ INTERCHANGE 
| 002242 021102 CALL ‘TALKER : INITIATE SDI INTERCHANGE 
002243 115003 TST —s «RS > SEE IF ERROR OCCURRED 
002244 012256 BEQ ~=s«128 : IF NOT, BRANCH 
002245 032252 BPL 11$ : IF SO,’ BRANCH 
002246 ERR. iRD MS13;SEND COMMAND ERROR © 
002246 021236 CALL RERROR sERROR # 16. 
002247 001020 “WORD <PRMS*2000>+<2*400>+ERRN 
002250 000535 “WOFD MS13 
002251 003443 BR TESTEX 
002252 11$:  ERRHRD MS14;RECEIVE COMMAND ERROR 
002252 021236 CALL RERROR ;ERROR 
002253 001021 .~ WORD pa EOE ae oly id, 
062254 000567 “WORD MS14 
002255 003443 BR TESTEX 
002256 128: 
8 002256 106207 000176 CMP #COMPLT,RO CHECK FOR SUCCESSFUL RESPONSE 
9 002260 012275 BEQ T2 
10 002261 ERRHRD MS15,4COMPLT,RO 
002261 100467 MoV RO,-(SP) 
002262 104010 001316 MOV R1,SAVREG 
002264 104201 000176 MOV #COMPLT.R1 
002266 100461 MOV R1,-(SP) 
002267 104301 001316 MOV SAVREG,R1 
002271 021236 CALL RERROR sERROR # 18. 
002272 005022 “WORD <PRMS*20005<2"400>+ERRN 
000624 “WORD MS15 


002273 
11 002274 003443 BR TESTEX 


002307 021236 
002310 001024 
000747 
002312 003443 


| UDAT3 DISK FUNCTIONAL MACRO x04.00 9 JUL 81 01:13:55 PAGE 42 SEQ 0217 
| INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
4 z ISSUE CHANGE MODE COMMAND TO ENABLE FORMATTING, DIAG CYL ACCESS AND 256 SECT. 
| 3 002275 104203 004614 T2: MOV #CR.MOD,R3 POINT TO CHANGE MODE COMMAND 
4 002277 TALKX —TESTEX,MS16,MS17 : SDI INTERCHANGE 
002277 021102 CALL TALKER : INITIATE SDI INTERCHANGE 
002300 115003 TST Re : SEE IF ERROR OCCURRED 
| 002301 012313 BEQ 12$ : IF NOT, BRANCH 
002302 032307 BPL 11$ : IF SO, BRANCH 
| 002303 ERRHRD ™S16;SEND COMMAND ERROR 
2303 021236 CALL RERROR sERROR # 19. 
002304 001023 ~WORD <PRMS*2000>+<2*400>+ERRN 
002305 000715 .WORD MS16 
002306 003445 BR TESTEX 
002307 11$: ERRERD ™MS17;RECEIVE COMMAND ERROR 


106207 000176 
6 002315 012332 


002316 100467 
002317 104010 001316 
1 000176 


001316 


002330 
8 00233? 


003443 





12$: 


CALL RERROR sERROR # 20. 
.WORD <PRMS*2000>+<2*400>+ERRN 
~WORD MS17 

BR TESTEX 

CMP #COMPLT,RO sCHECK FOR SUCCESSFUL RESPONSE 

BEQ T03 


ERRHRD MS18,A4COMPLT ,RO 
MOV RO,-(SP) 
MOV R1,SAVREG 


CALL RERROR zERROR # 21. 
«WORD <PRMS*2000>+<2*400>+ERRN 
“WORD MS18 

BR TESTEX 





| UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 43 SEQ 0218 
incaere DRIVE AND LOOK AT DRIVE SIGNALS 
1 : SPIN UP DRIVE 
| 2 002332 104203 004633 103: MOV #CR.RUN,R3 : POINT TO RUN COMMAND 
3 002334 TALKX TESTEX. Nase? MS58 ; SDI INTERCHANGE 
002334 021102 CALL TALKER ; INITIATE SDI INTERCHANGE 
-002335 115003 TST R3 : SEE IF ERROR OCCURRED 
002336 012350 BEQ 12$ : IF NOT, BRANCH 
002337 032344 BPL 11$ ; IF SO, BRANCH 
— - 402340 ERRHRD MS57;SEND COMMAND ERROR 
ai-- 002340 021236 CALL RERROR ERROR # 22. 
~~ 002341 001026 “WORD <PRMS*2000>+<2#400>+ERRN 
— 002342 003436 ~WORD MS57 
002343 003443 BR TESTEX 
002344 11$: ERRHRD MS58;RECEIVE COMMAND ERROR 
002344 021236 CALL RERROR sERROR # 23. 
002345 001027 ~WORD <PRMS*2000>+<2*400>+ERRN 
002346 003464 .WORD MS58 
002347 003443 BR TESTEX 
002350 12$: 
4 002350 106207 000176 CMP #COMPLT ,RO : SEE IF COMPLETED NORMALLY 
5 002352 012367 BEQ T3 ; IF SO, BRANCH 
6 002353 ERRHRD MS59,4COMPLT,RO + REPORT ERROR 
002353 100467 MOV RO,-(SP) 
002354 104010 001316 MOV R1,SAVREG 
002356 104201 000176 MOV #COMPLT,R1 
002360 100461 MOV R1,-(SP) 
002361 104301 001316 MOV SAVREG,R1 
002363 021236 CALL RERROR sERROR # 24. 
005030 . WORD epRens*20005+<5e4005sE RAN 
002365 003515 .WORD MS59 


7 002366 003443 BR TESTEX ; BRANCH 


ee 


mM 1 
| UDAT3 DISK FUNCTIONAL MACRO X046.00 9=JUL-81 01:13:55 PAGE 44 SEQ 0219 
INITIALIZE DRIVE AND LOUK AT DRIVE SiGNALS 
y ISSUE INITIATE RECALIBRATE COMMAND 
3 002367 104203 004626 T3: MOV #CR.INR,R3 zPOINT TO RECAL IBRATE COMMAND 
4 002371 TALKX TESTEX,MS19,MS20 + SDI INTERCHANGE 
002371 021102 CALL TALKER : INITIATE ay INTERCHANGE 
002372 115003 TST R2 : SEE IF ERROR OCCURRED 
002373 013408 BEQ 12$ : IF NOT, BRANCH 
002374 032401 BPL 11$ ; IF SO, BRANCH 
002375 ERRHRD MS19;SEND COMMAND ERROR 
002375 021236 CALL RERROR sERROR # 25. 
002376 001031 rae -WORD <PRMS*2000>+<2*400>+ERRN 
002377 001075 .WORD MS19 
002400 003445 BR TESTEX 
002461 11$: ERRHRD MS20;RECEIVE COMMAND ERROR 
002401 021236 CALL, RERROR sERROR # 26. 
: 002402 001032 -WORD <PRMS*2000>+<2*400>+ERRN 
002403 001127 .WORD MS20 
002404 003443 BR TESTEX 
002405 12$: 
5 002405 106207 000176 CMP #COMPLT,RO CHECK FOR SUCCESSFUL RESPONSE 
6 002407 012424 BEQ T3A 
7 002410 ERRHRD MS21,4COMPLT,RO ;RECALIBRATE COMMAND REJECTED 
002410 100467 MOV RO,-(SP) 
002411 104010 001316 MOV R1,SAVREG 
002413 104201 000176 MOV #COMPLT,R1 
002415 100461 MOV R1,-(SP) 
002416 104301 901316 MOV SAVREG,R1 
002420 021236 CALL RERROR sERROR # 27. 
002421 005033 -WORD <PRMS*2000>+<2*400>+ERRN 
002422 001164 .WORD MS21 
8 002423 003443 BR TESTEX 
9 002424 104204 177716 T3A: MOV #-50.,R4 SET UP 30 SEC CLOCK 
10 002426 104205 144062 T3B: MOV #-14286.,R5 SET UP 0.5 SEC CLOCK 
11 002430 T3C: DSTAT TESTEX, MS10,MS2 :GET DRIVE SIGNALS 
002430 020770 CALL RDS : GET DRIVE STATUS 
002431 102201 010000 BIT #10000, R1 > SEE IF ANY ERRORS 
002433 012447 BEQ 2$ : IF NO ERROR, BRANCH 
002434 102201 004000 BIT #4000,R1 ; SEE IF XMIT ERROR 
002436 012443 BEQ 1$ ; IF SO, BRANCH 
002437 ERRHRD M™S10 ; REPORT INVALID STATUS ERROR 
002437 021236 CALL RERROR sERROR # 28. 
002440 001034 . WORD pete TE gt oP Ae OE 
002441 000454 .WORD MS10 
002442 003443 BR TESTEX : BRANCH TO DONE 
002443 1$: ERRHRD MS2 ; REPORT XMIT ERROR 
002443 021236 CALL RERROR - ;ERROR # 29. 
002444 001035 -WORD <PRMS*2000>+<2*400>+ERRN 
002445 000045 os “WORD MS2 
002446 003443 BR TESTEX : BRANCH TO DONE 
002447 2$: 
12 002447 102201 000002 BIT #ATTN,R1 DID ATTENTION SET? 
13 002451 012456 BEQ T3D _: NO 
14 002452 ERRHRD MS24;:ATTENTION SET AFTER RECALIBRATE COMMAND 
002452 021236 CALL RERROR sERROR # 30. 
002453 001036 “WORD cP RIS 220005 2<5 2600522 RAN 
902454 001255 -WORD MS24 


15 002455 003443 BR TESTEX 





24 002470 003443 BR TESTEX 


[ 
| 
. N 1 
| UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 44-1 SEQ 0220 
ig oe AND LOOK AT DRIVE SIGNALS 
16 ; 
17 002456 Ieee! 100000 T3D: BIT #RWRDY,R1 DID R/W READY SET? 
18 0024 052471 ; BNE T4A : YES 
19 002461 115405 INC R5 
20 002462 052430 ? BNE T3C 
21 002463 115404 . INC RG 
22 002464 052426 BNE T3B 
23 002465 ERRHRD MS25;R/W READY DID NOT SET AFTER RECAL IBRATE COMMAND 
002465 021236 CALL RERROR sERROR # 31. 
002466 001037 WORD PANS #200052<29400>-4ERRN 
002467 001303 «WORD MS25 


gut 





| UDAT3 
INIT] 


D 
AL 
1 
2 


i 
Wn Ew 


F 
D 


002542 


104203 
021102 


032520 
021236 


003443 
021236 
001041 
001612 
003443 


106207 
012543 


100467 


003443 


177417 
004652 
004602 


000167 


001316 
000167 


001316 


UNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 45 
RIVE AND LOOK AT DRIVE SIGNALS 


TGA: 


1$: 


11$: 


12$: 





GET SUBUNIT CHARACTERISTICS 


MOV UNI TNB,R3 ; GET UNIT OFFSET INTO UNITS TABLE 
BIC #177774 ,R3 ; R3_ HAS SUBUNIT NUMBER (0 = 3) 

MOV #10,R0 ; SETUP SUBUNIT MASK 

ROL RO ; SHIFT MASK 

DEC R3 ; DECREMENT SUBUNIT NUMBER 

BPL ; IF MASK NOT COMPUTED YET, BRANCH 


1$ 
BIC A#LBHINB ,RO 
MOV RO, SUBUNT 


; CLEAR UNUSED BITS 


MOV #CR.SCR,R3 ; POINT TO GET SUBUNIT CHARACTERISTICS 
TALKX  TESTEX,MS29,MS30 ; SDI_INTERCHANGE 

CALL TALKER ; INITIATE SDI INTERCHANGE 

TST R3 SEE oder ERROR OCCURRED 

BEQ 12$ : IF NOT, BRANCH 

BP ; IF SO, BRANCH 


L 11$ 
ERRHRD MS29;SEND COMMAND ERROR 
CALL RERROR ERROR # 32. 
«WORD <PRMS*2000>+<2*400>+ERRN 
«WORD MS29 


BR TESTEX 

ERRHRD MS30;RECEIVE COMMAND ERROR 
CALL RERROR ERROR # 33. 
. WORD <PRMS*20005+<2*400>+ERRN 
«WORD MS30 

BR TESTEX 


CMP #SBCRES,RO : TEST AGAINST tyre CODE 
Q 131 BRAN 


BE IF EQUAL 
ERRHRD MS31,4SBCRES,RO; GET SUBUNIT CHARAE TERISTICS Th 
MOV R1,SAVREG 
MOV #SBCRES,R1 
MOV R1,-(SP) 
MOV SAVREG,R1 
CALL RERROR sERROR # 34. 
. WORD EP RIS #20005-+<24009+ERRN 
.WORD MS31 
BR TESTEX 


SEQ 0221 


————_——_—___—-—-————— 


t 2 
| UDAT3 DISK FUNCTIONAL MACRO K04.00 9=JUL=81 01:13:55 PAGE 46 SEQ 0222 
| INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
5 :SEEK TO CYLINDER 0 
3 002543 114007 131: CLR RO LOAD CYLINDER 0, GROUP 0 
4 002544 104070 004767 MOV RO,CURCYL _ 
5 002546 104070 004771 MOV RO,CURCYL +2 
6 002550 104307 004707 MOV SUB+LBNCYL+1,R0 ; GET Hi STARTING CYL NUMBER 
7 002552 103207 007777 BIC #HBH I NB , RO : CLEAR UNUSED BITS 
8 002554 104070 004770 MOV RO,CURCYL+1 : SAVE 
9 002556 104201 004767 MOV 4CURCYL,R1 zPOINT TO ZERO WORD 
10 002560 024231 CALL SEEK 


o 


A CC ee I 


DISK FUNCTIONAL MACRO xX04.00 9=JUL=81 01:13:55 PAGE 47 SEQ 0223 
ALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
1 : CALCULATE NUMBER OF SECTORS PER TRACK 
¢ : NO. OF SECTORS/TRACK =(NO. OF LBN'S/TRACK) + (NO. OF RBN‘S/TRACK) 
4 002561 104301 004712 T4A1: MOV SUB+RBNTRK,R1 ; GET RBN'S/TRACK 
5 092563 103201 177600 BIC #177600,R1 
6 002565 104307 004717 MOV SUB+LRNTRK,RO ; GET LBN'S/TRACK 
7 002567 103207 177400 BIC #HIBYTE,RO ; ZERO UPPER BITS 
8 002571 105071 ADD RO,R : ADD NUMBER OF LBN'S TO RBN'S 
9 002572 104010 004753 MOV R1,SECTRK 3 SAVE 
10 002574 105011 ADD R1,R1 : COMPUTE SECTORS TIMES TwO 
11 002575 104010 004733 MOV R1,NSCSL : AS SECTORS READ BEFORE DECLARING 
4 3; NO HEADER FOUND 
3 COMPUTE FIRST CYLINDER IN XBN AREA 
16 002577 104207 004706 MOV #SUB+LBNCYL,RO ; POINT TO NUMBER OF LBN CYLINDERS 
17 002601 104271 MOV (RO)+,R1 ; GET LO ORDER LAN CYL 
18 002602 104010 004751 MOV R1,FXBNCYL ; FIRST XBN CYLINDER ea 
19 002604 104177 MOV (RO),RO 3 GET HI ORDER LBN CYL 
4 2605 104070 004752 MOV RO,FXBNCYL +7 ; FIRST XBN CYLINDER (HI) 
$$ ;COMPUTE FIRST CYLINDER IN DBN AREA 
24 002607 105301 004727 ADD SUB+XBNCYL,R1 ; ADD NUMBER OF XEN CYLINDERS 
25 002611 042613 BCC T4B : BRANCH IF NO CARRY 
26 002612 115407 INC RO : INCREMENT HI ORDER CYL 
27 002613 104010 004747 14B: MOV R1,FDIACYL : STORE STARTING DBN CYLINDER . 
2 002615 104070 004750 MOV RO,FDIACYL+1 
COMPUTE LAST CYLINDER IN DBN AREA 
32 002617 104303 004730 MOV SUB+DBNCYL ,R3 GET NUMBER OF DBN CYLINDERS 
33 002621 110703 SWAB R3 
02622 103203 177400 BIC #HIBYTE,R3 
35 002624 052631 BN T4C 
36 002625 ERRHRD MS32; CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER 
002625 021236 CALL RERROR : # 35. 
002626 001043 . WORD Spree 200bs 10s eA00s ERIN 
002627 001760 -WORD MS32 
37 002630 003443 BR TESTEX 
38 092631 117403 T4C: DEC R3 REDUCE BY ONE AND ADD TO 
39 0026 105031 ADD R3,R1 ; FIRST DBN CYLINDER TO 
40 002633 042635 BCC T4D ; COMPUTE LAST CYLINDER 
41 002634 115407 INC RO 
42 002635 104010 004744 T4D: MOV R1,LDIACYL STORE LAST DBN CYLINDER 
43 002637 104070 004745 MOV RO,LDIACYL+1 
44 002641 104303 004710 MOV SUB+GRPCYL ,R3 : GET GROUPS/CYLINDER 
45 002643 103203 177400 BIC #HIBYTE,R3 : CLEAR UNUSED BITS 
46 002645 104305 004730 MOV SUB+DBNCYL ,RS : GET NUMBER OF RESERVED DBN GROUPS 
47 002647 103205 177400 BIC MHIBYTE,RS : CLEAR UNUSED BIT 
48 002651 107053 SUB R5,R3 : R3 HAS FIRST RESERVED DBN CYL 
49 002652 104030 004746 MOV R3,LDIACYL+2 
50 002654 104201 004744 MOV ALDIACYL,R1 
51 002656 024231 SEEK TO LAST DBN CYLINDER 





CALL SEEK 


/UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 48 SEQ 0224 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
| 
1 READ ALL FACTORY FORMATTED TRACKS. 
¢ REPORT ERROR IF ALL SECTORS ON A TRACK READ WITH AN ERROR. 
: ; COMPUTE DBN OF FIRST BLOCK ON FACTORY FORMATTED CYLINDER 
g 002657 114005 T6: CLR RS 
| 7 002660 104303 004711 MOV SUB+TRKGRP,R3 : TRACKS/GROUP 
8 002662 103203 177400 BIC #HIBYTE,R3 
9 002664 104304 004753 MOV SECTRK,R4 : & SECTORS/TRACK 
| 10 002666 105035 T6A: ADD R3,R5 : TO COMPUTE NUMBER OF SECTORS PER GROUP 
11 002667 117404 DEC R4 
12 002670 052666 BNE T6A 
13 002671 104050 004765 MOV RS,SECGRP : SAVE SECTORS/GROUP 
14 002673 114001 CLR R1 : BY 
15 002674 PUSH R2 : SAVE R2 
002674 100462 MOV R2,-(SP) 
16 002675 104302 004710 MOV SUB+GRPCYL ,R2 ; GET GROUPS/CYL 
17 002677 103202 177400 BIC #HIBYTE,R2 ; CLEAR UNUSED BITS 
18 002701 104301 004730 MOV SUB+DBNCYL ,R1 : GET CYLINDERS IN DBN AREA 
19 002703 110701 SWAB R1 
20 002704 103201 177400 BIC #HIBYTE,R1 ; TO COMPUTE BLOCK NUMBER OF FIRST BLOCK 
21 002706 114005 CLR RS > CLEAR PRODUCT 
22 002707 105025 1$: ADD R2,R5 
2 27 117401 DEC R1 
24 002711 052707 BNE 1$ 
25 002712 POP R2 : RESTORE R2 
002712 104262 MOV (SP)+,R2 
26 002713 104307 004730 MOV SUB+DBNCYL ,RO : GET RESERVED GROUPS 
27 002715 103207 177400 BIC AMHIBYTE,RO ; CLEAR UNUSED BIT 
28 002717 107075 SUB »R5 ; R5 IS NOW NUMBER or WRITEABLE GROUPS 
29 002720 114007 CLR RO 
30 002721 105301 004765 T6C: ADD SECGRP,R1 
31 002723 042725 BCC T6D 
32 002724 115407 INC RO 
33 002725 117405 TOD: DEC R5 
34 002726 052721 BNE T6C 
35 002727 104303 004711 MOV SUB+HIDBN,R3 GET HI DBN BITS 
36 002731 110603 ROR R3 SHIFT INTO POSITION 
37 002732 110603 ROR R3 
38 002733 110603 ROR R3 
39 002734 110603 ROR R3 
40 002735 103203 170377 BIC #HBLONB,R3 CLEAR UNUSED BITS 
41 002737 101037 BIS R3,R SET HI BIT 
42 002740 101207 140000 BIS #HD . DBN, RO SET IN Ba HEADER CODE 
43 002742 104010 004763 MOV R1, CURBLK 
44 002744 104070 004764 MOV RO, CURBLK+1 
45 002746 104010 004742 MOV R14LCDBN 
46 002750 104070 004743 MOV RO, LCDBN 
7 002752 104300 004746 004766 MOV ye CURGRP 
48 002755 104205 004763 MOV #CURBLK R5 
49 002757 114004 CLR R4 
50 002760 104303 004753 MOV SECTRK,R3 
51 002762 024364 T6E: CALL READ1 READ EACH SECTOR TILL ONE READS OK 
52 002763 115404 INC R4 
3 0027 104301 004711 MOV SUB+TRKGRP,R1 UNTIL ALL TRACKS READ 
54 002766 103201 177400 BIC #HIBYTE,R1 
55 002770 106014 CMP R1,R4 
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/UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL~81 01:13:55 PAGE 48-1 SEQ 0225 
/ INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 


| 56 002771 013001 BEQ «TET 
| $7 002772 105300 004753 004763 ADD SEC TRK,, CURBLK 
| 58 002775 043021 BCC «TOF 
| 59 002776 115400 004764 INC —- CURBLK#1 
60 003000 003021 BR TOF 
| 61 003001 115400 004766 T6E1: INC CURGRP 
| 62 003003 104303 004710 MOV SUB*GRPCYL RS 
63 003005 106030 004766 CMP —sR'3,, CURGRP 
64 003007 013022 BEQ =: TOX 
65 003010 104300 004766 004746 MOV CURGRP LDIACYL +2 
66 003013 104201 004744 ‘MOV #LDIACYL,R 
67 003015 024231 CALL SEEK 
68 003016 114004 CLR RG 
69 003017 104303 004753 MOV —SECTRK,R3 
70 003021 002762 T6F: BR 16 
71 003022 104304 004730 T6X: MOV SUB+DBNCYL ,R4 ; GET NUMBER OF RESERVED GROUPS 
72 003024 103204 177400 BIC  #HIBYTE,R4 
73 003026 104301 004710 MOV SUB+GRPCYL,R1 3; GET GROUPS/CYLINDER 
74 003030 103201 177400 BIC - AHIBYTE,R1 


75 003032 107041 SUB R4,R1 ; R1 HAS FIRST RESERVED GROUP 
76 003033 104010 004746 MOV R1,LDIACYL+2 ; SAVE 





| UDAT3 DISK FUNCT IONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 49 SEQ 0226 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
1 :STARTING WITH CYLINDER 0, GROUP 0 AND INCREMENTING THROUGH EVERY GROUP 
2 ‘ON THE DISK, PERFORM A SEEK TO THE SELECTED GROUP, READ A HEADER 
3 [ON THAT GROUP AND THEN A SEEK TO THE FACTORY FORMATTED DIAGNOSTIC 
é :GROUP TO VERIFY HEADS POSITIONED CORRECTLY. 
| 
g : COMPUTE LENS PER GROUP 
j 
8 003035 114001 17: CLR R1 : LBN'S/TRK X TRK/GROUP 
| 9 003036 104305 004711 MOV SUB+TRKGRP,R5 
10 003040 103205 177400 BIC AHIBYTE,R5 
| 11 0030462 104303 004717 MOV SUB+LBNTRK ,R3 :GET LBN'S PER TRACK 
12 003044 103203 177400 BIC HHIBYTE ,R3 [CLEAR UNUSED BITS 
13 003046 105031 17A: ADD R3,R1 
| 14 003047 117405 DEC RS 
| 15 003050 053046 BNE T7A 
16 003051 104010 004761 MOV R1,BLOCKG :SAVE IN BLOCKG 
17 003053 104050 004756 MoV R5.TSTCYL 
18 003055 104307 004707 MCV SUB+HICYL,RO 
19 003057 103207 007777 BIc #HBHINB RO :CLEAR UNUSED BITS 
20 003061 104070 004757 MOV RO, TSTCYL+#1 
21 003063 104050 004760 MOV R5.TSTCYL+2 :GROUP ZERO 
22 003065 104050 004754 MOV R5.TSTBLK 
23 003067 104307 004710 MOV SUB+HILBN,RO 
24 003071 103207 170377 BIC #HBLONB , RO :CLEAR UNUSED BITS 
25 003073 104070 004755 MOV RO, TSTBLK+1 
26 003075 104307 004717 MOV SUB+LBNTRK ,RO :GET LBN BLOCKS IN EACH TRACK 
27 003077 103207 177400 BIC #HIBYTE RO =CLEAR UNUSED BIT 
28 003101 104070 004762 MOV RO,BLOCKT 
29 003103 114004 CLR R4 :READ TRACK 0 
30 003104 104205 004754 17: MOV #TSTBLK,R5 :POINT TO LBN NUMBER 
31 003106 104303 004762 MOV BI OCKT,R3 ‘GET MAXIMUM NUMBER OF SECTOPS TO READ 
32 003110 104201 004756 MOV ATSTCYL,R1 *SEEK TO CYLINDER 
33 003112 024231 CALL SEEK 
34 003113 024364 CALL — READ :READ UNTIL AT LEAST ONE RECORD READ WITHOUT ERROR 
35 003114 104205 004742 MOV ALCDBN,R5 [POINT TO DBN NUMBER 
3% 003116 104303 004753 MOV SECTRK.R3 “GET MAXIMUM NUMBER OF SECTORS TO READ 
37 003120 104201 004744 MOV ALDIACYL,R1 =SEEK TO DIAGNOSTIC CYLINDER 
38 003122 024231 CALL SEEK 
39 003123 024364 CALL READ :READ UNTIL AT LEAST ONE RECORD READ WITHOUT ERROR 
40 003124 104307 004760 MOV TSTCYL+2,RO 
41 093126 115407 INC RO 
42 003127 104301 004710 MOV SUB+GRPCYL ,R1 
43 003131 103201 177400 BIC MHIBYTE,R1 
44 003133 106071 CMP RO,R1 
45 003134 013140 BEQ T7(1 
46 003135 104070 004760 MOV RO, TSTCYL+2 
47 003137 003222 BR 176 
48 003140 104307 004756 T7C1: MOV TSTCYL,RO :GET CURRENT CYLINDER 
49 003142 115407 INC RO ‘INCREMENT TO NEXT 
50 003143 104070 004756 MOV RO, TSTCYL *SAVE NEW CYLINDER 
51 003145 104301 004757 MOV TSTCYL+1,R1 
52 003147 043153 BCC 17D 
53 003150 115401 INC R1 
54 003151 104010 004757 MOV R1,TSTCYL#1 
55 003153 114005 17D: CLR R5 
56 003154 104050 004760 MOV R5,TSTCYL+2 
57 003156 106307 004751 CMP F XBNCYL ,RO sCHECK IF INCREMENTED TO XBN AREA 
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58 003160 
59 003161 


87 003236 
88 003237 


053214 


OO 390 
WOO 
ORRRR 
OS0000 
NN NNN 


eo 

NM 
NO 
Ons 
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WO 

oO 
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003104 


004752 


004754 
004710 


170377 


004761 
004747 
004750 
004754 
004761 
004754 
004755 


004755 


T7E: 


T7G: 


K FUNCTIONAL MACRO k04.00 9=JUL-81 01:13:55 PAGE 49-1 
E— DRIVE AND LOOK AT DRIVE SIGNALS 


T7E 
FXBNCYL+1,R1 
T7E 

RO 

RO, TSTBLK 
SUB+HI XBN,RO 
RO 
RO 
RO 

RO 

#HBL ONB , RO 
#HD . XBN,RO 
RO, TSTBLK+1 
SECTRK,RO 
RO,BLOCKT 


SECGRP ,RO 
RO,BLOCKG 


T7C 
FDIACYL,RO 
T7G 
FDIACYL+1,R1 
T7X 

TSTBLK ,R0 
BLOCKG,RO 
RO, TSTBLK 
T7H 

a ere 


RO, TSTBLK+1 
T7C 


; TO FIRST XBN 
; ROTATE TO CORRECT BIT POSITION 


:STRIP OFF UNUSED BITS 


; CHANGE BLOCK COUNT PER TRACK 
CHANGE BLOCK COUNT PER CYLINDER 


sNOW GO SEEK TO THIS XBN 
CHECK IF INCREMENTED TO DBN AREA 


:GET BLOCK NUMBER 
:ADD BLOCKS PER GROUP 
;SAVE NEW TEST BLOCK NUMBER 


sNOW TEST NEXT CYLINDER 


SEQ 0227 


————_—_—_———————— 


1 2 


/UDAT3 DISK FUNCTIONAL MACRO X04.00 9-JUL-81 01:13:55 PAGE 50 SEQ 0228 
| INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
| } 003237 18: 
3 : FORMAT A TRACK, THEN DO SEVERAL WRITES, READS AND DATA COMPARES 
4 : UNTIL ONE SECTOR PASSES. DO THIS FOR EACH TRACK IN EACH GROUP 
| 5 : ON EACH CYLINDER IN THE DIAGNOSTIC MEA EXCEPT FOR THE LAST 
| 6 : (FACTORY FORMATTED) CYLINDER ON THE P 
8 003237 104201 004756 MOV ATSTCYL,R1 : POINT TO CYLINDER TO SEEK TO 
| 9 003241 024231 CALL SEEK > SEEK TO FIRST DIAGNOSTIC CYLINDER 
10 003242 114004 CLR RG + START WITH DBN 0 
11 003243 104040 004754 MOV R4, TSTBLK 
12 003245 104307 004711 MOV SUB+HIDBN,RO : GET HIGH ORDER BITS OF STARTING DBN 
13 003247 110207 ROL RO : MOVE TO CORRECT POSITION 
14 003250 110207 ROL RO 
15 003251 110207 ROL RO 
16 003252 110207 ROL RO 
17 003253 103207 170377 SIC #HBLONB , RO : CLEAR UNUSED BITS 
18 003255 101207 140000 BIS #HD..DBN,RO : SET HEADER CODE 
19 003257 104070 004755 MOV RO, TSTBLK+1 : MOVE TO HIGH ORDER STARTING DBN 
20 003261 104040 004772 TBA: MOV R4, CURTRK : SAVE TRACK NUMBER 
21 003263 023444 CALL FORTRK + FORMAT THE TRACK 
22 003264 023563 CALL TRKTST > TEST THE TRACK 
23 003265 104307 004754 MOV TSTBLK,RO : GET LO TRACK'S STARTING BLOCK NUMBER 
24 003267 105307 004753 ADD SECTRK,RO + ADD SECTORS/TRACK 
25 003271 104070 004754 MOV RO, TSTBLK : SAVE 
26 003273 043301 BCC T8B ; IF _NO CARRY, BRANCH 
27 0032 104307 004755 MOV TSTBLK+1,RO : GET HI ORDER 
28 003276 115407 INC R > INCREMENT 
29 003277 104070 004755 MOV RO, TSTBLK+1 > SAVE 
30 003301 104304 004772 T8B: MOV CURTRK,R4 > GET TRACK NUMBER 
31 003303 115404 INC R4 + INCREMENT TRACK NUMBER 
32 003304 194303 004711 MOV SUB+TRKGRP,R3 > GET NUMBER OF TRACKS/GROUP 
33 0033 103203 177400 BIC #HIBYTE ,R3 > CLEAR UNUSED BITS 
003310 106034 CMP R3,R4 : SEE IF ALL TRACKS READ 
35 003311 053261 BNE TBA : IF NOT, BRANCH 
0033 114004 CLR R4 ; ZERO R4 
37 003313 115400 004760 INC TSTCYL+2 * MGVE TO NEXT GROUP 
003315 104301 004710 MOV SUB+GRPCYL ,R1 : GET GROUPS/CYLINDER 
39 003317 103201 177400 BIC MHIBYTE,R1 : CLEAR UNUSED BITS 
40 003321 106010 004760 CMP R1,TSTCYL+2 > COMPARE 
41 003323 053333 BNE T8D : IF ALL GROUPS NOT TESTED, BRANCH 
42 003324 104040 004760 MOV RG, TSTCYL+2 > START WITH GROUP 0 ON NEW CYLINDER 
43 003326 115400 004756 INC TSTCYL > INCREMENT CYLINDER 
44 003330 043333 BCC T8D : IF NO CARRY, BRANCH 
45 003331 115400 004757 INC TSTCYL+1 : INCREMENT HI CYLINDER 
46 003333 106300 004756 004744 T8D: CMP TSTCYL LDIACYL : SEE IF ON LAST CYLINDER (LO ORDER) 
47 0033 053347 BNE 1$ : IF NOT, BRANCH 
48 003337 106300 004757 004745 CMP TSTCYL+1,LDIACYL+1 > SEE IF ON LAST CYLINDER (HI ORDER) 
49 007342 053347 BNE 1 : IF NOT, BRANCH 
50 005343 106300 004760 004746 CMP TSTCYL+2,LDIACYL+2 + SEE IF ON RESERVED GROUPS 
51 003346 013353 BEQ T8X : IF SO, END THIS PHASE OF TEST 
52 003347 104201 004756 1$: MOV A#TSTCYL,R1 : POINT TO NEW CYLINDER OR GROUP 
5% 003351 024231 CALL SEEK : ISSUE SEEK 
003352 003261 BR TBA > BRANCH 


54 2 
55 003353 


T8X: 
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-UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 51 


| INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 


1 003353 104202 004570 19: 
2 003355 
003355 021102 


003360 033365 


003361 021236 
003362 001044 
003363 003124 
003364 003443 


003371 12$: 


3 003371 106207 000176 
4 003373 013410 


003374 100467 
003375 104010 001316 
003377 104201 900176 


003402 104301 001316 


00 
6 003407 003443 


7 003410 TOX: 


| 

| 

| 

003365 118: 
003365 021236 
003366 


BPL 
ERRHRD 


BR 
ERRHRD 


BR 
CMP 


BEQ 
ERRHRD 


BR 


#CR.DIS,R3 ; POINT TO DISCONNECT COMMAND 

TESTEX, meee, MS53 ; SDI INTERCHANGE 

TALKER ; INITIATE SDI INTERCHANGE 

R3 ; SEE IF ERROR OCCURRED 

12$ 3 IF NOT, BRANCH 

11$ ; IF SO, BRANCH 

MS5é;SEND COMMAND ERROR 
CALL RERROR sERROR # 36. 
-WORD <PRMS*2000>+<2*400>+ERRN 
~WORD MS52 

TESTEX 

MS53;RECEIVE COMMAND ERROR 
CALL RERROR sERROR # 37. 
~WORD <PRMS*2000>+<2*400>+ERRN 
~WORD MS53 

TESTEX 

#COMPLT,RO ; CHECK FOR SUCESSFUL RESPONSE 

T9x : IF SO, BRANCH 

MS54,4COMPLT,RO s 3F NOT, REPORT ERROR 
MOV RO,-(SP) 
MOV R1,SAVREG 
MOV #COMPLT,R1 
MOV R1,-(SP) 
MOV SAVREG,R1 
CALL RERROR sERROR # 38. 
. WORD pn oly Regs PO 
~WORD MS54 

TESTEX ; BRANCH TO END OF TEST 


SEQ 0229 


a 


RI 

iY 114005 
11. 020720 
412 
414 
15 


| 

| 

| eras 013424 
003420 021236 
003421 001047 
003422 000000 
003423 003443 


003424 021236 


4 003432 053443 


7 003435 103201 
003437 100461 


003442 003372 
9 003443 


010000 
004000 


000100 


077674 





T10: 


TIOLOP: 


1$: 


2$: 


T10X: 


UNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 52 
VE AND LOOK AT DRIVE SIGNALS 


C R5 

DSTAT TESTEX,MS1,MS2 
C RDSTAT 

BIT eer 

BIT #4000,R1 

BEQ 1$ 

ERRHRD MS1 


oR TESTEX 
ERRHRD MS2 


BR TESTEX 
BIT MAVAIL ,R1 
BNE T10X 
DEC R5 
BNE T10LOP 

IC #077674 ,R1 


B 
ERRHRD MS56,R1 


Bae Be Se Be Be Be Be Be 


ee 


SEQ 0230 


SET UP TIMEOUT COUNTER 
GET REAL TIME DRIVE STATE 
GET DRIVE STATUS 
SEE IF ANY ERRORS 
IF NO ERROR, BRANCH 
SEE IF XMIT ERROR 
IF SO, BRANCH 
REPORT INVALID STATUS ERROR 
CALL RERROR sERROR # 39. 
.~ WORD te a edly Age a 


~WORD MS1 

BRANCH TO DONE 

REPORT XMIT ERROR 
CALL RERROR ; ERROR 40. 
«WORD <Pages «2008 0-<29400> 82 RAN 
~WORD MS2 

BRANCH TO DONE 


SEE IF AVAILABLE IS ASSERTED 
IF SO, BRANCH 
DECREMENT TIMEOUT COUNT 
IF UNEXPIRED, BRANCH 
CLEAR UNUSED BITS 
REPORT ERROR 
MOV R1,-(SP) 


CALL RERROR sERROR # 41. 
~WORD <PRMS*2000>+<2*400>+ERRN 
~WORD MS56 


A S  — 


| UDAT3 DISK FUNCTIONAL MACRO K04.00 9=-JUL=-81 01:13:55 PAGE 53 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 


1 003443 001764 TESTEX: BR TESTX 





SEQ 0231 


| UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 54 SEQ 0232 ! 
INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
‘ 003444 FORTRK: 
3 : FORMAT TRACK GIVEN BY CURTRK, STARTING WITH DBN GIVEN IN TSTBLK 
: . THE DATA WRITTEN IS UNPREDICTABLE 
6 003444 104307 004754 MOV TSTBLK,RO ; GET LO STARTING DBN 
7 003446 104301 004755 MOV TSTBLK+1 R1 ; GET HI STARTING DBN 
8 003450 104203 005433 MOV #OBUFF ,R3 : POINT TO OUTPUT BUFFER 
9 003452 104304 004753 MOV SECTRK,RS ; R4 CONTAINS NUMBER OF SECTORS TO FORMAT 
10 003454 104205 006034 MOV #F CHAIN, RS ; RS POINTS TO FORMAT CHAIN 
11 003456 100253 FLOOP: MOV R3,(R5)+ ; MOVE POINTER TO BUFFER TO CHAIN 
12 003457 100257 MOV RO, (R5)+ ; MOVE LO DBN TO CHAIN 
13 003460 100251 MOV R1,(R5)+ ; MOVE HI DBN TO CHAIN 
14 003461 115407 INC RO : INCREMENT LO DBN 
15 003462 043464 BCC F CARY : IF NO CARRY, BRANCH 
16 003463 115401 INC R1 + INCREMENT HI DBN 
17 003464 117404 FCARY: DEC R4 + DECREMENT SECTOR COUNT 
18 003465 053456 BNE FLOOP ; BRANCH IF COUNT UNEXHAUSTED 
19 003466 104207 100000 MOV #FSTOP,RO ; GET FORMAT END-OF-CHAIN FLAG 
0 063470 100157 MOV RO, (RS) > MOVE INTO CHAIN 
21 003471 DSTAT TESTEX,MS10,MS2 + GET DRIVE STATE 
003471 020720 CALL RDSTAT > GET DRIVE STATUS 
003472 102201 010000 BIT #10000,R1 : SEE IF ANY ERRORS 
003474 013510 BEQ 2 ; IF NO ERROR, BRANCH 
003475 102201 004000 BIT #4000,R1 ; SEE IF XMIT ERROR 
003477 013504 BEQ 1$ > IF SO, BRANCH 
003500 ERRHRD MS10 3 REPORT INVALID STATUS ERROR 
003500 021236 CALL RERROR — ;: ERROR # 42. 
003501 001052 — <PRMS *2000>+<2*400>+ERRN 
003502 000454 WORD MS10 
003503 003443 BR TESTEX ; BRANCH TO DONE 
003504 1$: ERRHRD MS2 ; REPORT XMIT ERROR 
35 021236 CALL RERRCR sERROR # 43. 
003505 001053 -WORD <PRMS*2000>+<2*400>+ERRN 
003506 000045 “wORD MS2 
003507 003443 BR TESTEX ; BRANCH TO DONE 
003510 2$: 
22 003510 102201 100000 BIT #RURDY , R1 ; TEST R/W READY 
003512 053517 BNE IF ASSERTED, BRANCH 
24 003513 ERRHRD nets. READ/WRITE READY DROPPED BEF ORE FORMAT 
003513 021236 CALL RERROR — ;ERROR 
003514 001054 . WORD pres * 2000s cre 400>+ERAN 
003515 002020 “WORD MS35 
25 003516 003443 BR TESTEX ; BRANCH TO EXIT 
26 003517 104207 006034 FGO: MOV #F CHAIN, RO ; POINT TO FORMAT CHAIN (FOR XFC) 
27 003521 104304 004713 MOV SUB+DATPRE ,R4 + GET DATA PREAMBLE LENGTHS 
28 003523 103204 177400 BIC #HIBYTE ,R4 + CLEAR UNUSED BITS 
29 003525 104303 004713 MOV SUB+HDRPRE , R3 + GET HEADER PREAMBLE LENGTH 
003527 110703 SWAB OR. + SWAP BYTES 
1 003530 103203 177400 BIC #HIBYTE ,R3 + CLEAR UNUSED BYTES 
32 003532 104301 004772 MOV CURTRK,R1 ; TRACK NUMBER 
3 003534 060001 XFC FORMAT : FORMAT THE TRACK (BUFFER CONTENTS ARE A DON'T CARE 
34 003535 115001 TST ; SEE wif ANY ERRORS OCCURRED 
0035 013562 BEQ FOREXT : IF NO BRANCH 
36 003537 ERRHRD MS36,INS+1,INS+2, INS+3,CURTRK; TIREDOT OF DRIVE OR READ/WRITE READY DROPPED D 
003537 104010 001316 MOV R1,SAVREG 
003541 104301 004772 MOV CURTRK, R1 





| UDA AT3 D 

INITIAL 
301 004661 
301 004660 

00461 

04301 004657 

104301 001316 


37 003562 


FOREXT: 
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RE TURN 


SEQ 0233 


MOV R1,-(SP) 

MOV INS+3,R1 

MOV R1,-(SP) 

MOV INS+2,R1 

MOV R1,-(SP) 

MOV INS+1,R1 

MOV R1,-(SP) 

MOV SAVREG, R1 

CALL RERROR ; ERROR 45. 
«WORD spremaditinccbeahen shite 
~WORD MS36 


ee od 


wet 


D 
INITIAL 





003563 


003563 


2 
27 003624 


004754 
004764 
004753 


004774 
000001 


004763 
004765 
004764 


004764 
004774 


TRKTST: 


TRKLOP: 


TRKBOT : 


TRKEXT: 





a a 
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SEQ 0234 


TEST THE ENTIRE TRACK UNTIL AT LEAST ONE BLOCK IS SUCCESSFULLY 
WRITTEN AND READ WITH SEVERAL DATA PATTERNS 


BPL 
RE TURN 


TSTBLK,RO 
RO, CURBLK 
TSTBLK+1,RO 
RO, CURBLK+1 
ee »R1 


it 6 eee 

WTRCMP 

RO 

TRKEXT 

am RO 

ood CURBLK 
TRKBOT 

CURBLK+1 ,RO 


RO 
RO, CURBLK+1 
ae om? 


TRKLOP 


Be Be Be Be Be Be Be Be Be Be Be Be & . 


; MOVE LO STARTING DBN TO CURRENT DBN 
; MOVE HI STARTING DBN TO CURRENT DBN 


; GET SECTORS/TRACK 

; ADJUST FOR END LOOP WHEN NEGATIVE 
; SAVE SECTORS LEFT IN SECTOR COUNT 
; MOVE 1 TO CURRENT PATTERN 

; WRITE THAN READ 

; SEE IF WRITES, READS AND COMPARES WERE GOOD 
; IF SO, BRANCH 

; GET LO CURRENT BLOCK NUMBER 


AND COMPARE THE SECTOR 


INCREMENT DBN NUMBER 


SAVE 

BRANCH IF NO CARRY 
GET HI DBN NUMBER 
INCREMENT 


SAVE 

GET SECTOR COUNT 
DECREMENT COUNT 

BRANCH IF COUNT POSITIVE 


————__- -- —-— cv OO > 


| 


| UDAT 
j INIT A 


3 
i 


03625 


3 
S 
2 


Monn ee ee ee ee 
—"OD@ANAUSWN— 
S i=) 
3 
oO 


23 003651 


104010 


004773 
006321 


004773 
006321 


WTREXT: 


ISK FUNCTIONAL MACRO X04.00 9=JUL~81 01:13:55 PAGE 56 
1ZE DRIVE AND LOOK AT DRIVE SIGNALS 
0 


WIRCMP: 


SEQ 0235 


WRITE A DATA PATTERN TO A SECTOR, READ IT BACK, THEN DO A DATA 


COMPARE ON THE DATA, 
CURRENT PATTERN NUMBER IN 'CURPAT' 


8 
RE TURN 


R1,CURPAT 


pat 


WTREXT 
linc 


R 
PATPTR,R1 
WTRCMP 


Be Be Be Be Be Be Fe Se Be Be Be Se Be Be 


DO THIS AS MANY TIMES AS THERE IS PATTERNS. 


R1 IS CURRENT PATTERN NUMBER 

R1 NOW POINTS TO PATTERN TO GENERATE 
GENERATE THE PATTERN IN THE OUTPUT BUFFER 
WRITE THE PATTERN 

SEE IF ANY ERROR OCCURRED 

IF SO, BRANCH 

READ THE BLOCK 


K BACK 
; SEE IF ANY ERRORS OCCURRED 
; IF SO, BRANCH 

; COMPARE THE DATA 

; SEE IF se. pg OCCURRED 


IF SO, BRANCH 

GET CURRENT PATTERN 

NEXT PATTERN 

COMARE AGAINST MAXIMUM PATTERN NUMBER 
IF LESS OR EQUAL, LOOP 


eo_--—_———_ 


| 
} 
' 
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| INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 


| 
| 





1 003652 


003652 


QAUWiFWWH OO ABDNAVIFWI 
Lo] 


rite 
SESS 


; 
1 
1 
1 
1 
1 
1 
: 
- 


003666 
19 003667 
20 003670 
21 003671 
00367% 
22 003672 


003660 
104262 
000000 


000400 
005433 


GENPAT: 


Be Be Se Be Be Be 


GENOUT : 


GENIN: 


GENEXT: 


13:55 PAGE 57 


D 


GENERATE THE DATA PATTERN IN THE OUTPUT BUFFER 


R1 POINTS TO POINTER TO PATTERN BUFFER WHICH IS PATTERN LENGTH 
(1 WORD) FOLLOWED BY THAT MANY WORDS OF PATTERN 


PUSH 


R2 


(R1),RO 
#256. »R3 
ef 


RO,R 
(R1)+,R5 
(R1)+,R2 

Rg (RG) + 

CENEXT 
R5 


GENIN 
GENOUT 
R2 


° 
’ 


SAVE R2 
-(SP) 


MOV R2, 
RO POINTS TO START OF PATTERN BUFFER 
R3 HOLDS PATTERN COUNT 
R4 POINTS TO OUTPUT BUFFER 
R1 POINTS TO START OF PATTERN BUFFER 
R5 CONTAINS LENGTH OF PATTERN 
GET WORD co PATTERN 
MOVE TO BUFFER 
DECREMENT BUFFER COUNT 
IF BUFFER FULL, EXIT 
DECREMENT PATTERN COUNT 
IF NON-ZERO, BRANCH 
START PATTERN OVER AGAIN 


RESTORE R2 
MOV (SP)+,R2 


SEQ 0236 


ooo 


a en Cn 
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WNIT IALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
j 
} 003673 WRITER: 
| Py 
? : WILL WRITE ONE SECTOR OF DATA TO THE DISK 
5 003673 104207 140000 MOV #wWSTOP,RO 
6 003675 104070 005425 MOV RO,RW.STAT+CHAIN; MOVE END-OF=CHAIN TO CHAIN 
7 003677 104307 004763 MOV CURBLK,RO ; MOVE LO DBN TO CHAIN 
8 003701 104070 005427 MOV RO,RW.LOW+CHAIN 
| 9 003703 104307 004764 MOV CURBLK+1,RO ; MOVE HI DBN TO CHAIN 
| 10 003705 104070 005430 MOV RO,RW.HI+CHAIN 
11 003707 104307 004772 MOV CURTRK,RO :; MOVE TRACK + RTC TO CHAIN 
12 003711 101207 122400 BIS #WREAL ,RO ; SET REAL TIME COMMAND wRITTE 
| 13 003713 104070 005431 MOV RO, RW. CMD+CHAIN 
14 003715 104207 005433 MOV HOBUFF ,RO ; MOVE OUTPUT BUFFER TO CHAIN 
15 003717 104070 005426 MOV RO, RW. BUF +CHAIN 
16 003721 DSTAT TESTEX,MS10,MS2 ; GET DRIVE STATE 
020720 CALL RDSTAT ; GET DRIVE STATUS 
102201 010000 BIT #10000,R1 : SEE IF ANY ERRORS 
013740 BEQ 2$ : IF NO ERROR, BRANCH 
102201 004000 BIT #4000,R1 : SEE IF XMIT ERROR 
013734 BEQ 1$ : IF SO, BRANCH 
ERRHRD MS10 : REPORT INVALID STATUS ERROR 
021236 CALL RERROR ERROR # 46. 
001056 . WORD <PRMS *2000>+<2*400>+ERRN 
000454 “WORD MS10 
003443 BR TESTEX ; BRANCH TO DONE 
1$: ERRHRD MS2 ; REPORT XMIT ERROR 
021236 CALL RERROR ZERROR # 47. 
001057 -WORD <PRMS*2000>+<2*400>+ERRN 
000045 WORD MS2 
003443 ra BR TESTEX : BRANCH TO DONE 
102201 100000 BIT #RWRDY RI ; SEE IF READ/WRITE READY IS ASSERTED 
053754 BNE wGO : IF SO, BRANCH 
104307 004774 MOV SECCNT,RO ; GET SECTOR COUNT 
054026 BNE WRTEXT IF NONZERO, DO NOT REPORT ERROR 
ERRHRD MS39;READ/WRITE DROPPED READY BEFORE WRITE 
021236 CALL RERROR ERROR # 48. 
01060 .WORD <PRMS*2000>+<2*400>+ERRN 
002131 «WORD MS39 
104207 000001 MOV #1,RO0 ; FLAG ERROR 
004026 ay WRTEXT : BRANCH 
0012 wGO: KFC WAITSI ; WAIT FOR SECTOR OR INDEX PULSE 
104207 005425 MOV #CHAIN,RO : POINT TO WRITE CHAIN 
4304 004713 MOV SUB+DATPRE ,R4 ; MOVE DATA PREAMBLE LENGTH TO R4 
103204 177400 BIC #HIBYTE,RS ; CLEAR UNUSED BITS 
0003 XFC XWRITE : WRITE THE BLOCK 
114007 CLR RO : FLAG AS NO ERRORS 
115001 TST R1 : SEE IF AN ERROR OCCURRED 
014026 BEQ WRTEXT : IF NOT, CH 
307 004774 MOV SECCNT RO ; SEE IF ERROR SHOULD BE REPORTED 
054026 BNE ; IF NOT, BRAN 
ERRHRD Hh Sp at. CURBLK, CURBLK*+1, 1NS*1, INS#2, INS*3, CURTRK;ERROR DURING WRITE 
104010. 001316 MOV Ri,SAVREG 
104301 004772 MOV CURTRK,R1 
100461 MOV R1,-(SP) 
104301 004661 MOV INS+3,R1 
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2 
35 004024 
36 004026 


bes 


— 

Ww 
ae 
_ 


004660 
004657 
004764 
004763 
001316 


000001 


WRIEXKT: 


MOV 
RE TURN 


#1,R0 


SEQ 0238 


MOV R1,=(SP) 


MOV R1,=-(SP 


MOV SAVREG, R1 

MOV R1, -(SP) 

CALL RERROR ERROR 

«WORD crs «20005 025 -400>+ERAN 


-WORD MS40 
; MAKE RO NONZERO 70 REPORT ERROR 


“INITIA 


SS sss sss sens 


DIS 
ilZ 
004027 


1 
2 
3 
4 
5 
6 
4 004033 104307 
9 
0 
1 
2 


1 
1 
; 


062 
004063 003443 
004 


13 102201 
14 004066 054100 
15 004067 104307 
‘3 054146 
004072 AS 


21 004101 104207 
22 004103 060002 
23 004104 114007 
24 004105 115001 
25 004106 014146 
26 004107 104307 
27 004111 054146 
28 004112 
004112 104010 
004114 104301 
004116 100461 
004117 104301 
004121 100461 
004122 104301 
004124 100461 
004125 104301 
004127 100461 
004130 104301 


100000 


005426 


010000 
004000 


100000 
004774 


000001 


005425 


004774 
BIS 
004661 
004660 
004657 
004764 


READB: 
: READ ONE SECTOR FROM DISK 
MOV ARSTOP,RO 
MOV RO,RW.STAT+CHAIN 
MOV CURTRK,RO 
BIS #RREAL ,RO 
MOV RO,RW. CMD+CHAIN 
MOV #RBUF D,RO 
MOV RO,RW. BUF +CHAIN 
DSTAT TESTEX, MS10,MS2 
CALL RDSTAT 
BIT #10000,R1 
BEQ 2$ 
BIT #4000,R1 
BEQ 1$ 
ERRHRD MS10 
BR TESTEX 
i$: ERRHRD MS2 
BR TESTEX 
2s: 
BIT #RWRDY,R1 
BNE RGO 
MOV SECCNT,RO 
BNE REDEXT 
ERRHRD MS43;READ/WRITE DROPPED 
MOV #1,R0 
BR REDEXT 
RGO: XFC WAITSI 
MOV #CHAIN,RO 
xFC XREAD 
CLR RO 
TST R1 
BEQ REDEXT 
| Seen RO 
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SEQ 0239 


; MOVE END-OF=CHAIN TO CHAIN 


MOVE TRACK NUMBER AND RTC TO CHAIN 
SET REAL TIME READ COMMMAND 


MOVE POINTER TO INPUT BUFFER INTO CHAIN 


GET DRIVE STATE 
GET DRIVE STATUS 


SEE IF XMIT “ERROR 

IF SO, BRANCH 

REPORT INVALID STATUS ERROR 
CALL RERROR ZERROR # 50. 
.WORD <PRMS*2000>+<2#400>+ERRN 
“WORD MS10 


; BRANCH TO DONE 


REPORT XMIT ERROR 
CALL RERROR ZERROR # 51 
- WORD <PRMS *2000>+<2*400>+ERRN 
RD MS2 


BRANCH TO DONE 


SEE IF READ/WRITE READY IS ASSERTED 
IF SO, BRANCH 

GET SECTOR COUNT 

IF NONZERO, of NOT REPORT ERROR 


READY BEFORE READ 


Be Be Be Be Be Be Be Be Be & 


; FLAG ERROR 
BRANCH 


CALL RERROR ;ERROR # 52. 
oo <PRS *2000>+<2*400>+ERRN 


WAIT FOR SECTOR OR INDEX PULSE 
POINT TO sicten. AIN 


SEE IF ERROR OCCURRED 
IF NOT, BRANCH 
SEE IF Bi gael SHOULD BE REPORTED 


BN REDEX IF NOT ANCH 
ERRHRD MS44, RI, CURBLK, CURBLK+1, iNS+1, INS+2, INS+3, oe ont Pgs ct READ 
SAV 


MOV CURTRK,R1 
MOV R1,-(SP) 
MOV INS+3,R1 
MOV R1,-(SP) 
MOV INS+2,R1 
MOV R1,-(SP) 
MOV INS+1,R1 
MOV R1,=(SP) 
MOV CURBLK+1,R1 


vO OME 
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61 
004133 ete 004763 
ipezee 001316 


0 3. 1 
29 004144 104207 000001 


? MOV #1,RO0 
30 004146 000000 REDEXT: RETURN 


FLAG ERROR 


SEQ 0240 


MOV R1,=(SP) 

MOV CURBLK,R1 

MOV R1,-(SP) 

MOV SAVREG,R1 

MOV R1,=(SP) 

CALL RERROR sERROR # 53. 
~WORD <PRMS*2000>+¢<2*400>+E RRN 
~WORD MS44 


ee 
SW OOD OWAM EWI 


20 004230 


RBRR KREKREER 


So 
R 
on 
—? 


kd ad kd od od od od o-oo eS eS ss 
So oooo 
Sows 
A-NON 


F 
WwW 
Oo 
ae) 


104910 


005433 
005003 


004774 
04778 
004661 
004660 
004657 


000400 


° 
. 


CMPLOP: 


NOERR: 


CMPEXT: 


Sk FUNCTIONAL MACRO 04.00 9-JUL=-81 01:13:55 PAGE 60 
ZE DRIVE AND LOOK AT DRIVE SIGNALS 
0 


CMPDAT: 


SEQ 0241 


COMPARE THE DATA IN ‘OBUFF* (OUTPUT BUFFER) WITH ‘RBUFD' 
(INPUT BUFFER) 


E 
ERRHRD 


BR 

i 
ane 
CLR 

RE TURN 


A#OBUFF ,RO 
#RBUFD ,R1 


eet R5 


CMPE X 
MS45, RB, -(RO),-(RI), INS+), 


Be Be Be Be Bae Be Fe Be 


RO POINTS AT OUTPUT BUFFER 
R1 a AT INPUT BUFFER 


COUN 
GET OUTPUT BUFFER WORD 
COMPARE AGAINST INPUT BUFFER 
IF NO ERROR, BRANCH 
SEE IF ERROR IS TO BE REPORTED 
IF NOT, BRANCH 
INS+2, INS+3, CURTRK;DATA COMPARE FAILURE 
MOV ~ SAVREG 
MOV CURTRK,R1 
MOV R1,-(SP) 
MOV INS+3,R1 
MOV R1,-(SP) 
MOV INS+#2,R1 
MOV R1,-(SP) 
MOV INS+1,R1 
MOV R1,-(SP) 
MOV SAVREG,R1 
MOV R2,SAVREG 
MOV =-(R1),R2 
MOV R2,-(SP) 
MOV SAVREG,R2 
MOV R1,SAVREG 
MOV =-(RO),R1 
MOV R1,-(SP) 
MOV R3,-(SP) 
MOV SAVREG, R1 
CALL RERROR sERROR # 54. 
«WORD <PRMS*2000>+<2*400>+ERRN 
“wORD MS45 


FLAG AS NO ERRORS 


——-——-- Ch  - > 
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| 
} 7 SEEK 
; :SEEK TO CYLINDER POINTED TO BY CONTENTS OF R1 
| ; 
5 > INPUTS: 
6 : R1 = POINTER TO CYLINDER NUMBER 
4 . R2 = SDI INTERCONNECT 
9 004231 SEEK: PUSH <RO,R1,R5> 
004231 100467 MOV RO,-(SP) 
004232 100461 MOV R1,=-(SP) 
004233 100463 MOV R3,-(SP) 
10 004234 104217 MOV (R1)+,RO PUT CYLINDER INTO COMMAND 
11 23 104070 004657 MOV RO, INS+1 
12 004237 104217 MOV (R1)+,RO 
13 004240 104070 004660 MOV RO, INS+2 
14 006242 104117 MOV (R1),RO :PUT GROUP INTO COMMAND 
15 004243 104070 004661 MOV RO, INS+3 
16 004245 104203 004621 SEEKA: MOV &#CR.SEK,R3 ;POINT TO COMMAND 
17 004247 TALKX TESTEX, MS46,MS47 : SDI INTERCHANGE 
004247 021102 CALL TALKER ; INITIATE SDI INTERCHANGE 
004250 115003 TST R3 : SEE IF ERROR OCCURRED 
004251 0614263 BEQ 12$ ; IF NOT, BRANCH 
004252 034257 BPL 11$ : IF SO, BRANCH 
004253 ERRHRD ™MS46;SEND COMMAND ERROR 
004253 021236 CALL RERROR zsERROR # 55. 
004254 001067 . WORD <PRMS *2000>+<2*400>+ERRN 
004255 002645 ~WORD MS46 
004256 003443 BR TESTEX 
004257 11$: ERRHRD M™S47;RECEIVE COMMAND ERROR 
004257 021236 CALL RERROR sERROR # 56. 
004260 001070 ~WORD <PRMS*2000>+<2*400>+ERRN 
004261 002674 .WORD MS47 
004262 003443 BR TESTEX 
004263 12$: 
18 004263 106207 000176 CMP #COMPLT,RO CHECK RESPONSE 
19 004265 014313 BEQ SEEK1 
20 004266 ERRHRD MS48,4COMPLT,RO, INS+1,INS+2,INS+3; SEEK COMMAND REJECTED 
004266 104010 001316 MOV R1,SAVREG 
004270 104301 004661 MOV INS+3,R1 
004272 100461 MOV R1,-(SP) 
004273 104301 004660 MOV INS+2,R1 
004275 100461 MOV R1,-(SP) 
004276 104301 004657 MOV INS+1,R1 
004300 100461 MOV R1,-(SP) 
004301 100467 MOV RO,-(SP) 
004302 104201 000176 MOV #COMPLT,R1 
004304 100461 MOV R1,-(SP) 
004305 104301 001316 MOV SAVREG,R1 
004307 021236 CALL RERROR sERROR # 57. 
004310 013071 WORD <PRMS*2000>+<2*400>+ERRN 
004311 002726 -WORD MS48 
21 004312 004360 BR SEEK3 
22 004313 114003 SEEK1: CLR R3 :SET UP WORST CASE SEEK TIME 
23 004314 SEEK2: DSTAT TESTEX, MS10,MS2 GET DRIVE SIGNALS 
004314 020720 CALL RDSTA ; GET DRIVE STATUS 
004315 102201 010000 BIT #0000, R1 : SEE IF ANY ERRORS 





eC 


c-—- rr 


| 
' 


kK 3 
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| 
| 004317 014332 BEQ 2$ ; IF NO ERROR, BRANCH 
| 004320 102201 004000 BIT #4000,R1 ; SEE IF XMIT ERROR 
004322 014327 BEQ 1$ : IF SO, BRANCH 
| 004323 ERRHRD MS10 : REPORT INVALID STATUS ERROR 
004323 021236 CALL RERROR ZERROR # 58. 
| 004324 001072 . WORD SPAMS «2000>2<2400>+ERRN 
| 004325 000454 .WORD MS10 
004326 003443 BR TESTEX ; BRANCH TO DONE 
004327 1$: ERRHRD MS2 ; REPORT XMIT ERROR 
004327 021236 CALL RERROR sERROR # 59. 
004330 001073 ~ WORD <PRMS *2000>+<2*400>+ERRN 
004331 000045 ~WORD MS2 
004332 003443 BR TESTEX ; BRANCH TO DONE 
004332 2$: 
24 004333 102201 100000 BIT #ARWRDY,R1 iS R/W READY SET? 
25 004335 0543606 BNE SEEK3 YES 
26 004336 115403 INC R3 ‘BUMP COUNT 
27 004337 054314 BNE SEEK2 ZKEEP WAITING 
28 004340 ERRHRD MS51,INS+1,INS+2,INS+3 :SEEK COMPLETE TIME OUT 
004340 104010 001316 MOV R1,SAVREG 
004342 104301 004661 MOV INS+3,R1 
004344 100461 MOV R1,-(SP) 
004345 104301 004660 MOV INS+2,R1 
004347 100461 MOV R1,-(SP) 
004350 104301 004657 MOV INS+1,R1 
004352 100461 MOV R1,-(SP) 
004353 104301 001316 MOV SAVREG,R1 
004355 021236 CALL RERROR sERROR # 60. 
004356 007074 .WORD <PRMS*2000>+<2*400>+ERRN 
004357 003041 .WORD MS51 
29 004360 SEEK3: POP <R3,R1,R0> / 
004360 104263 MOV (SP)+,R3 i 
004361 104261 MOV (SP)+,R1 


004362 104267 MOV (SP)+,RO 
30 004363 000000 RETURN 


$m nr eee 


ee BEE r 
| L 3 | 
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} ;READ1 

3 :READ SECTORS ON THE SELECTED TRACK UNTIL ONE IS READ CORRECTLY 

: :OR THE MAXIMUM NUMBER OF SECTORS IS READ 

6 ; INPUTS: 

7 3 R2 = SDI INTERCONNECT 

8 5 R3 = MAXIMUM NUMBER OF SECTORS TO READ 

9 ; R4 = TRACK NUMBER 

10 r R5 = POINTER TO BLOCK NUMBER OF FIRST SECTOR 

11 ;OUTPUTS: 

\¢ j NONE 

14 004364 READ1: PUSH <RO,R1,R3,R4,R5> 
004364 100467 MOV RO,-(SP) 
004365 100461 MOV R1,-(SP) 
004366 100463 MOV R3,-(SP) 
004367 100464 MOV R4,-(SP) 
004370 100465 MOV R5,-(SP) 

15 004371 104207 004777 MOV al LOW,RO 

16 004373 104251 MOV (R5)+,R PUT BLOCK NUMBER IN 

17 004374 190271 ; MOV oT rbd ; READ BUFFER 

18 004375 104151 : -~ MOV (R5),R1 

19 004376 100271 MOV R1,(RO)+ 

0 004377 104171 MOV (RO),R1 PUT IN TRACK NUMBER 

21 004400 103201 000377 BIC #377,R1 >; (MERGE WITH REAL-TIME COMMAND) 

22 004402 101041 BIS R4,R1 

23 004403 100171 MOV R1, (RO) 

24 004404 104207 004775 READ1A: MOV V #RBUFO, RO :POINT TO READ BUFFER 

25 004406 PUSH R2 SAVE SDI INTERCONNECT 
004406 100462 MOV R2,-(SP) 

26 004407 DSTAT big hes MS10,MS2 ; GET DRIVE REAL TIME STATE 
004407 020720 CALL STAT ; GET DRIVE STATUS 
004410 102201 010000 BIT 10000, R1 ; SEE IF ANY ERRORS 
004412 014476 BEQ 2 ; IF NO ERROR, BRANCH 
004413 102201 004000 BIT #4000,R1 ; SEE IF XMIT ERROR 
004415 014422 BEQ 1$ ; IF SO, BRANCH 
004416 ERRHRD MS10 2 REPORT INVALID wrote ERROR 
004416 021236 ALL RERROR zsERROR # 61. 
004417 001075 ORD <PRMS *2000>+<2*400>+ERRN 
004420 000454 .-WORD MS10 
004421 003443 BR TESTEX ; BRANCH TO DONE 
004422 1$: ERRHRD MS2 ; REPORT XMIT ERROR 
004422 021236 CALL RERROR sERROR # 62. 
004423 001076 .WORD <PRMS*2000>+<2*400>+ERRN 
004424 000045 -WORD MS2 
eres 003443 2$ BR TESTEX ; BRANCH TO DONE 

27 004426 102201 100000 BIT en th R1 : SEE IF READ WRITE READY IS STILL HIGH 

28 004430 054435 BNE READ IF SO, BRANCH 

29 004431 ERRHRD pits. READ/WRITE READY DROPPED BEF ORE READ 
004431 021236 CALL RERROR s ERROR 63. 
004432 001077 . WORD apres 200i ear 0400s ERAN 
004433 002320 -WORD MS43 

30 004434 003443 BR TESTEX ; BRANCH 

31 004435 060012 READ1C: XFC WAITSI WAIT FOR SECTOR OR INDEX PULSE B4 READ 

32 004436 060002 XFC XREAD ;READ THE SECTOR 





————————-—-—— 


mM 3 
|UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE 62-1 SEQ 0245 
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33 004437 POP R2 
004437 104262 MOV (SP)+,R2 
34 004440 115001 TST R1 :CHECK FOR ERROR 
35 004441 014521 BEQ READ1X [END ROUTINE IF READ OK 
004442 117403 | DEC R3 [COUNT MAX SECTORS TO READ 
37 004443 014456 BEQ READ1E [REPORT ERROR IF ALL READ 
38 004444 104207 004777 MOV #RBUF0+RW.LOW,RO 
39 004446 104171 MOV (RO) ,R1 INCREMENT BLOCK NUMBER 
4O 004447 115401 INC R1 
41 004450 100271 MOV R1,(RO)+ 
42 004451 044455 BCC READ1B 
43 004452 104171 MOV (RO),R1 
44 004453 115401 INC R1 
45 004454 100171 MOV R1, (RO) 
46 004455 004404 READ1B: BR READIA :GO READ NEXT SECTOR 
47 004456 104201 000114 READIE: MOV #'L,R [PREPARE TO PRINT LBN 
48 004460 104307 005000 MOV RBUF SRW. HI,RO [GET BLOCK NUMBER 
49 004462 102207 170000 BIT #170000,R0 SCHECK FOR ZERO HEADER BITS 
50 004464 014467 BEQ 1$ 
51 004465 104201 000130 MOV #'X,R1 ; IF NOT ZERO, CHANGE TO XBN 
52 ; NO SECTOR ON TRACK CAN BE READ 
53 004467 i$: ERRHRD MS55,R1,RBUFO+RW. LOW, RBUFO+RW.HI,INS+7, INS*2, INS+3, RBUF 0+RW. CMD 
004467 104010 001316 V R1,5. VREG 
004471 104301 005001 MOV RBCFC +R. CMD .R1 
004473 100461 MOV R1,-(SP) 
004474 104301 004661 MOV INS+3,R1 
004476 100461 MOV R1,=(SP) 
004477 104301 004660 MOV INS+2,R1 
004501 100461 MOV R1,=(SP) 
104301 004657 MOV INS+1,R1 
004504 100461 MOV R1,-(SP) 
004505 104301 005000 MOV RBUF O+Rw. HI,R1 
004507 100461 MOV R1,=(SP) 
004510 104301 004777 MOV RBUFO+RW.LOW,R1 
004512 100461 MOV R1,-(SP) 
004513 104301 001316 MOV SAVREG.R1 
004515 100461 MOV R1, 
004516 021236 CALL RERROR TERROR # 64. 
004517 017100 <WORD <PRMS*2000>+<2*400>+ERRN 
004520 003301 “WORD MS55 
54 004521 ‘ READ1X: POP <R5,R4,R3,R1,RO> 
004521 104265 MOV (SP)+,R5 
004522 104264 MOV (SP)+.R4 
004523 104263 MOV (SP)+.R3 
004524 104261 MOV (SP)+.R1 
004525 104267 MOV (SP)+.RO 


55 004526 000000 RE TURN 
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INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS | 1 
i ;PROGRAM VARIABLES | 
? UNIT NUMBER STORAGE FOR DISK DRIVES TO TEST 
5 004527 000020 UNITS: .REPT 16. : ie ap reg (8 MAX) 4 ON EACH UNIT | 
$ “ior 177777 : K ALL UNITS AS NON-EXISTANT TO START WITH | 
004527 177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004530 177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004532 177777 WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004533 177777 WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
5 177777 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004535 177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
177777 «WORD 177777 3; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004537 177777 «WORD 177777 ; MARK AL’ UNITS AS NON-EXISTANT TO START WITH 
004540 177777 -WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004541 177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004 177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WIT 
004543 177777 «WORD 177777 3 MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004544 177777 -WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
004545 177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
P 004546 177777 «WORD 177777 ; MARK ALL UNITS AS NON-EXISTANT TO START WITH 
9 004547 000000 UNITNB: .WORD 0 NUMBER OF UNIT CURRENTLY UNDER TEST 
7 ;POINTER TO TABLE ABOVE 
‘ 00455¢ 000000 SDI: «WORD 9 SDI INTERCONNECT CODE FOR XFC CALLS 
‘¢ : MESSAGE TABLES 
16 004551 CR.ONL: MSG ONL,2,ST,7 ; DRIVE ONLINE 
004551 004640 «WORD ONL ;ADDRESS OF COMMAND 
004552 000002 WORD 2 3SIZE OF COMMAND IN BYTES 
004553 004644 -WORD ST zADDRESS OF REPLY 
004554 000007 -WORD 7 :SIZE OF REPLY IN WORDS 
004555 000000 WORD 3; SUCCESSFUL COMPLETION CODE 
17 004556 CR.CLR: MSG me ee ST? ; DRIVE CLEAR 
004556 004646 «WORD D ADDRESS OF COMMAND 
004557 000002 . WORD oR SIZE OF COMMAND IN BYTES 
004560 004664 «WORD ST ADDRESS OF REPLY 
004561 000067 «WORD 7 :SIZE OF REPLY IN WORDS 
004562 000000 . WORD ; SUCCESSFUL COMPLETION CODE 
18 004563 CR.DIA: MSG DIA,3,ST,7 ; DIAGNOSE 
004563 004642 «WORD DIA ADDRESS OF COMMAND 
004564 000003 «WORD 3 SIZE OF COMMAND IN BYTES 
004565 004664 «WORD ST ADDRESS OF REPLY 
004566 000007 -WORD 7 :SIZE OF REPLY IN WORDS 
004567 000000 . WORD ; SUCCESSFUL COMPLETION CODE 
19 004570 CR.DIS: MSG DIS,.,ST,7 ; DISCONNECT 
004570 004644 -WORD DIS ADDRESS OF COMMAND 
004571 000002 -WORD 2 SIZE OF COMMAND IN BYTES 
004572 004664 «WORD ST ADDRESS OF REPLY 
004573 000007 «WORD 7 7SIZE OF REPLY IN WORDS 
004574 000000 . WORD : SUCCESSFUL COMPLETION CODE 
20 004575 CR.GCR: MSG GCR,1,CR,12. GET CHARACTERISTICS 


004575 004650 .WORD GCR SADDFESS OF COMMAND ) 
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| INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
| 004576 00 -WORD 1 :S1ZE OF COMMAND IN BYTES 
004577 004673 -WORD CR ADDRESS OF REPLY 
004600 000014 «WORD 12. ;SIZE OF REPLY IN WORDS 

004601 . WORD ‘ SUCCESSFUL Raat ¢ CODE 

21 004602 CR.SCR: MSG SCR,2,SUB,21. T SUBUNIT CHARACTERISTICS 
004602 004651 -WORD SCR SADDRESS OF COMMAND 


~WORD 2 


i=) 

2 
RON 

oS 


7SIZE OF COMMAND IN BYTES 
ADDRESS OF REPLY 
OF REPLY IN WORDS 


00002 

004706 -WORD SUB 
-WORD 21. :SIZE 

000000 . WORD ; SUCCESSFUL COMPLETION CODE 


22 004607 CR.GST: 


23 


CR.MOD: 


MSG GST,1,ST,7 
-WORD GST 


;ADDRESS OF COMMAND 
;SIZE OF COMMAND IN BYTES 
sADDRESS OF REPLY 
:SIZE OF REPLY IN WORDS 
; comer... Ragu CODE 


ADDRESS OF COMMAND 


;SIZE OF _ COMMAND IN BYTES 
ADDRESS OF REPLY 

;SIZE OF "REPLY IN WORDS 

CR. SEK ; SUCCESSFUL COMPLETION CODE 


N 
ADDRESS OF REPLY 
‘ SIZE OF REPLY IN WORDS 
000000 . WORD ; SUCCESSFUL COMPLETION CODE 
25 004626 LONG: : LONG TIMEOUT COMMANDS FOLLOW 
2 CR.INR: MSG INR,1,ST,7 : INITIATE RECALIBRATE 
.WORD INR ADDRESS OF COMMAND 
.WORD 1 :SIZE OF COMMAND IN BYTES 
.WORD ST ADDRESS OF REPLY 
.WORD 7 :SIZE OF REPLY IN WORDS 
004632 000000 . WORD : SEES SCOPE CODE 


27 004633 CR.RUN: MSG RUN,1,ST,7 
0 WORD RUN sADDRESS OF COMMAND 


. 1 sSIZE OF _ COMMAND IN BYTES 
004664 «WORD ST ;ADDRESS OF REPLY 

-WORD 7 :SIZE OF REPLY IN WORDS 
000000 « WORD ; SUCCESSFUL COMPLETION CODE 


LEVEL 2 COMMAND MESSAGE DATA STRUCTURES 

31 004640 000 213 ONL:  .BYTE 0,213 ; BRING DRIVE ONLINE 
: 3 ; DIAGNOSE 

»204 DISCONNECT 
D 


7 
0 
0 
0 
. 0,DRVCLR ; DRIVE CLEAR 
: .WORD 0 ; ERROR FLAGS 
0,GETCHR ; GET CHARACTERISTICS 
0,GETSUB ; GET SUBUNIT CHARACTERISTICS 
0 ; SUBUNIT SELECTION IN LOW ORDER BYTE 
pan ; GET STATUS 


43 004654 000 ; SPIN UP DRIVE 








ee 


- 


“voc 
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| INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 
44 004655 00c 216 INR: -BYTE 0, IRECLB : INITIATE RECALIBRATE 
45 004656 000 012 INS: «BYTE 0, INSEEK : INITIATE SEEK 
46 004657 000000 .WORD 0 : INS CYLINDER/HEAD ARGUMENTS 
47 004660 000 .WORD 0 
48 004667 000000 .WORD 0 
49 004662 000 201 MOD : «BYTE 0,201 ; CHANGE MODE 
rs 004663 006 037 -BYTE 6,37 
32 : RESPONSE MESSAGE DATA BUFFERS 
54 004664 ST: .BLKW 7 STATUS MESSAGE BUFFER 
2 004673 CR: .BLKW 31. s CHARACTERISTICS MESSAGE BUFF 
57 004732 000000 DMSDI: .WORD 0 : DUMMY SDI CONTROL BLK 
58 004733 000000 NSCSL: .WORD 0 :# OF SECTORS IN WEADER SEARCH 
59 004734 004701 .WORD SUB-5 ‘POINTER TO SUBUNIT CHA 
60 004735 .BLKW 5 :WORD DMSDI+7 IS CLOGBERED BY UDA 
1 SO SET ASIDE SPACE 
34 ; DISK LOCATION POINTERS 
65 004742 LCDBN: .BLKW 2 sFIRST FACTORY FORMATTED DBN 
66 0047 LDIACYL:.BLKW 3 sFACTORY FORMATTED CYLINDER 
67 004747 FDIACYL:.BLKW 2 FIRST DIAGNOSTIC CYLINDER 
68 004751 FXBNCYL:.BLKW 2 FIRST XBN CYLINDER 
e 004753 SECTRK: .BLKW 1 SECTORS PER TRACK 
71 004754 TSTBLK: .BLKW 2 TEST BLOCK NUMBER 
72 004756 TSTCYL: .BLKW 3 TEST CYLINDER NUMBER 
73 004761 BLOCKG: .BLKW 1 BLOCKS ON CURRENT GROUP 
74 004762 BLOCKT: .BLKW 1 ‘BLOCKS ON CURRENT TRACK 
75 004763 CURBLK: .BLKW 2 : CURRENT BLOCK NUMBER 
76 004765 SECGRP: .BLKW 1 : NUMBER OF SECTORS | PER GROUP 
77 004766 CURGRP: .BLKW 1 : CURRENT GROUP NUMB 
78 004767 CURCYL: .BLKW 3 ; CURRENT CYLINDER ae GROUP 
79 004772 000000 CURTRK: .WORD 0 : CURRENT TRACK 
80 004773 000000 CURPAT: .WORD 0 : CURRENT PATTERN 
a} 004774 000000 SECCNT: .WORD 0 : SECTOR COUNT 
83 
84 
&° : READ DATA BUFFERS 
87 004775 RBUF 0: - FIRST BUFFER 
004775 100000 .WORD RSTOP : STATUS AND LINK POINTER 
89 004776 005003 .WORD RBUFD : POINTER TO DATA 
90 004777 -BLKW 2 
91 005001 013400 .WORD RREAL : LEVEL 1 SDI COMMAND 
9¢ 005002 004732 .WORD DMSDI : POINTER TO DUMMY SDI CONTROL BLOCK 
94 
95 005003 RBUFD: .BLKW 274. READ DATA BUFFER 
36 : WRITE DATA BUFFERS 
98 005425 CHAIN: : READ AND WRITE CHAIN AREA 
99 005425 000000 .WORD 0 : STATUS AREA 
100 005426 000000 .WORD 0 > BUFFER POINTER 
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TIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 


101 005427 


006105 


00000C 
000000 
000000 
004732 


000074 


000000 


OBUF F : 


F CHAIN: 





-WORD 0 
«WORD 0 


«WORD 0 
WORD DMSDI 
le 


-BLKW 25 


FORMAT CHAIN 


coe 60. 
RD 


eleleleleleleleleleleleleleleleleleloeleleleleleleleleleleleleleloleleleleloleloleclomgeilolo}, 


SEQ 0249 


LO ORDER HEADER 
HI ORDER HEADER 
REAL TIME COMMAND AND TRACK NUMBER 
POINTER TO DUMMY SDI CONTROL BLOCK 


;WRITE DATA BUFFER 


UP TO 60 DBNS/TRK MAXIMUM 
BUFFER POINTER 

LO ORDER DBN 

HI ORDER DBN 


BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
; BUFFER POINTER 


; BUFFER POINTER 

; LO ORDER DBN 
HI ORDER DBN 

; BUFFER POINTER 

; LO ORDER DBN 


; HI ORDER DBN 
; BUFFER POINTER 


; BUFFER POINTER 
; LO ORDER DBN 
; HI ORDER DBN 
; BUFFER Spe 


; BUFFER POINTER 
; LO ORDER DBN 
HI ORDER DBN 
; BUFFER POINTER 
; LO ORDER DBN 
; HI ORDER DBN 
; BUFFER Ag Haag 
; R DBN 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be 


; BUFFER POINTER 
; LO ORDER DBN 
; HI ORDER DBN 
; BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 


Be Be Be Be Be Be Be Be B® 
esi 
oO 
oO 
D 
—” 


i 
| 
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INITIAL 


ee a unsanee ek 
M—ONAUSWIR-ON 


Oo 
& 
ah ol 
mr 
Sw 


006176 


00000C 
000000 


000 
000000 


= 

°o 

2D 

i] 
DOCOCDCCDDCCOCOCDCCOOOCCODOOCOCOCCOOCOCOOCOOOCOOCOOCOOOOCOOCOCOOCOOCOOOOOoOoOOo 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be He 


BUFFER POINTER 
LO ER DBN 


HI ORDER DBN 
; BUFFER POINTER 
; LO ORDER DBN 
; HI ORDER DBN 


BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
DBN 


BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 


; LO ORDER DBN 
; HI ORDER DBN 
; BUFFER POINTER 


LO ORDER DBN 
HI ORDER DBN 


; BUFFER POINTER 


LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
RDER DBN 


I 0 
BUFFER POINTER 
LO ORDER DBN 


HI ORDER DBN 
BUFFER POINTER 


; LO ORDER DBN 


HI ORDER DBN 


; BUFFER POINTER 


ER DBN 
BUFFER POINTER 
LO ORDER DBN 
H] ORDER DBN 


SEQ 0250 


ac | 


Pad 





AAARAMRMAANRAANANR MAAMAAVNAMNAVVCOOCWTWWVWWOWOOYyY 


Mmmm ss. Te 





co 
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006177 000000 WORD 0 
200 000000 WORD 0 
006201 000000 WORD 0 
| 006202 000000 WORD 0 
006203 000000 «WORD 0 
-WORD 0 
006205 000000 WORD 0 
2 000000 -WORD 0 
006207 000000 WORD 0 
006210 000000 WORD 0 
006211 000000 WORD 0 
212 000000 WORD 0O 
006213 000000 WORD 0O 
006214 000000 WORD 0 
006215 000000 WORD 0 
006216 000000 WORD 0 
006217 000000 WORD 0 
006220 000000 WORD 0 
006221 000000 WORD 0 
006222 000 WORD 0 
223 00000 WORD 0 
006224 WORD 0 
006225 000000 WORD 0 
006226 00000 WORD QO 
006227 000000 WORD 0 
000000 WORD QO 
006231 000000 WORD 0 
006232 00000 WORD 0 
006233 000000 WORD 0 
006234 00000 -WORD 0 
006235 000000 WORD 0 
36 000000 WORD 0 
006237 000000 -WORD 0 
000000 -WORD 0 
006241 000000 WORD 0 
42 000000 WORD 0 
006243 000000 WORD 0 
006244 000000 WORD 0 
006245 000000 WORD 0 
006246 000000 WORD 0 
096247 000000 WORD 0 
006250 000000 WORD 0 
251 000000 -WORD 0 
006252 000000 WORD OQ 
006253 00000 WORD 0 
006254 000000 WORD 0 
006255 0 WORD 0 
006256 000000 WORD 0 
257 000000 WORD 0 
006260 0 0 WORD 0 
006261 0 WORD 0O 
006262 000000 -WORD 0 
006263 000000 «WORD 0 
006264 000000 -WORD 0 
006265 000 -WORD O . 
006266 000000 WORD 0 
006267 000000 WORD 0 


; BUFFER POINTER 


BN 
; BUFFER POINTER 
; LO ORDER DBN 
; HI ORDER DBN 
; BUFFER POINTER 
; LO ORDER DBN 


HI] ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 


; LO ORDER DBN 
; HI ORDER DBN 
; BUFFER POINTER 
; LO ORDER DBN 


HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
DBN 


BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER ty 
RDER DBN 


; BUFFER POINTER 


LO ORDER DBN 
HI ORDER 


DBN 
; BUFFER POINTER 
; LO ORDER DBN 


HI ORDER DBN 
BUFFER POINTER 
R DBN 


BUFFER POINTER 
LO ORDER DBN 
HI] ORDER DBN 


mm M—MMMMmMMMMMMMMOVTTOVVOUUUUIUU0UNUN9N0"9 nc I 
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270 «WORD Q 
006271 0000 -WORD 0 
006272 0000 WORD QO 
006273 000 WORD 0 
096274 000000 WORD QO 
006275 000000 «WORD Q 
006276 00000 -WORD QO 
006277 000000 -WORD Q 
300 -WORD 0 
006301 00000 -WORD 0 
006302 000000 WORD 0 
| 006303 000000 WORD QO 
304 000000 WORD QO 
006305 000000 WORD QO 
006306 000000 WORD 0 
006307 00000 «WORD Q 
006310 000000 WORD QO 
006311 000000 WORD 0 
312 000000 WORD 0 
006313 000000 WORD 0 
006314 000000 WORD 0 
006315 000000 «WORD 0 
006316 600000 «WORD 0 
006317 000000 -WORD Q 
116 006320 000000 -WORD QO 


BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 


0 
BUFFER POINTER 
LO ORDER DBN 
HI ORDER DBN 
BUFFER POINTER 
LG ORDER DBN 
HI ORDER DBN 


; BUFFER POINTER 
; LO ORDER DBN 


0 
; BUFFER POINTER 
; LO ORPER DBN 
; HI ORDER DBN 
; EXTRA WORD FOR END-OF CHAIN FLAG 


SEQ 0252 


am 


TTTTTTT TT FF TARADADOAAODOAOO NMAAAAARAARAAAVM HM HMw Hm 





watwiuviwinosn PSS SP S/S 


WOOWNAUEWN —ODOONAMEwWr- 
Ww 
~ 
N 


me a ee ad ed ed od 


57 006406 


AND LOOK AT DRIVE SIGNALS 


105613 
000001 


000000 


PATPTR: . 


THE DATA PATTERNS (LENGTH OF PATTERN IN WORDS, FOLLOWED BY PATTERN) 


. WORD 
. WORD 
. WORD 
. WORD 


hy MACRO X04.00 9=JUL-81 01:13:55 PAGE 64 


4 

PATS 
PATS 
PAT6 
PAT8 


; FOUR PATTERNS WILL BE TESTED 


; ALTERNATING ZERO WORD AND ONE WORD IN 


SHIFTING ONES 


SHIFTING ZEROS 


3 3=-2-1-1-1 


SEQUENCE 


SEQ 0253 


See SSeS SBE KEP KOKO OOO ee 


a a ne a a ———— a a ae - ~_ - - . < ro 


1 4 
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U 

INITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS ri 
58 006407 177777 .WORD 177777 M 
59 006410 177777 WORD 177777 iM 

60 006411 000 WORD 000000 M 

61 006412 177777 WORD 177777 M 

62 006413 000000 WORD 000000 M 

| 63 006414 177777 WORD 177777 iM 
| 15 000000 WORD 000vV00 iM 
65 006416 177777 -WORD 177777 iM 

| 66 006417 000001 PAT7: .WORD 1 : B'1011011011011001° iM 
67 006420 133331 .WORD 133331 M 
68 006421 000016 PATS .WORD 16 : B'0101010101010101" AND M 
69 006422 052525 .WORD 052525 = B'1010101010101010° M 
| 70 006423 052525 WORD 052525 : IN 3-2-1-1-1 SEQURNCE M 
71 006424 052525 -WORD 052525 M 

72 006425 125252 .WORD 125252 M 

73 006426 125252 .WORD 125252 M 

| 74 006427 125252 “WORD 125252 M 
75 30 052525 .WORD 052525 M 
76 006431 052525 WORD 052525 M 
77 006432 125252 WORD 125252 M 

78 33 125252 .WORD 125252 M 

79 34 052525 -WORD 052525 M 

80 006435 125252 .WORD 125252 M 

81 36 052525 .WORD 052525 M 

82 006437 125252 WORD 125252 M 

83 006440 052525 .WORD 052525 M 

84 006441 125252 .WORD 125252 M 

85 006442 000001 PATS .WORD 1 : B'1101101101101100" M 
006443 155554 .WORD 155554 M 

87 006444 0 PAT10: .WORD 16 : B'0010110100101101" AND 1M 

B8 006445 026455 .WORD 026455 > B'1101001011010010" M 

89 006446 026455 .WORD 026455 : IN 3=2=1-1-1 SEQUENCE | 
006447 026455 -WORD 026455 M 

91 151322 .WORD 151322 Ld 

92 006451 151322 WORD 151322 Ly 

93 006452 151322 WORD 151322 M 
006453 026455 -WORD 026455 M 

95 006454 026455 -WORD 026455 M 

| 96 006455 151322 .WORD 151322 M 
97 006456 151322 -WORD 151322 M 

98 096457 026455 -WORD 026455 M 

99 006460 151322 .WORD 151322 M 

100 006461 0264 -WORD 026455 " 
101 006462 151322 .WORD 151322 M 

102 006463 026455 -WORD 026455 N 

103 006464 151322 WORD 151322 M 

104 006465 01 PAT11 WORD 1 : B'0110110110110110° N 

105 006466 066666 .WORD 066666 N 

106 006467 000016 PAT12: .WORD 16 : RIPLE ONE N 

107 006470 000001 -wWORD 000001 N 

108 006471 000002 -WORD 0000 C 

109 006472 000004 -WORD 000004 C 

110 006473 000010 . WORD 00010 C 

111 006474 000020 -WORD 000020 C 

112 006475 000040 -WORD 000040 C 

113 006476 000100 -WORD 000100 C 
114 006477 000200 -wWORD 000200 C 





3 A 
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9 006554 


000000 





000400 


Quin NWWO 
N 
N 
N 
™N 


; RIPLE ZERO 


; B°11110101 
; B'11011011 
; THIS DATA 

; USER OR LE 


TTERN MAY BE DEFINED BY THE 


1 
0 
T 
I 


N ITS DEFAULT STATE 


SEQ 0255 





see 
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} ;MESSAGE STORAGE OVERLAY 
3 
4 006555 DMOVLY MS,0 
006555 050630 -WREDC ;OUTPUT EDC FOR THIS OVERLAY 
2 -NLIST BEX 
| 7 000000 042 103 101 MS1: -ASCII\"'CANNOT RECEIVE DRIVE STATE FROM DRIVE'N\ 
8 000024 042 103 110 eASCII\' CHECK IF DRIVE IS POWERED ON.'N\ 
9 000044 000 -BYTE 0 
10 000045 042 104 122 MS2: -ASCII\' DRIVE STATE RECEIVED HAS BAD PARITY’ N\ 
11 000070 000 -BYTE 0 
\¢ sage One 104 122 MSS: ya ay DRIVE NOT ASSERTING RECEIVER READY IN DRIVE STATE’N\ 
Hy ool es as 124 111 MS4: sey ‘TIME-OUT ON SEND OF ONLINE COMMAND TO DRIVE'N\ 
16 000154 042 124 111 MSS: "ASCIIN’ ‘TIME-OUT ON RECEIVE OF ONLINE RESPONSE FROM DRIVE'N\ 
17 000206 000 -BYTE 0 
18 000207 042 117 116 MS6: -ASCII\"‘ONLINE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
19 000242 042 040 040 -ASCII\'' EXPECTED RESPONSE ‘''‘O8N\ 
20 000257 042 040 040 -ASCII\'' ACTUAL RESPONSE "08N\ 
21 000274 000 “BYTE 0 
22 000275 042 124 111. MS7: -ASCII\"'TIME-OUT ON SEND OF GET STATUS COMMAND TO DRIVE’ N\ 
23 000326 000 -BYTE 
24 000327 042 124 171 MS8: -ASCII\’'TIME-OUT ON RECEIVE OF GET STATUS RESPONSE FROM DRIVE’ N\ 
25 000363 000 -BYTE 0 
26 000364 042 107 105 MS9: -ASCII\''GET STATUS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
27 000421 042 040 040 -ASCII\'' EXPECTED RESPONSE ‘‘O8N\ 
28 000436 042 040 040 “ASCII\'' ACTUAL RESPONSE *08N\ 
29 000453 000 -BYTE 0 


30 000454 042 106 101 MS10: .ASCII\’FAILED TO RECEIVE VALID DRIVE STATE’ N\ 


31 000477 000 -BY 

32 000500 042 101 124 MS12:  .ASCII\''ATTENTION DID NOT DROP STATE AFTER GET STATUS COMMAND’ 'N\ 

33 000534 090 -BYTE 0 

34 000535 042 124 111. MS13: —.ASCII\''TIME-OUT ON SEND OF DRIVE CLEAR COMMAND TO DRIVE'N\ 

35 000566 000 -BYTE 

3 sity A aoe 124 111. MS14: rae ‘'TIME-OUT ON RECEIVE OF DRIVE CLEAR RESPONSE FROM DRIVE’ N\ 

38 000624 042 104 122 MS15:  .ASCII\' DRIVE CLEAR COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
39 000662 042 040 040 -ASCII\"' EXPECTED RESPONSE ‘'‘O8N\ 

40 000677 042 040 040 “ASCII\'' ACTUAL RESPONSE "08N\ 

41 000714 000 -BYTE 0 

rs! oparz oon 124 111 MS16: nn PY ‘TIME-OUT ON SEND OF CHANGE MODE COMMAND TO DRIVE'N\ 

re) sis pete a 124 111. MS17: itt ‘'TIME-OUT ON RECEIVE OF CHANGE MODE RESPONSE FROM DRIVE’ N\ 

46 001004 042 103 110 MS18:  .ASCII\*'CHANGE MODE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
47 001042 042 040 040 “ASCII\'' EXPECTED RESPONSE ‘‘O8N\ 

48 00105 042 040 040 -ASCII\'' ACTUAL RESPONSE "‘08N\ 

49 001074 000 -BYTE 0 

50 001075 042 124 111. MS19: ~—.ASCII\"'TIME-OUT ON SEND OF RECALIBRATE COMMAND TO DRIVE’ N\ 

51 001126 000 -BYTE 0 

52 001127 042 124 111 MS20: ~ .ASCII\"'TIME-OUT ON RECEIVE OF RECALIBRATE RESPONSE FROM DRIVE'N\ 

53 001163 000 -BYTE 0 

54 001164 042 122 105 MS21: .ASCII\'RECALIBRATE COMMAND DID NOT RETURN EXPECTED RESPONSE CODE'N\ 
55 001222 042 040 040 -ASCII\'* EXPECTED RESPONSE ‘‘O8N\ 

56 001237 042 040 040 ASCII\"* ACTUAL RESPONSE "‘08N\ 
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LINITIALIZE DRIVE AND LOOK AT DRIVE SIGNALS 


| $7 001254 ~— 000 -BYTE 0 
58 001255 as 101 124 MS24: a a SET AFTER RECALIBRATE COMMAND’ N\ 


} 
“BYT 
116 105. -MS25: TASCII\'NEITHER R/W READY NOR ATTENTION SET AFTER RECALIBRATE COMMAND’ N\ | 
124 111 M526: “ASCII\ ‘TIME-OUT ON SEND OF GET UNIT CHARACTERISTICS COMMAND TO DRIVE'N\ 
124 111. mS27:  :ASCII\"TIME-OUT ON RECEIVE OF GET UNIT CHARACTERISTICS RESPONSE FROM DRIVE'N\ 
107 105_-MS28: +“ LASCII\''GET UNIT CHARACTERISTICS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE‘ N\ 
040 040 "ASCII\'' EXPECTED RESPONSE ‘‘O8N\ 
040 040 “ASCIIN" ACTUAL RESPONSE "‘O8N\ 
124 111. S29: ASCII ‘TIME-OUT ON SEND OF GET SUBUNIT CHARACTERISTICS COMMAND TO DRIVE'N\ 
124 111 S30: TASCII\""TIME-OUT ON RECEIVE OF GET SUBUNIT CHARACTERISTICS RESPONSE FROM DRIVE'N\ 
107 105. -MS31: — TASCII\''GET SUBUNIT CHARACTERISTICS COMMAND DID NOT RETURN EXPECTED RESPONSE CODE‘ N\ 
040 040 TASCII\'* EXPECTED RESPONSE ‘‘O8N\ 
040 040 “ASCII\"" ACTUAL RESPONSE “DBN\ 
123 125 S32: :ASCII\"'SUBUNIT CHARACTERISTICS SAY LESS THAN 1 DIAGNOSTIC CYLINDER'N\ 
122 -105._-MS35: _ASCII\'READ/WRITE READY DROPPED BEFORE FORMAT OPERATION’ N\ 


106 117 MS36: rt eta! OPERATION REPORTED TIME-OUT FAILURE’ N\ 
040 040 ASCII\"' CYLINDER 'D32°*. GROUP ‘D8’. TRACK *D8'’." N\ 


DMDmnDDDDDDMBDDDDWDDDDDDBDADIAVDNM 





I\ 

TE 0 
122 105 MS39: ‘ASCII READ RITE READY DROPPED BEFORE WRITE OPERATION’ N\ 
103 117 MS40:  .ASCII\''COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BiLOCK:'N\ 
127 122 -ASCII\'’ WRITE OPERATION REPORTED 2 ate ~ ~~ ERROR CODE ‘08"" OCTAL."N\ 
104 102 1 hee *D28"' CYLINDER *D32"*. GROUP 'D8*'. TRACK "D8". WY 
122 105 MS43: “ASCII\" READ/WR1TE READY DROPPED BEFORE READ OPERATION’ N\ 
103 117 MS44: — ASCII\"'COULD NOT WRITE AND READ ANY BLOCK ON THIS TRACK. ON LAST BLOCK:' N\ 
122 105 -ASCII\' READ OPERATION REPORTED FAILURE =~ ERROR CODE "08" OCTAL." N\ 
104 102 re he *D28"". CYLINDER *D32°*. GROUP ‘D8"’. TRACK *D8"*. NY’ 
103 117 MS45: .ASCII\‘COULD NOT WRITE AND READ ANY FLOCK ON THIS TRACK. ON LAST BLOCK:'N\ 
104 101 -ASCII\’ DATA COMPARE FAILURE ON WORD ‘D16''. 
105 130 -ASCII\ EXPECTED ¥' ’ 
101 103 -ASCII\' ‘ACTUAL DAT "O16N\ 
103 131 1) y fanaa 32", GROUP 'D8*", TRACK 'D8''." N\ 
124 111 MS46: “ASCII\ TIMEOUT ON SEND OF SEEK COMMAND TO DRIVE'N\ 
124 111 MS47: “ASCII\" TIMEOUT ON RECEIVE OF SEEK RESPONSE FROM DRIVE*N\ 
123 105 MS48:  .ASCII\''SEEK COMMAND DID NOT RETURN EXPECTED RESPONSE CODE’ N\ 
040 040 -ASCII\'' EXPECTED RESPONSE ‘‘O8N\ 
040 040 eASCII\’* ACTUAL RESPONSE "‘O8N\ 
123 105 4 ee WAS TO CYLINDER ‘D32"'. GROUP ‘D8’. N\ 
123 105 MS51:  -ASCII\''SEEK COMPLETE TIME-OUT =~ READ/WRITE READY DID NOT SET." N\ 
123 105 -ASCII\''SEEK WAS TO CYLINDER *D32°'. GROUP *D8''.’ N\ 
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114 003123 00 BYTE 0 
115 903124 48124111. MS52z ASCII” \""TIME-OUT ON SEND OF DISCONNECT COMMAND TO DRIVE'N\ 
117 003156 = 042,—s124-=~SS—s«1i77sMS53: © SASCII\""TIME=OUT ON RECEIVE OF DISCONNECT RESPONSE FROM DRIVE‘ N\ 
118 003212 000 “BYTE 0 . 
119 003213 = 042,——ss104-=—Ss 17s MS54: += TASCII \‘;DISCONNECT COMMAND DID NOT RETURN EXPECTED RESPONSE’ N\ 
120 003246 042 040 040 "ASCII \'' EXPECTED RESPONSE ‘O8N\ 
121 003263 042 «040-040 TASCII \'' ACTUAL RESPONSE — "08N\ 
122 003300 000 “BYTE 0 
123 003301 042, «= 116.~—s«117 «S55: ~~: ASCII\"'NO BLOCK ON THIS TRACK CAN BE READ. LAST BLOCK TRIED:'N\ 
124 003335 101 042 102 TASCII\A'BN “D28"". CYLINDER 'D32"". GROUP 'D8''. TRACK ‘D8'*."N\ 
125 003371 000 “BYTE O 
126 003372 = 042-—S—s101.~S'ss«126 «= MSS6: «= TASCII \"'AVAILABLE WAS NOT ASSERTED AFTER DISCONNECT‘ N\ 
127 003421 042 «040040 “ASCII \"' STATE RECEIVED ‘‘O16N\ 
128 003435 000 “BYTE 0 
129 003436 042, «- 124.~«=—111:«MSS7: += :ASCII.—\""TIME~OUT ON SEND OF RUN COMMAND TO DRIVE'N\ 
130 003463 000 “BYTE 
131 003464 042 124 111 MSS8: ASCII \"'TIME-OUT ON RECEIVE OF RUN RESPONSE FROM DRIVE" N\ 
132 003514 000 “BYTE 0 
133 003515 042-122-125 MS59: ASCII. \RUN COMMAND DID NOT RETURN EXPECTED RESPONSE" N\ 
134 003544 042 040 040 "ASCII \'' EXPECTED RESPONSE ‘O8N\ 
135 003561 042 040 040 “ASCII \‘* ACTUAL RESPONSE —“‘O8N\ 
136 003576 000 BYTE 0, 
137 003577 = 042,—'—s«d125,=Ss«*116- ERBO: = ASCII_ \''UNABLE TO FIND ALL UNITS REQUESTED FOR TESTING’ N\ 
138 003627 42—sisd10H™s—(ts«éd20 TASCII \"'THE FOLLOWING 15 VISIBLE ON THE 4 UDA PORTS’ N\ 
139 003656 «= 116 is116—ss«*d178 “ASCII \NNN'UDA PORT 0 ==" NN\ 
140 003670 122 061 “ASCII \R1\ 
141 003671 «9116 = 116042 [ASCII \NN'UDA PORT 1 ~="‘NN\ 
142 003703 122 = (061 TASCII \R1\ 
143 0037 116 116042 “ASCII \NN'UDA PORT 2 -~"NN\ 
144 003715 = 122—Ss«(86T “ASCII \R1\ 
145 003716 = 116116042 [ASCII \NN'UDA PORT 3 -~"NN\ 
146 003730 122 061 “ASCII \R1\ 
147 003731 000 ‘BYTE 0 
148 003732. 042 ssd116-—SSs«117 «SERIO: “ASCII \'NO VALID STATUS CAN BE RECEIVED ON THIS PORT'N\ 
149 005761 042103110 “ASCII \"\CHECK SDI CABLE AND POWER TO DRIVE'N\ 
151 004005 042 122 105 SERI1: ‘ASCII \‘RECEIVER READY WAS NEVER ASSERTED AFTER INIT'N\ 
152 004034 042 122 105 “ASCII \"REAL TIME DRIVE STATE IS: ‘HI6N\ 
153 004054 000 “BYTE 
154 004055 042 125 104 SERI2: ‘ASCII \‘UDA TIMED OUT ON SEND OF SDI COMMAND TO DRIVE'N\ 
155 004105 000 “BYTE ; 
156 004106 042 125 104 SER13: ‘ASCII \"UDA TIMED OUT ON RECEIVE OF SDI COMMAND FROM DRIVE'N\ 
157 004140 000 “BYTE ; 
158 004141 042 125 104 SERI4: ‘ASCII \‘UDA DID NOT SEE START FRAME ON SDI RESPONSE FROM DRIVE" N\ 
159 004175 000 “BYTE 
160 004176 042 125 104 SERIS: ‘ASCII \'UDA SAW AN SDI LEVEL 0 FRAMING ERROR ON SDI RESPONSE’ N\ 
161 004231 042 106 122 "ASCII \"'FROM DRIVE" N\ 
162 004240 000 “BYTE 0 
163 004241 042 125 104 SERI6: ‘ASCII \‘UDA SAW AN SDI LEVEL 0 CHECKSUM ERROR ON SDI RESPONSE’ N\ 
164 006275 042 106 122 “ASCII \"FROM DRIVE" N\ 
165 004303 000 ‘BYTE 0 : 
166 004304 042 124 110 SERI7: ‘ASCII \"'THE UDA SAYS THE BUFFER SIZE FOR THE RESPONSE FROM THE'N\ 
167 00434 042 107 105 ASCII \"'GET STATUS COMMAND IS :NSUFFICIENT FOR THE RESPONSE’ N\ 
168 004373 000 ‘BYTE 0 
169 004374 042 101 040 SER18: ‘ASCII \"’A UNIT WITH THE FOLLOWING SUBUNITS ARE VISIBLE ON THIS PORT:*N\ 
170 004433 122 061 I] \R1\ 





oc 


ANNNNNNNNNUNUNUNDDABWDAAAADAAAADV 


MtAMANNMNMNNMMNYN 


: N 4 
+ Php any MACRO X04.00 9-JUL-81 01:13:55 PAGE 65-3 SEQ 0259 





0 

\S10D6N\ 
\STOD6N\ 
\STQD6N\ 
ctu 
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SYMBOL TABLE 
|ARGS$ = 000010 DRVCLR= 000005 HBLONB= 170377 LBHINB= 177417 mS54 003213 
/ATTIN = 000002 DRVID = 000004 HDRPRE= 000005 LBLONB= 177760 MS55 003301 
AVAIL = 000100 DRVONL= 000213 HD.BAD= 110000 LBNCYL= 000000 MS56 003372 
BEUSED= 000040 DRVRUN= 000014 HD.DBN= 140000 LBNHST= 000012 MS57 003436 
BF .DAT= D.LIMT= 000001 HD.LBN= 000000 LBNTRK= 000011 MS58 3464 
BF..ECC= 000401 D.SCHR= HD.PRV= 050000 LCDBN 004742 MS59 003515 
BF .EDC= 0004 = 000015 HD.RBN= 060000 LDIACY 004744 MS6 0 
BLOCKG 004761 ECCCHK= 010000 HD.REV= 030000 LINKLN= 000007 MS7 000275 T 
BLOCKT 004762 ECCFLG= 010000 HD.XBN= 120000 LOBYTE= 000377 MS8 000327 ‘ T 
BREAK = ECCRSH= 000002 HEADER= 000002 LONG 004626 MS9 000364 T 
BUFFLG= 04 ECHO = HIBYTE= 177400 LONGTO= 000001 = 000017 T 
BUFSIZ= 000036 ECHOC = 000350 HICYL = 000001 L = 000002 MWRITE 001170 T 
CHAIN 005425 EGC = 100000 HIDBN = 000003 LUNIT 001315 NEWSUB= 004000 T 
CHECK = 00001 ERECOV= 000006 HILBN = 000002 MEDTYP= 000006 NOERR 004223 T, 
CHGMOD= 000201 ERHARD= 001000 HIMEM = 010000 MESSAG= 000015 NSCSL 004733 T 
CHRRES= 000170 ERLEV = 000002 HIRBN = 000003 MICREV= 000003 NUMPTR= 000005 T 
CLRBUF 000777 ERRMC = 000014 HIXBN = 000002 MOD 004662 OBUFF 005433 T 
CMPDAT 004147 ERRMES= 000013 HOSTRQ 000751 MRD = 000016 ONL 004640 T 
CMPEXT 004230 ERRN = 000101 HRDREV= 000003 MREAD 001152 ONLYCL= 000200 T 
CMPLOP 004154 ERRORS 004647 ILOOP 002004 MS1 000000 OUT.RQ 001006 T 
COMPAR= 000006 ERSOFT= 001400 INITW = 040000 MS10 00454 OuUT.01 001007 T 
COMPLT= 000176 ERTXT 001716 INR 004655 MS12 000500 ouT.02 001010 T 
CR 004673 ER80 003577 N 004656 MS13 000535 ouT.03 001011 T 
CR.CLR 004556 EXIT = 000021 INSEEK= 000012 MS14 000567 O0UT.04 001012 T 
CR.DIA 004563 FB.DAT= 000000 INTEDC= 000105 M3515 000624 OuT.05 001013 T 
CR.DIS 004 FB.EDC= 000400 IN.RQ 001044 MS16 000715 OUT.06 001014 T 
CR.GCR 004575 FCARY 003464 IN.01 001045 MS17 000747 OUT.07 001015 T 
CR.GST 004607 FCHAIN 006034 IN.02 001046 MS18 001004 OUT.08 T 
CR.INR 004626 FCTSIZ= 000010 IN.03 001047 MS19 001075 OUT.09 001017 T 
CR.MOD 00461 FDIACY 004747 IN.04 001050 MS2 000045 OUT.10 001020 T 
CR.ONL 004551 FGO 003517 IN.05 001051 MS20 001127 OUT.17 001021 T 
CR.RUN 004633 FIRSTU= 007717 IN.06 001052 MS21 001164 OUT.12 001022 T 
CR.SCR 004602 F 003456 IN.07 001053 MS24 001255 O0UT.13 001023 T 
CR.SEK 004621 FOREXT 003562 IN.08 001054 MS25 001303 OUT.14 001024 T 
CURBLK 004763 FORMAT= 000001 IN.09 001055 MS26 001344 OUT.15 001025 T 
CURCYL 004767 FORTRK 003444 IN.10 001056 MS27 001405 OUT.16 001026 T 
CURGRP 004766 FRAME = 000004 IN.11 001057 MS28 001451 OUT.17 001027 T 
CURPAT 004773 FSTOP = 100000 IN.12 001060 MS29 001550 OUT.18 001030 T 
CURTRK 004772 FTIME = 901000 IN.13 001061 MS3 000071 OUT.19 001031 T 
CvT = 000020 FTLDEV= 000400 IN.14 001062 MS30 001612 ‘ 001032 T 
DATCMP= 090002 FTLSYS= 000000 IN.15 001063 MS31 001657 OUT.21 001033 T 
DATERR= 000020 FT.BUF= 000000 IN.16 001064 MS32 001760 OUT.22 001034 T 
DATPRE= 000005 FT.HI = 000001 IN.17 001065 MS35 002020 OUT.23 001035 I 
DBNCYL= 000022 FT.LOW= 000002 IN.18 001066 MS36 002052 OUT.24 001036 1 
DCMPAL = 1 FXBNCY 004751 IN.19 001067 MS39 002131 OuT.25 00 1 
DCYLS = 020000 GCR 004650 IN.20 001070 MS4 000124 OU 001040 1 
D 004642 GENEXT 003671 IN.21 001071 MS40 002163 OUT.27 001041 1 
DINIT = 000011 GENIN 003662 IN.22 001072 MS43 002320 001042 1 
DIREC = 010000 GENOUT 003660 IN.23 001073 MS44 002351 OUT.29 001043 1 
DIS 004644 GENPAT 003652 IN.24 001074 MS45 002505 OVERFL= 00000 1 
DISCON= 000204 GETCHR= 000207 IN.25 001075 MS46 002645 OVE .MN= 009714 1 
DMSDI 004732 GETSTA= 000011 IN.26 001076 MS47 002674 OVE .MS= C00000 1 
DONE 16 GETSUB= 000210 IN.27 001077 MS48 002726 OVL.MN= 005642 G ] 
DONECD 001774 GRPCYL= 000002 IN.28 001100 MSS 000154 OVL.MS= 004453 G 1 
C 6 GRPOFF= 000011 IN.29 001101 MS51 003041 OVL...= 012315 ] 
pROP = 100000 GST 004653 IRECLB= 000216 MS52 003124 OVSTRT= 007774 ] 
DRTYPE= 000007 HBHINB= 007777 LARGE = 000001 MS53 003156 OVS.MN= 001040 G 1 
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SYMBOL TABLE ' ( 

/OVS.MS= 014544 G REVS = 000007 STATOK 000737 TRKLOP 003576 T8Xx 003353 T 

eee = 012735 RGO 004100 STATUS= 000007 TRKTST 003563 19 003353 T 
PATPTR 006321 RM = 000004 STSRES= 000366 TSTBLK 004754 T9X 003410 T 
PAT1 006326 RONLY = 004000 ST.C = 000002 TSTCYL 004756 UDATA 001210 T 
PATIO 006444 RREAL = 013400 ST.CON= 000002 TO 002147 UNITNB 004547 T 
PAT11 006465 RSTOP = 100000 ST.DB = 001000 TOA 002204 UNITS 004527 1 
PAT12 006467 RTRIES= 001000 ST.DF = 000020 TOB 002232 UNITO = 000001 T 
PAT13 006510 RUN 04654 ST.DR = 000040 T00 002074 UNTT1 = 000002 1 
PAT14 006531 RWRDY = 100000 ST.ERR= 000002 T03 002332 UNIT2 = 000004 
PAT15 006534 RW.ANG= 000006 ST.FE = 000200 T1 002232 UNIT3 = 000010 
PAT2 006330 RW.BUF= 000001 ST.FO = 002000 TIMSIZ= 000000 UNSSUC= 000175 
PATS Rw. CMD= 000004 ST.MOD= 000001 T10 003410 UREAD = 000013 1 
PATS 006334 RW.HI = 000003 ST.MSK= 000000 TIOLOP 003411 UTOTST= 000012 1 
PATS 006355 RW.LOW= 000002 ST.OA = 000200 10x 003443 UWRITE= 000014 T 
PAT6 006376 Rw.SDI= 000005 ST.PE = 000040 T 002275 U.CBN = 000037 1 
PAT7 006417 RW.STA= 000000 ST.PS = 000002 T2CMD = 000002 U.CCNT= 000012 1 
PATS 006421 SAVREG 001316 ST.RE = 000100 T2DLL = 000001 U.CCOP= 000044 1 
PATS 006442 SBCRES= 000167 ST.RR = 000100 T 002367 U.CCYL= 000053 1 
PORT2 001723 SCR 004651 ST.RTY= 000003 T3A 002424 U.CGRP= 000055 1 
PORTS 001753 SCTWRD= 000377 ST.RU = 000001 135 002426 U.COPY= 000043 1 
PORT4 001761 SDI 004550 ST.SR = 000020 T3C 002430 U.CSEC= 000021 1 
PORTS 001770 SDILTO 001151 ST.STA= 000001 3D 002456 U.CTRK= 0000 1 

= 000007 SDISTO 001150 ST.S7 = 000400 T3STRT 001722 U.ECCT= 000027 1 
PTYPE$S= 00 SDIVER= 000000 ST.UNT= 000000 731 002543 U.ELEV= 000024 

= 000200 SECCNT 004774 ST.WE = 000010 T4A 002471 U.LCYL= 000056 1 
RBNTRK= 0 SECGRP 004765 SUB = 004706 T4A1 002561 U.LGRP= 000060 
RBUFD 005003 SECTRK 004753 SUBUNT 004652 T4B 002613 U.MASK= 000022 l 
RBUFLN= 000415 SEEK 004231 S.BADP= 000010 T4BB1 = 000005 U. = 900035 L 
RBUFO 004775 SEEKA 004245 S.BESS= 000011 T4BB2 = 000006 U.MLEV= 000026 t 
RCLB = 000001 SEEK1 004313 S.MCNT= 000011 T4C 002631 U.MSEC= 0000 L 
RCONT = 000000 SEEK2 004314 S.MEGR= 000006 T4D 002635 U.NEXT= 000000 i 
RCTCPS= 000001 SEEK3 004360 S.MEGW= 000007 T4MPRM= 000003 U.NFUN= 000010 t 
RCTCSZ= 000014 SEKINP= 002000 S.PARM= 000000 T4MXFR= 000011 U.NSEC= 000016 L 
RCV = 5 SEND = 0C0004 S.PAT = 000003 T4SEEK= 000010 U.PARM= 000033 
RCVERR= 000004 SEQSEK= 000100 S$.SCHR= 000005 T4SOF T= 000007 U.PAT = 000011 l 
RCVRDY= 1 SER10 003732 S.SDCL= 000001 T4UPRM= 000004 U.PCTG= L 
RDSTAT 000720 SER11 004005 S.TGOF= 000013 16 002657 U.RBN = 000041 l 
READB 027 SER12 004055 S.TGSS= 000015 T 02666 U.RTRY= 000025 N 
READ1 004364 SER13. 004106 S.TRKL= 000004 T6C 002721 U.RVER= 000046 l 
READIA 004404 SER14 004141 T 002034 T6D 002725 U.RWER= 000045 t 
READ1B 094455 SER15 004176 TALKER 001102 T6E 002762 U.RWTO= 000 l 
READIC 004435 SER16 004241 TALK1A 001114 T6E1 003001 U.SDIL= 000031 l 
READIE 004456 SER17 004304 TALK1B 001124 6 003021 U.SDIS= 000030 ( 
READ1X 004521 SER18 004374 TALK2A 001144 T6X 003022 U.SEEK= 0 7 
REDEXT 004146 SER18A 004435 TALK2B 001145 17 003035 U.SNUM= 000047 
REDWRT= SER18B 004440 TEST 002000 T7A 003046 U.SUBP= 000001 N 
REGS$ = 177777 SER18C 004443 TESTEX 003443 T7C 003104 U.SUBU= 000034 l 
R = 1 SER18D 004446 TESTX 001764 T7C1 003140 U. TIMO= ( 
RERRCA 001301 SHRTTO= 000000 TEST4 = 000000 T7D 03153 U.TSEC= 000020 ( 
RERROR 1 SNDAGN 000756 TIMEOU= 000001 T7E 003214 U.WPRT= 000 t 
RERRPA 001275 SPADJU 001312 TLEN.U= 000061 T7G 003222 U.WRIT= 000023 { 
RESEEK= Ss = 000001 TO 1221 17H 003236 WAITSI= 000 ( 
RETRY = 000004 ST 04664 TOOBIG= 000001 T7X 093237 WBUFLN= 000401 ( 
RETS = 1 STACK 001357 TRACKS= 000020 78 003237 WCHECK= 000010 ( 
REVEC = 000400 START 001360 TRKBOT 003620 T8A 003261 WCHKAL= 000004 ( 
REVECT= 000004 STATEX 000746 TRKEXT 003624 T8B 003301 WCONT = 040000 ( 
REVINP= 000040 STATLP 000724 TRKGRP= 000003 T8D 003333 wGO 003754 ( 


————_—___—-------- -- 


UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:13:55 PAGE 65-6 


SYMBOL TABLE 

| WONL Y WRONG = 000002 WIRCMP 003625 
| WREAL = 122400 WRTEXT 004026 WIREXT 003651 
WRITEB 003673 WSTOP = 140000 KBNCYL= 000021 


- ABS. 025672 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 4924 WORDS ( 20 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 69 PAGES 
A:UDAT3.BIN,SY:UDAT3/C=[1, 33]DMACRO,UDAT3T ,UDATP,UDATR,UDAT 3M, UDAT 3S 


XFERRT= 


XMTERR= 
XOR 


00000 
200400 
001211 


XREAD = 000002 
XWRITE= 000003 


SEQ 0262 


ar 
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| UDAT3 DISK FUNCTIONAL MACRO X04.00 9-JUL=81 01:15:55 PAGE S=1 SEQ 0263 " 
| CROSS REFERENCE TABLE (CREF vO1-05 ) ( 


-ARGSS = 37-18 37-18 37-184 37-184 37-23 37-238 38-5 38-5 38-54 38-54 38-8 38-84 39-4 39-4 
39-44 39-48 39-7 39-78 40-4 40-4 40-44 40-44 40-7 40-74 40-9 40-9 40-94 40-94 
40-12 40-124 41-7 41-7 41-74 41-74 41-10 41-108 42-4 42-4 42-448 42-44 42-7 42-78 
43-3 43-3 43-34 43-34 43-6 43-64 44-4 44-4 44-44 44-44 44-7 44-7# 44-11 44-11 
44-118 46-118 44-14 44-148 44-23 44-234 45-12 45-12 45-128 45-128 45-15 45-154 47-36 47-364 
| 51-2 51-2 51-24 51-24 51-5 51-54 52-2 52-2 52-24 52-24 52-8 52-84 54-21 54-21 
54-21% 54-218 54-24 54-244 54-36 54-364 58-16 58-16 58-164 58-164 58-21 58-214 58-34 58-344 
| 59-12 59-12 59-124 59-12% 59-17 59-174 59-28 59-284 60-14 60-144 61-17 61-17 61-174 61-178 
61-20 61-204 61-23 61-23 61-238 61-234 61-28 61-284 62-26 62-26 62-264 62-264 62-29 62-294 


MM nMOrWIrIrIanram 


34 
BLOCKG 49-16" 49=74* 49-81 63-734 
BLOCKT 49-28% 49-31 49-72% 63-748 


CHAIN 58-6" 58-38* 58-10" 58-13% 58-15% 58-25 59-6* 59-9* 5911* 59-21 63-984 


MN rn nom 


CHRRES 6-434 38-6 38-8 38-8 





COMPLT 6-414 39-5 39-7 59-7 41-8 4 
44-7 44-7 51-3 51-5 51-5 6 


i 41-10 42-5 42-7 42-7 43-4 43-6 43-6 44-5 
CR 32-3 38-11 38-15 63-20 63-554 


61-20 61-20 


ee ee ee i Te 


CR.GST 32-31 40-3 63-224 


CURBLK 48-43* 48-44% 48-48 48-57* 48-59% 55-7* 55-9* 55-17 
58-34 58-34 58-34 59-28 59-28 59-28 59-28 63-754 

CURCYL 46=-4* 46-5* 46-8* 46-9 63-784 

CURGRP 48-47* 48-61* 48-63* 48-65 63-774 


CURTRK 50-20* 50-30 54-32 54-36 54-36 58-11 58-34 58-34 59-7 59-28 59-28 60-14 60-14 63-798 


55-19e 55-21 55=23* 58-7 58-9 58-54 





F 
UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE S=2 SEQ 0264 
5-428 47-32 47-46 48-18 48-26 48-71 


63-18 63-334 
4-124 32-16 37-12 
63-19 63-354 


63-578 63-92 63-104 
6-178 35-45 36-40 


35-39 65-1378 


32-44 37-18 37-18 37-18 37-18 37-18 37-18 37-184 37-184 37-23 37-23 37-23 37-234 38-5 
38-5 38-5 38-5 38-5 38-5 38-54 38-54 38-8 38-8 38-8 38-84 39-4 39-4 39-4 


S2-e Se-e 52-2 52-2 2-2 52-24 52-24 52-8 52-8 52-8 52-84 54-21 54-21 54-21 
54-21 54-21 54-21 54-214 54-214 54-24 54-24 54-24 54-244 54-36 54-36 54-36 54-364 58-16 
58-16 58-16 58-16 58-16 8-16 58-164 58-164 58-21 -21 58-21 58-214 58-34 58-34 58-34 


6 6 
61-28 61-28 61-284 62-26 62-26 62-26 62-26 62-26 62-26 62-268 62-26" 62-29 62-29 62-29 
62-298 62-53 62-53 62-53 62-534 


6-534 
35-27 35-544 
4-208 35-47 
3-228 

3-238 


54-15 54-178 





UDATS DISK FUNCTIONAL MACRO 04.00 9=JUL=81 01:13:55 PAGE S=3 SEQ 0265 " 
ROSS REFERENCE TABLE (CREF vO1-05 ) , it 


54=2€ 63-1114 
47=28* 49-76 49-78 63-674 


47-20* 49-57 49-59 63-684 


47-44 48-16 48-62 48-73 49-42 50-38 


33-10 34-11 46-7 49-19 
48-40 49-24 49-68 50-17 


48-42 50-18 


49-27 49-43 50-33 50-39 54-28 54-3) 58-2 
48-35 50-12 


41-4 47-7 47-34 47-45 47-47 488 48-17 48-20 48-27 48-54 48-72 4B-74 49-10 
29-38 = 34-5 35-44 35-46 36-41 





L 


“UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:73:55 PAGE S=4 
CROSS REFERENCE TABLE (CREF VO1=05 > 


2 
o 

oO 
N 
ay) 
w 
A 
Ww 
Ba 


0 


338 
ie 
Tt 
ae 


! 
| 
! 


~~ ee ee et et ee oe te 
os e 
MoNONMoNONNy 3 Ss Ss 74 Se 


ZZZLZZAZLZZZALZSZZAFZS 
MEW ODOONAWEWN oO 

as) 

Ww 

i 

Ww 

Ww 

R 


INS 54-36 54-36 54-36 54-36 54-36 54-36 58-34 58-34 
59-28 59-28 59-28 59-28 60-14 60-14 60-14 60-14 
61-20 61-20 61-20 61-20 61-20 61-28 61-28 61-28 


-59# 33-17 36-25 38-12 38-16 


LBNTRK 5-37 47-6 49-11 49-26 
LCDBN 48-45* 48-46% 49-35 63-654 
LDIACY 47-42% 47-43% 47-49% 47-50 48-47 48-65* 48-66 48-76* 


Ow 
LUNIT 29-20 29-444 36-21% 


MS1 37-18 52-2 65-74 


MS10 40-9 44-11 54-21 58-16 59-12 61-23 62-26 65-308 





58-34 
60-14 
61-28 


49-37 


58-34 
60-14 
61-28 


50-46* 


58-34 
61-11« 
61-28 


50-48* 


58-34 
61-13* 
62-53 


50-50* 


SEQ 0266 


59-28 59-28 
61-15* 61-20 
62-53 62-53 


63-664 


— ee 


-— —_—_—— _— —o ee 


a. 
| UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE S=5 
CROSS REFERENCE TABLE (CREF v01-05 ) 





MS2 37-18 40-9 44-11 52-2 54-21 58-16 59-12 61-23 





MS43 59-17 62-29 65-914 


OBUFF 54-8 57-11 58-14 60-6 63-1064 
ONL 


OUT.01 22-22 22-23 23-64 29-13 35-39" 
at oe 23-78 55-59" 35-39e 





62-26 


65-104 


SEQ 0267 


“ 
| 
| 
| 


a5 


z 


eeeeeeeeeeee2 
ee ee ee ee ee ee ee 
NOU ESWC O0ON 


ny "Mm 


35-6 


23-344 


37-18 


23-54 
2-398 


65-4 
65-4 
65-1784 


K FUNCTIONAL MACRO K04.00 9=JUL=81 01:13:55 PAGE S-6 
ERENCE TABLE (CREF VO1=05 ) 


36-374 
37-18 





md 


SEQ 0268 


ee 





rn 


65-4 65-4 65-44 65-178 65-1784 


65-178 
65-44 


65-1784 


37-18 37-18 37-18 37-18 37-18 37-18 37-18 37-18 37-18 37-18 


K 
UDAT3 DISK FUNCTIONAL MACRO X04.00 9-JUL=81 01:13:55 PAGE S=7 SEQ 6269 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


37-18 37-18 37-18 37-18 37-18 37-18 37-184 37-184 37-23 37-23 37-23 37-23 37-23 37-23 
37-23 37-23 iat 37-23 37-234 $e-2 38-5 ~s 38 3 


62-26 62-264 62-264 62-29 62-29 62-29 62-29 
62-29 62-29 62-29 62-29 62-29 62-29 62-29% 62-53 62-53 62-53 62-53 62-53 62-53 62-53 


6 
PTYPES 29 38-8 38-8 38-8 38-84 38-84 39-7 39-7 39-7 39-7 39-78 39-74 40-7 40-7 


58-34 58-34 58-34 58-34 58-34 58-34 58-34 58-34 


6 5 5 58 
4 58-34 58-34 58-34 58-34 58-344 
58-344 58-34 58-344 58-344 58-344 58-344 59-28 59-28 8 59-28 


59-28 59-28 59-28 59-28 





po a 


| UDAT3 DISK FUNCTIONAL MACRO X04.00 9-JUL=81 01:13:55 PAGE S-8 


CROSS REFERENCE TABLE (CREF VvO1-05 ) 


62-53 62-53 62-534 


RBUFO 62-15 62-24 62-38 


60-14 60-148 60-148 
RBUFD 59-10 60-7 63-89 


RCTCPS 5-84 
RCTCSZ 5=40# 
RCV 4-84 24-30 32-45 


RCVRDY 6-214 32-23 37-19 
RDSTAT 21-24 32-18 37-18 
READ] 48-51 49-34 49-39 


REDEXT 59-16 59-19 59-25 
REGS$ ~. 37-18 37-184 


59-28 


62-534 


62-48 
63-954 


40-9 
62-144 





44-11 


6 
61-28 


6 
62-534 


62-53 


sone 


62-534 


62-53 


54-21 


61-284 


62-534 


62-53 


58-16 


59-284 


59-12 


38-54 


59-284 


61-23 


62-26 


61-28 
62-53 


61-28 
62-53 


SEQ 0270 


60-14 
60-144 
61-20 
61-284 
62-53 


61-204 
62-53 


cc | 


M 
UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL-81 01:73:55 PAGE S=9 SEQ 0271 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


62-53 62-52 62-534 62-534 62-534 62-534 62-534 62-534 


RERROR 29-7# 37-18 37-18 37-23 38-5 38-5 38-8 39=4 39-4 9-7 40-4 40-4 40-7 40-9 
40-9 40-12 41-7 41-7 41-10 42-4 42-4 42-7 43-3 43-3 43-6 44-4 44-4 44-7 
44-11 44-11 44-14 44-23 45-12 45-12 45-15 47-36 51-2 51- 51-5 52-2 52-2 52-8 
54-21 54-21 54-24 54-36 58-16 58-16 58-21 58-34 59-12 12 59-17 59-28 60-14 61-17 


61-17 61-20 61-23 61-23 61-28 62-26 62-26 62-29 62-53 


RGO 59-14 59-204 


RREAL 3-444 59-8 63-91 
RSTOP 3-404 59-5 63-88 


63-27 63-434 


- ANG 
RW.BUF 3-29%  58-15* 59-11* 
RW.CMD 3-324 58-13* 59-9« 62-53 62-53 
RW.HI 3-314 58-10* 62-48 62-53 62-53 
RW.LOW 3-304 58-8» 62-15 62-38 62-53 62-53 


RW.STA 3-284  58-6* 59--6* 
RWRDY 6-264 44-17 54-22 58-17 59-13 61-24 62-27 





S.SDCL 7-56# 7-57 
S.1TGOF 7-694 7-70 
S.TGSS 7-70# 

S.TRKL 7-5 7-59 


84 
SAVREG 29-464 38-8 38-8* 3 
44-7* 45-15 45-15* 1 
60-14* 60-14* 60-14* 61 
pee 6-444 45-13 45-15 45 


39-7* 40-7 40-7* 41-10 41-10* 42-7 42-7* 43-6 43-6* 44-7 
5 51-5* 54-356 54-36* 58-34 58-34* 59-28 59-28* 60-14 60-14 60-14 
+ 61-20* 61-28 61-28* 62-53 62-53 


SDI 36-31* 37-11 63-124 


SECCNT 55-12* 55-24 58-19 58-32 59-15 59-26 60-12 63-814 
SECTRK 47-9« 48-9 48-50 48-57 48-69 49-36 49-71 50-24 54-9 55-10 63-694 


SFEK 46-10 47-51 48-67 49-33 49-38 50-9 50-53 61-94 
StcK? 61-19 61-224 





set tL CL LL LLL LLL LEA OC ALL 


N 5 
UDAT3 DISK FUNCTIONAL MACRO X04.00 9-JUL-81 01:13:55 PAGE S-10 SEQ 0272 
CROSS REFERENCE TABLE (CREF VvO1-05 ) 


SEEK2 61-234 61-27 ‘ 
SEEK3. 61-21 9 61-25 61-294 : 
4-7# 26-18 = 32-34 


SER10 32-19 65-1484 
SER11 32-24 35-12 - 65-1514 


5-94 
ST 33-8 41-3 63-16 63-17 63-18 63-19 63-22 63-23 63-24 63-26 63-27 63-544 
$7.C¢ 4-304 


40-7 
SUB 5-224 32-3 32-34 46-6 47-4 47-6 47-16 47-24 47-32 47-44 47-46 48-7 48-16 48-18 
48-26 48-35 48-53 48-62 48-71 48-73 49-9 49-11 49-18 49-23 49-26 49-42 49-65 50-12 

50-32 50-38 54-27 54-29 58-26 63-21 63-59 





ce 





UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE S=11 SEQ 0273 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


TOB 40-11 40-144 


T1 
TIOLOP 52-24 52-6 
T10Xx 52-4 52-94 


TIMSIZ 6-34 

41-9 42-34 
T2CMD 6-54 
T2DLL 6-44 
T 43-5 44-34 
731 45-14 46-34 


TOF 48-58 48-60 48-704 


T7C 49-304 49-75 49-87 


T7E 49-58 49-60 49-764 
T7G 49-47 49-77 49-804 


T8A 50-20 50-35 50-54 


T8D 50-41 50-44 50-464 
T8Xx 50-51 50-554 


T9X 51-4 51-74 


UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE S=12 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


24-234 





50-32 


49-70* 
55-8 
49-40 
50-48 


49-80 
63-714 
49-46% 
50-50 


43-3 44-4 
39-4 39-4 
42-8 43-3 
47-37 51-2 


61-17 61-17 


49-82* 49-84 


49-48 49-50* 
50-52 63-724 


45-12 


39-8 
43-3 
51-2 
61-23 


49-86* 
49-51 


50-11* 
49-54% 


61-17 


40-4 
44-4 
52-2 
62-26 


50-19* 
49-56* 


40-8 
44-4 
52-2 
62-26 


50-23 
50-8 


40-9 
44-8 
53-14 
62-30 


50-25* 
50-37* 


SEQ 0274 


40-9 
44-11 
54-21 


50-27 
50-40* 


—— 


UDAT3 DISK FUNCTIONAL MACRO X04.00 9=JUL=81 01:13:55 PAGE S=13 
CROSS REFERENCE TABLE (CREF VO01-05 ) 


xOR 
XREAD 
XWRITE 


21-11 


59-22 
58-28 


26-11* 


45-3 
34-19 


59-20 


58-31 


56-22 
56-18 


62-32 


26-15 26-204 


63-94 
34-26 35-7 


62-31 


58-33 58-364 


56-234 


35-37 36-10 63-54 


a ee ee 


| 


UDAT3 DISK FUNCTIONAL MACRO K04.00 9=JUL=-81 01:13:55 PAGE M=1 


| CROSS REFERENCE TABLE (CREF V01=05 ) 


| 

‘BCS 

_CERROR 

DEVF TL 

DIAGS$ 
ODE 


PUSH 


REPSFT 
RSTRS$ 


RXOR 
SAVRS 


SOF TER 
SYSFTL 
TALKX 


UDATS 


TABLE OF 


3- 
7=- 
9- 





11-14 


19-34 


38-5 


DISK EXERCISER 
CONTENTS 


. 
: 
1 


UDA DM PROGRAM PARAMETERS 
TEST 4 SPECIFIC INFORMATION 
MACRO DEFINITIONS 


39-4 


40-4 


41-7 


42-4 


MACRO x04.00 9=JUL=81 01:12:03 


58-16 59-12 
38-8 39-4 
42-4 42-7 
“15 47=36 
58-21 58-34 
62-26 62-29 
38-8 39-4 
42-4 42-7 
45-15 47-36 
58-21 58-34 
62-26 62-29 
43-6 44-7 
59-28 59-28 
61-20 61-20 
63-21 63-22 


54-36 54-36 
59-28 59-28 
61-20 61-20 
27-15 29-39 
61-29 62-33 
27-10 29-7 

62-25 

43-6 44-7 

43-6 2 bn? 

45S. bed 


SEQ 0276 


oe 


—_ ek kk kk a kk kd a td ts 1 3d I dt Ht — t-te 


START OF TEST CODE 

RDSTAT = GET DRIVE'S REAL _TIME DRIVE STATE 

HOSTRG = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, ETC. 
CMPEDC = EDC CALCULATION ROUTINE 

RTDS = REAL TIME DRIVE STATE ROUTINE 

TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 


SDI Bagg MESSAGE TABLES 

BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN TO BE BAD 
MP2 24 BIT COMPARE 

BUILDP = BUILD THE READ OR WRITE CHAIN LINKS 
NK BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 


— 

a 

a 

— 

2 
peetveuee 


FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED INFORMATION 
ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 
BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND ysl Lge 
C CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L 


CAL /RBN 

STORAGE AREA PATTERNS, DUMMY SDI oer OVERLAY INF ORMAT ION AND MORE 
ROOT = MAIN DRIVING MODULE OF i Mg 

SEQNCR = MODULE SEQUENCER FOR TEST 

OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 
eeeeeeeee® NON-OVERLAY MODULE AFINIT - USED AFTER DRIVE IS INITILIZED 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 

CORECT = CORRECT THE ERRORS 

REPERR = REPORT THE ERROR TO THE HOST 

RECOVR = RECOVER FROM THE ERROR 

CHKSTA = CHECK STATUS FOR ANY ERRORS THAT NEED RECOVERY 

seexeeeee® NON-OVERLAY MODULE REDSET - READ/WRITE SETUP MODULE 
**eeeeeee® NON-OVERLAY MODULE START - TEST 4 INITIALIZATION 

BLDUNT - BUILD THE UNIT PARAMETER BLOCK 

BLDSUS - BUILD AlL SUBUNIT PARAMETER BLOCKS ON THIS UNIT 


BLDSUB = BUILD A SUBUNIT PARAMETER BLOCK 

BLDBES = FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK/GROUP SETS 
BLDBB =- FIND HOW MANY WORDS NEEDED FOR THE BAD BLOCKS 

GETMEM - ALLOCATES MEMORY FOR UNIT AND SUBUNIT BLOCK AND SUBUNIT PARAMETERS 
COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOCK 

SORTBE - SORT THE BEGIN/END SETS IN ASCENDING ORDER 

SWAPBE - IF BEGIN/END SETS OUT OF ORDER, SWAP 

SORTRB - SORT [fHE BAD BLOCKS IN ASCENDING ORDER 

SWAPBB - IF BAD BLOCKS OUT OF ORDER, SWAP 

SORTTG = SORT THE TRACK/GROUPS IN ASCENDING om 

TROOT - TEMPORARY ROOT FOR SEQNCR DURING TEST 4 SETUP 

INSET = SET UP UNIT PARAMETERS FOR SEQNCR ROUTINES 

COMCHR = GET COMMON CHARACTERISTICS AND STORE NECESSARY INFO IN UNIT PARAMETERS 
INSCHR = GET ALL SUBUNITS’ PARAMETERS (CHARACTERISTICS), ERROR CHECK AND STORE 
CHKCYL - CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT TO BEGIN/END SET 
CYLBN = GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLINDER 

CHKBES = CHECK THE BEGIN/END SETS FOR ERRORS 

CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 

COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 

CLCMAX = CALCULATE THE MAXIMUM WRITEABLE DBN 

CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’S 

COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 

SMASK = CALCULATE THE SUBUNIT MASK 

INITD = LAST ERROR CHECKING AND SETUP MODULE BEFORE TESTING STARTS 

GMPARM = GET MASTER PARAMETERS (PATTERN 76) AND SET UP OVERLAY ADDRESSES 


=r 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 


TABLE OF 


ek 8 i i as ts = 2 th st Sh od = 23 HfL IH HI 


eae Bi BWR 


a a | 
Ny-32 3 3 SS 


S 


CONTENTS 


GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 

eeaeeexexe NON=LOADED OVERLAY, ERROR MESSAGES 

INFORMATIONAL MESSGES 

aeeeereeee OVERLAY 1 = SETUP OPERATION TO BE DONE THIS PASS 
NXTSEC = FIND THE NEXT STARTING SECTOR TO READ/WRITE 

FIND A RANDOM STARTING AE 13 gy USING BEGIN/END SETS 


MASK = FIND MASK FOR RAN E 

SEQBE = FIND NEXT SEQUENTIAL STARTING SECTOR USING BEGIN/END SETS 
FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 

PREVBE = MOVE TO PREVIOUS BEGIN/END SET 

NEXTBE = MOVE TO NEXT BEGIN/END SET 

UPLBN = IF GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTEN 
INC2 = 24 BIT INCREMENT 

DEC2 = 24 BIT DECREMENT 

MOV2 = 24 BIT MOVE 

RNDTG = FIND A RANDOM STARTING SECTOR USING TRACK/GROUP LIMITS 
SEQTG = FIND NEXT SEQUENTIAL STARTING SECTOR USING TRACK/GROUP LIMITS 
UPT - MOVE UP ONE TRACK 

DOWNT = MOVE DOWN ONE TRACK 

UPG - MOVE UP ONE GROUP 

DOWNG = MOVE DOWN ONE GROUP 

NEWUPT = INITILIZE PARAMETERS FOR SEQUENTIALLY UP BY TRACKS 
NEWDNT = INITILIZE PARAMETERS FOR SEQUENTIALLY DOWN BY TRACKS 
SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 

LSTTRK = SET MASTER BN TO POINT TO LAST TRACK IN THE GROUP 
CLRUP = CLEAR ALL PARAMETER BITS 

RORW = DETERMINE IF A READ OR A WRITE IS TO BE DONE 

PATTRN — IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 

WCHK = IF WRITE, SEE IF A WRITE CHECK IS TO BE DONE 

DCOMP = IF READ, SEE IF DATA COMPARE IS TO BE DONE 


RANDOM NUMBER ROUTINE 

MAXMUM = FOR SEQUENTIAL B/E SETS, DETERMINE HOW MANY SECTORS TO READ/WRITE 
weeneweeee OVERLAY 2 - IF NECESSARY, ISSUE SEEK 

TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 

ISUSFK = ISSUE SEEK _COMMAND 

xeeeneeeee OVERLAY 3 - SEE IF THE SEEK IS COMPLETE 

sxeeenemee OVERLAY 4 - SET UP FOR READ OR WRITE OPERATION 
sexaakene® OVERLAY 5 - WRITE 

BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC EDC) 
COPPAT = COPY THE DATA PATTERN TO BUFFER 

WBLOCK = WRITE THE SECTOR(S) AND THEN CHECK FOR ERRORS 

FNDWER - IF ERROR, FIND IT*S POSITION IN THE CHAIN 

xeeaneeeee OVERLAY 6 - READ 

RBLOCK = READ THE SECTORS 

FNDRER = FILL IN THE READ CHAIN WITH THE CORRECT HEADERS 

seeneneeee OVERLAY 7 - EDC + ECC CHECKING, DATA COMPARISON, RETRIES 
ERCOV = RETRIES DUE TO DATA ERRORS 

NEWLEV - SET ERROR RECOVERY LEVEL TO NEW VALUE, THEN RETRY AGAIN 
SNDLEV = SEND THE NEW LEVEL OF ERROR RECOVERY TO THE DRIVE 

CMPDAT - DATA COMPARISON ON READ BUFFER(S) 

seaeneneee OVERLAY 8 - REVECTORED SECTOR HANDLING 

REVSUP = SETUP THE REVECTOR OPERATION (TO READ RCT) 

REVSOK = SEE IF THE REVECTOR INFO SECTOR JUST READ IS Ok 

SEARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ 

RVFAIL - CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 

NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 

seeneeeeee OVERLAY 9 - RECALIBRATION MODULE 


SEQ 0277 


—@ 

, 
“ng 
dee 


DOW NA WE WR OVONA ME wr 


NO 3 a ees Ss ss 


| 

' 

| 
21 
22 
23 
24 

25 





crea 
OR 


EXERCISER MACRO K04.00 9=JUL=81 01:12:03 PAGE 2 
MACHINE MACROS = OVERLAY VERSION 


000001 


-TITLE UDATS DISK EXERCISER 


; COPYRIGHT (C) 1980 
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; THIS PROGRAM SHALL BE ASSEMBLED WITH THE PROGRAM DMACRO 
;USING A COMMAND LINE SIMILAR TO: 


UDAT4 .BIN, UDAT4=UDAT4T ,UDATP, UDAT4M, UDATR 


TESTS == 1 3; THIS IS TESTS 


-ENABL ABS 
DMCODE UDAT4,0,714,3,0 


SEQ 0278 


ey 


| 


| 
| 
| 


UDATS DISK EXERCISER veKe K04.90 9=JUL=81 01:12:03 PAGE 3 


UDA DM PROGRAM PARAMETER 


SOWNAVEWN =O ODWONAME WR 


ht 3 4 a ss - 9 SS Ls 


010000 
007774 


000000 
600400 


000000 
000001 
000002 
000003 


000004 
000005 
000006 


140000 


000000 
060000 
030000 
110000 
050000 
120000 


«SBITL 


444 


—-xrw 
2en§ 





UDA DM PROGRAM PARAMETERS 
-LIST MEB 
EQUATES 


HIGHEST USABLE LOCATION OF UDA MEMORY + 1 


= 10000 
= 7774 


OFFSETS FOR FORMAT TRACK TABLE 
= 0. 
= 1. 
= 2. 
OFFSETS FOR FORMAT TRACK BUFFER 


= 0. 
= 256. 


; HIGH MEMORY+1 
; OVERLAY ADDRESS LOCATION 


;BUFFER POINTER OFFSET 
sHI ORDER HEADER OFFSET 
;LOW ORDER HEADER OFFSET 


sFIRST DATA WORD OFFSET 
sEDC WORD OFFSET 


OFFSETS FOR READ/WRITE I/0 CHAIN TABLES 


;STATUS AND NEXT BUFFER POINTER OFFSET 
sPOINTER TO DATA BUFFER 

;HI ORDER EXPECTED HEADER 

[LOW ORDER EXPECTED HEADER 

:SDI COMMAND AND HEAD ADDRESS 

;DUMMY SDI CONTROL BLOCK POINTER 
THETA FROM INDEX 


CONSTANTS FOR READ AND WRITE XFC*S 


140000 
4 


Te | 
=O 
=) S i=) 
S So So 
S 
S 
oO 


HEADER CODES 
000000 


nen i 
oO 
wW 
oS 
So 
S 
Oo 


120000 


; LAST ENTRY IN CHAIN FOR WRITE 
; WRITE CONTINUE 

; LAST ENTRY IN CHAIN FOR READ 

; READ CONTINUE 

; LAST ENTRY IN CHAIN FOR FORMAT 
; WRITE REAL TIME ECOMMAND 

; READ REAL TIME COMMAND 

; ECC ERROR IN BUFFER BIT 

; END OF CHAIN 

; BUFFER FULL OR EMPTY FLAG 


:GOOD LBN 

;GOOD RBN, PERHAPS UNUSED 
TREVECTORED LBN 

;BAD BLOCK 

PRIMARY REVECTORED BLOCK 
;XBN BLOCK 


SEQ 0279 


pe 





J 6 
UDATS DISK EXERCISER MACRO K04.00 9=JUL=81 01:12:03 PAGE 3-1 SEQ 0280 
UDA DM PROGRAM PARAMETERS 
s 140000 HD.DBN = 140000 ;DBN BLOCK 
rs 3 OFFSETS FOR DATA BUFFERS 
62 000000 BF.DAT = 0. DATA 
63 000400 BF.EDC = 256. ERROR DETECTION CODE 
o 000401 BF.ECC = 257. jLAST 17 ECC RESIDUES 
r¢] : BUFFER AND READ/WRITE CHAIN LINK SIZES 
68 000401 WBUFLN = 257. ; WRITE BUFFER SIZE 
69 000415 RBUFLN = WBUFLN+12. ; READ BUFFER SIZF 
70 000007 LINKLN = 7. : LINK SIZE 





hee epeeSs ese er 


| UDATS DISK EXERCISER MACRO K04.00 9=JUL=B1 01:12:03 PAGE 4 


UDA DM PROGRAM PARAMETERS 


1 
2 
| 3 000000 
4 000001 
5 000002 
6 000003 
7? 000004 
| 8 000005 
9 000006 
10 000007 
11 000010 
12 000011 
13 000012 
14 000013 
15 000014 
16 000015 
17 000016 
18 000017 
19 000020 
20 00002 
21 
22 
23 
24 000000 
25 000000 
26 000001 
27 000001 
28 00000 
29 000002 
30 000002 
31 000003 
32 
33 
34 
35 000200 
36 





XFC DEFINITION EQUATES 


ee 


GET 


STATUS BIT DEFINITIONS 


ninnhnnnh ow th nu 


4 SS 3 2 OD NAULS WN 
. . . . . . 


NOWEWI-O* 
*es © ® © © @& © 


STATUS OFFSETS 


SEQ 0281 


;BREAKPOINT XFC CODE 
sFORMAT TRACK XFC CODE 
;READ_N SECTORS XFC CODE 


;WRITE N SECTORS ws CODE 

SEND SDI COMMAND XFC CODE 

:RECEIVE SDI MESSAGE XFC CODE 
OMPARE DATA PATTERN TO BUFFER 

“RETURN DRIVE STATUS XFC CODE 
sECHO DATA TO DRIVE XFC CODE 


[DRIVE INITIALIZE XFC CODE 

sWAIT FOR SECTOR OR INDEX PULSE 

;READ UNIBUS MEMORY XFC CODE 

;WRITE UNIBUS MEMORY XFC CODE 

;DO ECC ON BUFFER XFC CODE 

;SEND BUFFER TO MAINTENANCE READ COMMAND 
;GET BUFFER FROM MAINTENANCE WRITE COMMAND 
;CONVERT TO PHYSICAL ADDRESS XFC CODE 

; TERMINATE DM PROGRAM XFC CODE 


UNIT NUMBER 


; SUBUNIT MASK 
+ STATUS BYTE 


BYTE 
CONTROLLER BYTE 
;C BITS 


; I 
RETRY COUNT/FAILURE CODE 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be 


ONLINE TO ANOTHER (SET IF DRIVE UNAVAILABLE) 
READJUSTMENT BIT (SET IF RECALIBRATION REQUIRED) 
DIAGNOSTIC REQUEST (SET IF teers REQUESTED) 
SPINDLE READY (SET IF SPINDLE READ 
PORT SWITCH (SET IF PORT SWITCH IN). 
RUN/STOP SWITCH (SET IF RUN/STOP SWITCH IN) 
FATAL ERROR (SET IF FATAL ERROR OCCURRED) 
RETRIABLE ERROR (SET IF RETRIABLE ERROR OCCURRED) 
PROTOCOL ERROR (SET IF PROTOCOL ERROR OCCURRED) 
INITIALIZATION FAILURE (SET IF INIT FAILED) 
WRITE ENABLE (SET IF WRT ATTEMPTED ON PROT DISK) 
FORMATTING (SET IF FORMATTING ENABLED) 
DIAGNOSTIC CYLS (SET IF DIAG CYL ACCESS ENABLED) 
SECTOR SIZE (SET FOR 576 BYTE SECTORS) 


UDATS DISK EXERCISER MACRO xX04.00 9=JUL=81 01:12:03 PAGE 5 SEQ 0282 
UDA DM PROGRAM PARAMETERS 


4 3 GET COMMON CHARACTERISTICS OFFSETS 

3 000000 SHRTTO = 0. s SHORT TIMEOUT <3: 0> 

é4 SDIVER = 0. SDI VERSION <7:4 

5 000000 XFERRT = 0. : TRANSFER RATE a: 0> 

6 000001 LONGTO = aa :LONG TIMEOUT <3:0> 

7 000001 RETS = Ts *RETRIES <7:4> 

8 000001 RCTCPS = a 3F/RCT COPIES <11:8> 

g 000001 Ss = a ;SECTOR SIZE <15:15> 

10 2 ERLEV = as ERROR RETRY LEVELS <7:0> 

11 000002 ECCRSH = a. 3sECC THRESHOLD <15: 

12 03 MICREV = a sMICROCODE REVISION NUMBER <7:0> 
13 000003 HRDREV = 3. “HARDWARE REVISION NUMBER <15:8> 
14 000004 DRVID = 4, ;UNIQUE DRIVE ID <47:0> 

15 000007 DRTYPE = le DRIVE TYPE IDENTIFIER <7:0> 

6 000007 REVS = Fs ZREVS/SECOND <15:8> 

i ; GET SUBUNIT CHARACTERISTICS OFFSETS 
30 THESE OFFSETS ARE CURRENTLY GIVEN AS FOLLOWING THE COMMON CHARACTERISTICS 
22 000013 S = 11. OFFSET TO PUT SUBUNIT AFTER COMMON; 
23 600000 LBNCYL = 0. NUMBER OF CYLINDERS IN LBN AREA <31:0> 
24 001 HICYL = 1. HI ORDER CYLINDER BITS <15:12> 

25 000002 GRPCYL = “ :GROUPS PER CYLINDER <7:0> 

26 002 HILBN = 2. HI STARTING LBN <11:8> 

27 000002 HIXBN = Zz. HI STARTING XBN <15:12> 

28 000003 TRKGRP = 3. : TRACKS PER GROUP <7:0> 

29 000003 HIRBN = 3. HI STARTING RBN <11:8> 

000003 HIDBN = . HI STARTING DBN <15:12> 

31 000004 RBNTRK = 4. ;RBNS PER TRACK <6:0> 

32 000004 = 4. ;REMOVABLE MEDIA <7:7> TonenOve Aa E 
33 000005 DATPRE = 5. DATA PREAMBLE SIZE IN WORDS <7:0> 

5 HDRPRE = 5. THEADER PREAMBLE SIZE IN WORDS <15:8> 

35 MEDTYP = 6. ‘MEDIA TYPE <31:0> 

26 000010 FCTSIZ = 8. ‘FCT COPY SIZE <15:0> 

37 000011 LBNTRK = 9. =LBNS PER TRACK <7:0> 

000011 GRPOFF = 9. :GROUP OFFSET (SECTORS) <15:8> 

39 000012 LBNHST = 10. :LBNS IN HOST AREA <31:0> 

40 000014 RCTCSZ = 12. *RCT COPY SIZE <15:0> 

41 000021 XBNCYL = "fe =CYLS IN XBN AREA <15:0> 

o¢ 22 DBNCYL = 18. :CYLS IN DBN AREA <15:8> 
re : UNIT CODES 
46 000001 UNITO = 1. ;UNIT ZERO CODE 

47 000002 UNIT1 = 2. [UNIT ONE CODE 

48 000004 UNIT2 = 4. : UN T TwO CODE 

* 000010 UNIT3 = 8. UNIT THREE CODE 
35 ; BIT MASK DEFINITIONS 

53 : 

54 177400 HIBYTE = 177400 s;HIGH BYTE MASK 

55 000377 LOBYTE = 000377 sLOW BYTE MASK 

56 007777 HBHINB = 7777 HI BYTE, HI NIBBLE MASK 

57 170377 HBLONB = 170377 HI BYTE, LO NIBBLE MASK 












58 177417 
59 177760 
60 

61 0 

62 000002 
63 00000 
64 

65 000002 
66 000004 
67 000010 
68 

69 000001 
70 000002 
71 

72 

73 

74 000001 


000002 


LBHINB 
LBLONB 


TIMEOUT 
HEADER 
REVECT 


LARGE 
OVERFL 


nNo— 
ee 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 5-1 
UDA DM PROGRAM PARAMETERS 


SEQ 0283 


;LO BYTE, HI NIBBLE MASK 
;LO BYTE, LO NIBBLE MASK 


<~i DRIVE TIMEOUT CODE 
“HEADER COMPARE FAILURE CODE 
sREVECTOR NEEDED CODE 


SEIRST WORD NOT START FRAME CODE 
FRAMING ERROR CODE 
: CHECKSUM ERROR CODE 


NUMBER OF WORDS EXCEEDS 7064 
DM BUFFER ADDRESS IS LESS THAN 714 


BLOCK. NUMBER TOO LARGE 
; SECTOR NUMBER LARGER THAN 16 BITS 


=- | 


ae DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 6 


DM PROGRAM PARAMETERS 


QU eWN— 


“SOV ONAUS WMO OOnN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
2 
2 





;MAINTANENCE READ/WRITE REQUEST NUMBERS 
0. 


“4 
, > 
wn 
oO 
wn 
“4 
hrunnnnnnnnnnnnan 
. e eo 8 6 . . 


; OTHER BIT DEF INITIIONS 


an 


100 

400 

100000 

: SDI COMMANDS AND RESPONSES 
204 


a» 

5 

<= 

m 

P) 

P ] 
nonin 


e i?) 
mn 
~ 
wn 
“4 
> i—] 
mn nhnwnnvnnnnnnhnnhnhtnne 
» 
g 
) 
So WW RS @ NY RS PN! 
mm WOO 
nA DOAN 


~ 
— 
a 
Co 
mn 
< 

nuh 
> 
oS 
oO 


ERSOF T 





SEQ 0284 


:GET FREE MEMORY PARAMETERS 

[DOWNLINE LOAD DRIVE DIAGNOSTIC 
[MANUAL INTERVENTION TEST 2 PROTOCOL 
:GET MASTER PARAMETERS FROM SW QUESTIONS 
:GET UNIT PARAMETERS FROM HW QUESTIONS 
GET BAD BLOCKS (1 THRU 14) 
GET REST OF BAD BLOCKS (15 AND 16) 
z;ADD TO SOFT ERROR AND ECC COUNT 
ADD 1 TO SEEK COUNT 
He TO MEGABITS READ AND WRITTEN 

;GET UNITS TO TEST 

PRINT ERROR MESSAGE 

TEST 4 ERROR REPORTING 

7 INFORMATION MESSAGE 

[MARK DM PROGRAM AS NO LONGER RUNNING 


RECIEVER READY 1 = READY 

ATTENTION a FoR RETURN DRIVE SIGNALS XFC 
RECIEVER ERRO 

AVAILABLE 1 = PR AVAILABLE 

TRANSMIT ERROR 

IF SET, UDA IS ABLE TO READ AND/OR WRITE TO DRIVE 


DISCONNECT DRIVE 

ERROR RECOVERY 

CHANGE MODE 

DRIVE Tete 

DRIVE R 

DRIVE CLEAR OPCODE 

; GET CHARACTERISTICS 

; GET SUBUNIT CHARACTERISTICS 

; GET STATUS 

; RECALIBRATE 

; INITIATE SEEK 

; SUCCESSFUL COMPLETION 

UNSUCCESSFUL COMPLETION 

GET CHARACTERISTICS RESPONSE 

GET SUBUNIT CHARACTERISTICS RESPONSE 
GET STATUS RESPONSE 

DIAGNOSTIC ECHO COMMAND AND RESPONSE 


Be Be Se Be Be Be Be Be Be Be Fe Be Be Fe Be Se Be 


SYSTEM FATAL ERROR 
DEVICE FATAL 

HARD ERROR 

SOFT ERROR 


Be Be Be Be 


NY ARO ARR, SE os SUE ar, . 

B 7 
| UDAT4 DISK EXERCISER MACRO 04.00 9-JUL~81 01:12:03 PAGE 7 SEQ 0285 
TEST G SPECIFIC. INFORMATION r 


| } .SBTTL TEST & SPECIFIC INFORMATION | 

3 : TEST 4 SPECIFIC INFORMATION 
5 | 
¢ : CONSTANTS | 
8 600377 SCTWRD = 255. ; NUMBER OF wOneS IN SECTOR TO FILL 
9 000105 INTEDC = 69. : INITIAL EDC VALUE 

10 000061 TLEN.U = U.LGRP+1 ; UNIT PARAMETERS LENG 

i} 007717 FIRSTU = HIMEM=TLEN.U : LOCATION OF FIRST ONIT PARAMETER BLOCK 

13 : UNIT PARAMETER OFFSETS 

15 000000 U.NEXT = ; POINTER TO NEXT UNIT (RING LINKED LIST) 

16 ¢ 000001 U.SUBP = U.NEXT+#1 : 4 WORDS OF SUBUNIT PARAMETER POINTERS 

17 000005 U.TIMO = U.SUBP+4 ; AREA TO STORE VARIOUS TIMEOUT VALUES 

18 000 U.RWTO = U.TIMO+1 ; READ/WRITE TIMEOUT AREA 

19 000007 U.SEEK = U.RWTO+1 : NUMBER OF SEEKS ISSUED 

20 000010 U.NFUN = U.SEEK+1 : NEXT FUNCTION ADDRESS (FOR DEFERRED CALLS) 

21 000011 U.PAT = U.NFUN+1 ; PATTERN NUMBER TO WRITE 

2 000012 U.CCNT = U.PAT+1 : CURRENT COUNT OF T/G LOOPS 

23 600014 U.PCTG = U.CCNT+2 ; POINTER TO CURRENT TRACK OR GROUP 

24 000015 U.CTRK = U.PCTG+1 : TRACK COUNT FOR GROUP OPERATIONS 

25 000016 U.NSEC = U.CTRK+1 : NUMBER OF SECTORS R/W THIS TRY 

26 00001 U.MSEC = U.NSEC+1 ; NUMBER OF SECTORS TO BE R/W 

27 000020 U.TSEC = U.MSEC+1 : NUMBER OF SECTORS TO BE R/W THIS OP 

28 000021 U.CSEC = U.TSEC+1 : COUNT OF SECTORS R/W SO FAR 

29 000022 U.MASK = U.CSEC+1 : UNIT MASK FOR XFC CALLS (0001 = 1000) 

30 00002 U.WRIT = U.MASK+1 ; WRITE PROTECTION STATUS 

31 000024 U.ELEV = U.WRIT+1 ; CURRENT ERROR RECOVERY LEVEL 

32 000025 U.RTRY = U.ELEV+1 : MAXIMUM NUMBER OF READ RETRIES 

33 000026 U.MLEV = U.RTRY+1 : MAXIMUM NUMBER OF ERROR RECOVERY LEVELS 

34 000027 U.ECCT = U.MLEV+1 : ECC THRESHOLD 

35 000030 U.SDIS = U.ECCT+1 : SDI SHORT TIMEOUT 

%6 000031 U.SDIL = U.SDIS+1 ; SDI LONG TIMEOUT 

37 000032 U.WPRT = U.SDIL+1 : MASK TO WRITE ofhorect READ-ONLY DRIVES 

38 00003 U.PARM = U.WPRT+1 ; UNIT PARAMETER 

39 000034 U.SUBU = U.PARM+1 ; SUBUNIT OFFSET to - 3) 

40 000035 U.MBN = U. SUBU+1 ; MASTER L/DBN 

41 000037 U.CBN = U.MBN+2 : CURRENT L/DBN FOR START OF CHAIN 

42 00041 U.RBN = U. CBN+2 ; RBN TO BE READ/WRITTEN IF LBN REVECTORED 

43 00043 U.COPY = U.RBN+2 ; NUMBER OF RCT COPIES ON EACH SUBUNIT 

44 000044 U.CCOP = U.COPY+1 : CURRENT RCT COPY THAT WE'RE WORKING ON 

45 000045 U.RWER = U.CCOP+1 ; ERROR (IF ANY) ON THE LAST R/W 

46 000046 U.RVER = U.RWER+1 : ERROR THAT OCCURRED BEFOR THE REVECTOR OPERATION 

47 00004 U.SNUM = U.RVER+1 : 4 WORDS THAT HOLD THE SUBUNIT LOGICAL NUMBERS 

48 000053 U.CCYL = U. SNUM+4 : CURRENT CYLINDER 

49 000055 U.CGRP = U.CCYL+2 

50 000056 U.LCYL = U. CGRP+1 ; LAST CYLINDER SEEKED TO 

at 000060 U.LGRP = U.LCYL+2 : LAST GROUP SEEKED T9 

27 2 SUBUNIT PARAMETER OFFSET 

55 000000 S.PARM = 0. : SUBUNIT PARAMETER WORD 

56 000001 S$.SDCL = S.PARM+1 : STARTING DIAGNOSTIC CYLINDER 

57 000003 S.PAT = S.SDCL+2 : PATTERN TO USE FOR WRITES 


tc  e e - 


| TEST 4 SPECIFIC INFORMATION 


000004 
000005 
00006 


| UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 7-1 





cf 
= S.PAT+1 ; NUMBER OF SECTORS IN ONE TRACK 
= S.TRKL +1 ; POINTER TO SUBUNIT CHARACTERISTICS 
= S.SCHR+1 3 SECTORS READ (UP TO 245) 
= S.MEGR+1 ; SECTORS WRITTEN (UP TO 245) 
= S.MEGW+1 ; POINTER TO BAD BLOCK AREA 
= S.BADP+1 ; START OF BEGIN/END SETS 


IF TRACK/GROUP LIMITS ARE GIVEN, THE SUBUNIT PARAMETERS HAVE THE 
FOLLOWING FIELDS ADDED TO THEM 


= S.BESS ; MAXIMUM TRACK/GROUP COUNT 
= S.MCNT+2 ; ORIGINAL TRACK/GROUP OFFSET 
= S.TGOF +2 ; START OF TRACK/GROUP SETS 


SEQ 0286 


nn i a a a 


UDATS Ay 


Sk 
| TEST 4 SPECIFIC INF 
1 
2 
3 
4 000001 
5 000002 
6 
7 
8 
9 
10 100000 
11 040000 
12 020000 
| 13 010000 
14 004000 
15 002000 
16 001000 
17 00400 
18 000200 
19 000100 
20 
21 000020 
22 000004 
23 600001 
24 
25 
26 
27 020000 
28 010000 
29 004000 
30 002000 
31 001000 
32 000200 
34 000100 
35 000040 
36 000020 
37 000010 
38 
39 000004 
40 000002 
42 000001 





WONL Y 
RTRIES 
ONL YCL 


SEQSEK 
BEUSED 
TRACKS 
WCHE CK 


WCHKAL 
DATCMP 


DCMPAL 


tric ERCI oe anny B X04.00 9=JUL=81 01:12:03 PAGE 8 


DUMMY SDI CONTROL BLOCK OFFSETS 


1 
2 


UNIT PARAMETER BITS (U.PARM(R5)) 


ronnie nnn a 


= 


100000 
40000 


SEQ 0287 


; DUMMY SDI SEARCH LIMIT 


DUMMY POINTER TO SUBUNIT CHAR=5 


DROP BIT (SET IF UNIT OR SUBUNIT DROPPED) 
INITIAL WRITE (SET IF INITIAL WRITE IN PROG) 

IF 1, INDICATES THAT A SEEK IS NECESSARY 
DIRECTION (SET IF SEQUENTIAL ACCESSES DECREASING) 
SET IF SEQUENTIAL SEEKS MOVED TO NEW SUBUNIT 
SEEK IN PROGRESS = SET IF TRUE 

FIRST TIME FLAG — SET FOR INIT CODE 

REVECTOR BIT (SET IF BLOCK REVECTORED) 

SEE IF WORKING ON RBN 

REDWRT (READ OR WRITE IN PROGRESS SET IF WRITE) 
REVECTORING ah ale IN PROGRESS 

DATA ERROR IF SéT 

IF CLEAR, START RETRIES AT ZERO 

RECALIBRATION BIT (SET IF RECALIBRATE JUST DONE) 


PARAMETER BITS (S.PARM(R4)) 


DIAGNOSTIC CYLINDER FLAG (SET IF DBNS) 

IF ECC CORRECTION ALLOWED MASTER BITS 
READ ONLY (SET IF READ ONLY) 

WRITE ONLY (SET JF WRITE ONLY) 

1_IF RETRIES ALLOWED 

SET IF ONLY ator ten SPECIFIED 

USED DURING SETUP ONLY 

SEQUENTIAL SEEK (START UP TESTING ONLY) 
BEGIN/END SETS (USED IF SET) 

TRACKS OR GROUPS (TRACK IF 


1 


SET 
TE CHECK BIT (IF SET, WRITE CHECK WILL BE DONE) 
ARAME TERS 


I 
F WRITE CHECK ALWAYS TO BE DONE 
COMPARE (SET IF DATA COMPARE TO BE DONE) 


DATA 
DAT CMP” IS ALSO USED FOR THE UNIT PARAMETERS 


SE 


T 


IF DATA COMPARE ALWAYS TO BE DONE 





ieee 


mt ee — -— _ 


UDATG DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 9 SEQ 0288 
MACRO DEFINITIONS : 
| .SBTTL MACRO DEFINITIONS 
| : DIAGNOSTIC MACRO FOR TEST4 OVERLAYS 
: .MACRO DIAG$$ 
ist $$D IAG+$DIAGS$ 
BEQ +6 


MOV #60000,RO 
MOV 4 yng pi lander: 


BR -* 
$D IAG$ *. $DIAG$ + 1 


sl cl ell 
MOOD NANEWNR— 


NDM 


a 


oc  - - r'----—--oOes- 


| F 7 3 
“UDATS DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 10 SEQ 0289 
“MACRO. DEFINITIONS 


1 ; MESSAGE CONTROL TABLE MACRO 
3 : _MACRO MSG CMDBUF . CMDSZ ,RPLBUF ,RPLSZ, SUCCOM 
4 “WORD CMDBUF ADDRESS OF COMMAND 
5 “WORD CMDSZ “SIZE .OF COMMAND IN BYTES 
é "WORD RPLRUF SADDRESS OF REPLY 
>: “WORD RPLSZ “SIZE OF REPLY IN WORDS 
- “1F NB NUMBER 
9 = WORD SUCCOM : SUCCESSFUL COMPLETION CODE 
1 "ENDM 


2 


Bac GEER EERarEES "aan 


| UDATS DISK Tics MACRO K04.00 9=JUL=81 07:12:03 PAGE 11 
«MACRO BCS 


LAB.. 


BCC 
BR 


SEQ 0290 


—- 


—— — —— ooo 


yo Soa MACRO X04.00 9=sUL=81 01:12:03 PAGE 12 SEQ 0291 


: PUSH REGISTER MACRO 


-MACRO PUSH R9 
-IRP K,<R9> 


-ENDR 
~ENDM 


: POP REGISTER MACRO 


~MACRO POP R9 
~IRP x,<R9> 


«ENDR 
.ENDM 


MOV X,-(SP) 


MOV (SP)+*,X 


PEW OOD NA New 
. 


1 
4 
1 
1 
1 
1 





UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 13 
MACRO DEF INI TIONS 
| 1 ERROR MACROS 
| 2 ;THESE MACROS ARE CALLED TO REPORT ERRORS TO THE HOST PROGRAM 
3 [THE MACRO NAMES ARE : ERRSF, ERRDF, ERRHRD, ERRSFT. EACH RESULTS IN THE HOST 
| 4 :BE ING REQUESTED TO REPORT THE ERROR. 
s ARGUMENTS : 1 (MS$) MESSAGE POINTER 
6 ; 2 (P1$) PARAMETER #1 
| 7 : 3 (P2$) PARAMETER #2 
. : 4 (P3$) PARAMETER #3 
| 9 : 5 (P4$) PARAMETER #4 
10 : 6 (P5$) PARAMETER #5 
eH 7? (P6$) PARAMETER #6 
12 : 8 (P7$) PARAMETER #7 
13 : 9 (P8$) PARAMETER #8 
4 ; 
15 ZTHE MESSAGE POINTER MUST POINT TO AN ADDRESS IN THE OVERLAY ‘MS‘' IMMEDIATELY 
16 [FOLLOWING THE MAIN CODE. ANY ADDRESS MODE MAY BE USED (E.G. #MS1, @R2). 
7 : THE ADDRESS MUST CONTAIN AN ASCI] FORMAT STRING TO DETERMINE THE MESSAGE 
19 :THE PARAMETER ARGUMENTS ARE OPTIONAL. THEY SHOULD BE SUPPLIED ONLY WHEN 


; THERE IS DATA TO BE PASSED TO THE HOST THAT WILL BE USED IN PRINTING THE 
;MESSAGE. THESE PARAMETER ARGUMENTS ARE THE ADDRESS OF DATA TO BE PASSED 
;USING ANY ADDRESSING MODE DESIRED. 

ALL REGISTERS ARE RETURNED UNCHANGED. IT SHOULD BE NOTED THAT ARGUMENTS 
CONTAINING SOMETHING OTHER THAN A REGISTER NAME (E.G. #100 OR MEMADR) 
;ASSEMBLE TO INSTRUCTIONS THAT SAVE AND RESTORE A REGISTER ON THE STACK. 


«MACRO ERRSF MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
-NARG ARGS$ 


-RADIX 10 
gy O,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


«MACRO Rss. MS$,P1$,P2$,P3$,P4$,P5$,P6$ .P7$,P8$ 


10 
ERRORS 1,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 


an het ERRHRD MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$ 
“NAR — 
-RADIX 10 
ERRORS 2.MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$,\ERRN 
L 
.ENDM 


«MACRO ERRSFT MS$,P1$,P2$,P3$,P4$,P5$,P6$,.P7$,P8$ 
-NARG ARGS$ 


-RADIX 70 
on 3,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$,P8$, \ERRN 





SEQ 0292 


foe ae Rn ST 


UDATS 


DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 14 SEQ 0293 
| MACRO DEFINITIONS 
, THE FOLLOWING MACRO ACTUALLY PROCESSES THE ERROR CALL TO THE HOST PROGRAM 
3 MACRO ERRORS ET$,MS$,P1$,P2$,P3$,P4$,P5$,P6$,P7$ PBS, ERRNS 
4 RADIX 8 

5 PRMS=ARGS$-1 

é IF _LT,<PRMS> 
? ERROR: NOT ENOUGH ARGUMENTS IN ERROR CALL 

a LENDC 

9 REGS$==1 

10 -IIF GE,<PRMS=8.>,PARGS. P8$ 

17 “TIF GE.<PRMS-7.>.PARGS. P7$ 

12 “1IF GE.<PRMS-6.>.PARGS. P6$ 

13 “TIF GE.<PRMS-5.>.PARGS. P5$ 

14 “TIF GE.<PRMS=4.>.PARGS. P4$ 

15 “TIF GE.<PRMS-3.>.PARGS. P3$ 

16 -I1IF GE,<PRMS-2.>,PARGS. P2$ 

17 “TIF GE.<PRMS-1.>.PARGS. P1$ 

18 "IF GE REGS$ 

19 RSTRS \REGS$ 

20 -ENDC 

21 "RADIX 10 

22 | “LIST 

23 ; CALL RERROR ERROR # ERRNS*. 

24 LNLIST 

25 "RADIX 8 

26 “LIST 

27 WORD <PRMS*2000>+<E1T$*400>+ERRN 

28 “WORD MS$ 

-NLIST 
ERRN=ERRN+1 
ENDM 


-MACRO PARGS. ,ADDR$ 
-NTYPE PTYPE$,ADDR$ 
-IF EQ,<PTYPE$&70> 
ff case hecg canst seeping \REGS$ 


“LIS 
MOV ADDR$,-(SP) 
pMelst 
"LIF EQ. <PTYPE$&7>=1 zPICK A REGISTER TO USE 
REGUS=2 *SELECT R2 IF R1 IS USED IN PARAMETER FETCH 
REGUS sOTHERWISE USE R1 
“IF NE, <REGU$-REGS$> :IF REGISTER NOT ALREADY SAVED 
.IF GE,REGS$ 
ERSTRE \REGS$ :RESTORE CURRENT SAVED REGISTER 
SAVRS \REGUS : THEN SAVE SELECTED REGISTER 


EN 
GETP$ \REGS$,ADDR$ 
-ENDC 
. ENDM 





UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 15 SEQ 0294 
MACRO DEFINITIONS 

1 «MACRO SAVR$ REGN 

2 «LIST 

3 MOV R'REGN, SAVREG 
4 eNLIST 

5 REGS$=REGN 

g -ENDM 

8 -MACRO_RSTR$ REGN 

9 -LIST 

10 MCV SAVREG,R'REGN 
11 »NLIST 

12 REGS$==1 

F . ENDM 
15 «MACRO GETP$ REGN,ADDR$ 

16 LIST 

17 MOV ADDR$,R'REGN 
18 MOV R'REGN,~(SP) 
19 «NLIST 
20 - ENDM 





a 
L 7 
|UDATG DISK EXERCISER MACRO X04.00 9-JUL~81 01:12:03 PAGE 16 SEQ 0295 
= SEF INIT IONS 
2 PRIMARY ERROR REPORTING (TEST 4) 
é .MACRO SOFTER NUM,ARGS 
5 ERROR #ERSOFT,NUM,<ARGS> 
6 MOV —- MERRMES,R2 
? MOV _—R2, OUT..RO 
8 .ENDM 
10 -MACRO REPSFT SFTFLG,ECCFG 
1 LIF NB, SFTFLG 
12 MOV #1,0UT.02 
13 FF 
14 CLR OUT..02 
15 -ENDC 
16 TIF NB, ECCFG 
17 MOV #1,0UT.03 
18 .IFF 
19 CLR OUT.03 
20 -ENDC 
21 PUSH RO 
MOV #U. SNUM, RO 
ADD 5;RO 
ADD —_—-U, SUBU(R5) ,RO 
Mov —- (RO) ,OUT..07 
MOV #T4SOFT RO 
CALL HOSTRQ 
POP RO 
ENDM 
.MACRO HARDER NUM,ARGS 
ERROR  #ERHARD,NUM,<ARGS> 
MOV MERRMC ,R2 
MOV —-R2, OUT. RO 
ENDM 
MACRO DEVFTL NUM,ARGS 
ERROR #F TLDEV.NUM,<ARGS> 
: MOV —- MERRMC,R2 
MOV R2,0UT.RQ 
ENDM 
MACRO SYSFTL_ NUM,ARGS 
ERROR #FTLSYS,NUM,<ARGS> 
MOV MERRMC ,R2 
MOV R2,0UT.RQ 
~ENDM 
MACRO. ERROR TYPE, NUM, ARGS 
“RADIX 10 
NUMPTR = 5 
MOVMSG #ER"NUM, 4 
IF NB, <ARGS> 
- IRP xX, <ARGS> 
MOVMSG X; \NUMPTR 
TR = NUMPTR + 1 








105 


1 
1 
1 
1 
I 
1 
1 
1 
1 


RAV=SSRGR 


RCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 16-1 


I 
ONS 


NUMPTR 


NUMPTR 


NUMPTR 





- ENDC 


«RADIX 
. ENDM 


-MACRO 
«RADIX 


IRP 
MOVMSG 


«ENDC 
-ENDM 


ME SSAGE 


eee STNUM, ARGS 
STNUM 
X,<ARGS> 


X, \NUMPTR 
NUMPTR + 1 


oo ARGS 
x, <ARGS> 


X, \NUMPTR 
NUMPTR + 1 


MOVMSG ARG, INDX 
LT, INDX-10 


Aye POS 


POS 
\NUMPTR 


NDERR POS 
NE ,POS 


REPORTING MACRO 
MSSG NUM, ARGS 
10 


5 3 
AMS "NUM, 2 


MOV 
MOV 


MOV 


BIS 
CLR 


SEQ 0296 
#NUM,OUT.02 
TYPE ,OUT.02 
#.,0UT.01 
ARG, OUT.0°* INDX | 
ARG, OUT. * INDX 
#POS ,ERRPOS : SET THE POSITION 
ERRPOS : CLEAR THE POSITION 





DISK EXE 
MACRO DEF INITI 


N 


WN 0 DOONAN EWROOONOW 


ee ee ee ee ee ee ee ee ee ee ee ee 
eee ee eNO OO MO 


—OOONAW 


rt MACRO X04.00 9-JUL=81 01:12:03 PAGE 16-2 


NB,<ARGS 
X,<ARGS> 
X, \NUMPT 


MSSGE 
0 


> 


R 
NUMPTR + 1 


NUM ,ARGS 


<RO,R1> 
#U.SNUM,R1 


R5,R1 

U. SUBU(R5) 
(R1) ,OUT.O 
#MESSAG,RO 
HOSTRQ 
<R1,RO> 


<RO,R1> 
#MESSAG,RO 
HOSTRQ 
<R1,RO0> 


-R1 
1 


SEQ 0297 


> sham 





UDATS DISK ik MACRO X04.00 9=JUL=81 01:12:03 FAGE 17 
MACRO DEF iNITION 





1 ;RETURN DRIVE STATUS MACRO WITH ERROR REPORTING 
| 3 «MACRO DSTAT,LAB$,E1,E2 
4 -NLIST 
5 -NLIST MEB 
6 -LIST ME 
7 LIST 
8 CALL RDSTAT ; GET DRIVE STATUS 
3 BIT #10000,R1 * SEE IF aa ERRORS 
10 BEQ ; IF NO ERROR, BRANCH 
11 BIT #4000,R1 s SEE if xm * ERROR 
12 Q 1$ ; IF SO, BRANCH 
13 ERRHRD- £1 ts REPORT INVALID STATUS ERROR 
14 a LABS ; BRANCH TO DONE 
15 1$: ERRHRD E2 ; REPORT XMIT ERROR 
16 BR LABS : BRANCH TO DONE 
17 es: 
18 NLIST 
19 NLIST ME 
20 LIST MEB 


nN 
— 
e e . @ s 
as 
~ 
” 
~ 


SEQ 0298 


es | 


S | 
pe 
5 


x 4 
p> 
oO 
3 
Oo°9g 
me 


1 

2 
3 
4 
5 
6 
7 
8 
9 





eS — 


c 8 
CISER MACRO K04.00 9=JUL=81 01:12:03 PAGE 18 
ONS 
; KOR THE CONTENTS OF TWO REGISTERS 
: .MACRO RXOR  REG1,REG2 
MOV REG2,-(SP) : 
BIC REG1,REG2 : 
BIC (SP)+,REG1 : 


BIS REG1,REG2 


SAVE REGISTER REG2 

CLEAR COORESPONDING BITS IN REG2 
CLEAR COORESPONDING SITS IN REG1 
OR WHAT'S LEFT 


SEQ 0299 


(i er ree 


| UDATG DISK EXER 
| MACRO DEFINITION 


| 


BR 
11$: ted 
12$: 


1 
1 
1 
1 
1 
1 
1 
1 
} 
; 
2 
2 





5 MACRO X04.00 9=JUL=81 01:12:03 PAGE 19 


TALKX  ERRLAB,E1,E2 


11$ 
E1;SEND COMMAND ERROR 


SEQ 0300 


; SDI] INTERCHANGE WITH DRIVE WITH ERROR REPORTING 


INITIATE SDI INTERCHANGE 
SEE IF ERROR OCCURRED 

IF NOT, BRANCH 

iF SO, BRANCH 


ERRLAB 
E2;RECEIVE COMMAND ERROR 
ERRLAB 


ME 
MEB 


3 


-4 


ATS DISK tee Ye MACRO X04.00 9=JUL=81 01:12:03 PAGE 20 
ART OF TEST C 


1 
2 
3 
4 
5 
6 
7 
8 
9 


000714 114007 


-SBTTL START OF TEST CODE 


3 THE FOLLOWING IS FOR DEBUG PURPOSES ONLY. 


CLR RO 
INITIALIZE STACK 


BR 





MOV #STACK,SP 
START 


7SET UP STACK POINTER 


BRANCH OVER SUPPORT CODE 


CAN BE NOP OR BREAKPOINT. 
; CHANGE TO BREAKPOINT FOR DEBUG 


SEQ 0301 


ee Fy 


3998939985) 985090908505 0 EE 


--- a 


} 


“UDATG DISK EXERCISER MACRO K06.00 9=JUL=81 01:12:03 PAGE 21 


_RDSTAT = GET DRIVE'S REAL 


000744 104201 


000746 104267 
000747 104263 
23 000750 000000 


NM ODOONAUNSWM—O Oo 
8 
N 
s 
— 
R 
mM 
So 
— 


NOPIN — - Ae ee ee ee ee 


0C0003 


014000 
0060400 


010000 
000004 


914900 


TIME DRIVE STATE 
area RDSTAT = GET DRIVE’S REAL TIME DRIVE STATE 


RDSTA 


TRETURN DRIVE STATUS 


s STATUS RE TURNED IN’ DM REGISTER 1 


STATLP: 


STATOK: 


STATEX: 


PUSH 


RETURN 


<R3,RO0> 


#3,R3 
STATUS 
#14000,R1 
AXMTERR,R1 
STATOR 


R 
STATLP 
#10000,R1 


STATLP 
siege ART 
<RO,R 


SEQ 0302 


SAVE R3 AND RO 
MOV R3,-(SP) 
MOV RO,-(SP) 
ALLOW ONLY 3 ERRORS 
GET DRIVE'S STATUS 
CLEAR ERROR PASSING BITS 
CHECK XMIT ERRORS 
IF NO ERRORS, BRANCH 
DECREMENT TRANSMIT ERROR COUNT 
IF ERROR COUNT INCOMPLETE, BRANCH 
FLAG AS TRANSMIT ERROR 
BRANCH 
RECIEVER ERRORS 
IF VALID, BRANCH 
DECREMENT ERROR COUNT 
IF ERROR COUNT NON-ZERO, BRANCH 
FLAG AS INVALID STATUS ERROR 
RESTORE RO, R 
MOV (SP)+,RO 


MOV (SP)+,R3 
RETURN TO CALLING MODULE 


me 


2 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 22 SEQ 0303 


-WOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
| 1 .SBTTL HOSTRQ = HOST REQUEST = REPORI ERRORS, MEGABYTES TRANSFERRED, ETC. 
‘ 000751 HOSTRQ: 
4 :SEND REQUEST BUFFER TO HOST AND WAIT FOR RESPONSE. 
5 “CLEAR ARGUMENT AREA OF OUT BUFFER IN PREPARATION 
e ‘FOR NEXT HOSTRO CALL. 
8 ; INPUTS: 
9 : RO = HOST REQUEST NUMBER 
10 OUT BUFFER LOADED WITH DATA 
12 000751 PUSH <RO.R1,R2> 
000751 100467 MOV RO,-(SP) 
| 000752 100461 MOV R1,-(SP) 
| 000753 160462 MOV R2,-(SP) 
13 000754 104070 001006 MOV RO,OUT.RQ : STORE REQUEST NUMBER IN BUFFER 
| 14 000756 104207 001006 SNDAGN: MOV #OUT.RQ,RO *SEND BUFFER TO HOST 
| 15 000760 104201 000036 MOV #BUFSIZ,R1 
| 16 000762 060016 XFC MRD 
17 000763 115001 TST R1 :CHECK FOR ERROR 
18 000764 050756 BNE SNDAGN :[F ERROR, TRY AGAIN 
19 000765 104207 001044 MOV #IN.RQ,RO ‘WAIT FOR RESPONSE FROM HOST 
20 000767 104201 000036 MOV #BUFSIZ,R1 
21 000771 060017 XFC MWR 
22 000772 104207 001007 MOV #0UT.01,R0 ZCLEAR ARGUMENT WORDS IN BUFFER 
23 000774 104201 000034 MOV #OUT.29-0UT.01,R1 
24 000776 114002 CLR R2 
25 000777 100272 CLRBUF: MOV R2,(RO)+ 
26 001000 117401 DEC R1 
27 001001 030777 BPL CLRBUF 
28 001002 POP <R2,R1,RO0> 
001002 104262 MOV (SP)+,R2 
001003 104261 MOV (SP)+.R1 
001004 104267 MOV (SP)+.RO 


29 001005 000000 RETURN 





re —— ee _ ee 


wats DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 23 SEQ 0504 
STRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


} :STORAGE AREA FOR MAINTENANCE WRITE AND READ BUFFERS 

; OUT BUFFER = DATA TO SEND TO HOST 

5 001 000000 OUT.RQ: .WORD 0 HOST REQUEST CODE 

6 001007 00 OUT.01: .WORD 0 DATA ARGUMENT 1 

| 7 001010 000000 OUT.02: .WwORD 0 DATA ARGUMENT 2 

8 001011 000 OUT.O03: .WORD 0 DATA ARGUMENT 3 

9 001012 0 0 OUT.04: .WORD 0 DATA ARGUMENT 4 

| 10 001013 000000 OUT.05: .WORD 0 DATA ARGUMENT 5 
11 14 000000 OUT.06: .WORD 0 DATA ARGUMENT 6 
12 001015 0000 OUT.07: .WORD 0 DATA ARGUMENT 7 
13 001016 000000 OUT.08: .WORD U DATA ARGUMENT 8 
14 001017 000 OUT.09: .WORD 0 DATA ARGUMENT 9 
15 001020 000000 OUT.10: .WORD O DATA ARGUMENT 10 
16 00 000000 OUT.11: .WORD 0 DATA ARGUMENT 11 
17 001022 000000 OUT.12: .WORD 0 DATA ARGUMENT 12 
18 001023 0000 OUT.13: .WORD 0 DATA ARGUMENT 13 
19 001024 000000 O0UT.14: .WORD 0 DATA ARGUMENT 14 
20 001025 000000 OUT.15: .WORD 0 DATA ARGUMENT 15 

‘ 21 001026 000000 OUT.16: .WORD 0 DATA ARGUMENT 16 
22 001027 000 OUT.17: .WORD 0 DATA ARGUMENT 17 
23 001030 000000 OUT.18: .WORD 0 DATA ARGUMENT 18 
24 001031 000000 OUT.19: .WORD 0 DATA ARGUMENT 19 
25 001032 0000 OUT.20: .WORD 0 DATA ARGUMENT 20 
26 000 GUT.21: .WORD 0 DATA ARGUMENT 21 
27 001034 000000 OUT.22: .WORD 0 :DATA ARGUMENT 22 
28 001035 000000 OUT.23: .WORD 0 DATA ARGUMENT 23 
29 001036 000000 OUT.24: .WORD 0 DATA ARGUMENT 24 
30 001037 OUT.25: .WORD 0 DATA ARGUMENT 25 
31 001040 000000 OUT.26: .WORD 0 DATA ARGUMENT 26 
32 001041 000000 OUT.27: .WORD 0 DATA ARGUMENT 27 
33 001042 000000 OUT.28: .WORD 0 DATA ARGUMENT 28 
3 001043 000000 OUT.29: .WORD 0 DATA ARGUMENT 29 
6 IN BUFFER = DATA RECEIVED FROM HOST 
38 001044 000000 IN.RQ: .WORD 0 HOST REQUEST CODE (ECHO) 
39 001045 000000 IN.O1: .WORD O DATA ARGUMENT 1 
40 001046 000000 IN.02: .WORD 0 DATA ARGUMENT 2 
41 091047 000000 IN.03: .WORD 0 DATA ARGUMENT 3 
42 001050 000000 IN.04: .WORD 0 DATA ARGUMENT 4 
43 001051 000000 IN.05: .WORD 0 DATA ARGUMENT 5 
44 001052 000000 IN.06: .WORD 0 DATA ARGUMENT 6 
45 001053 000000 IN.07: .WORD 0 DATA ARGUMENT 7 
46 001054 000000 IN.08: .WORD 0 DATA ARGUMENT 8 
47 001055 000000 IN.09: .WORD 0 DATA ARGUMENT 9 
48 001056 000000 IN.10: .WORD 0 DATA ARGUMENT 10 
49 0010 000000 IN.11: .WORD 0 DATA ARGUMENT 11 
50 001060 000000 IN.12: .WORD 0 DATA ARGUMENT 12 

001061 000000 IN.13: .WORD 0 DATA ARGUMENT 13 

52 001062 000000 IN.14: .WORD 0 DATA ARGUMENT 14 
53 001063 000000 IN.15: . WORD 0 DATA ARGUMENT 15 
54 001064 000000 IN.16: .WORD 0 DATA ARGUMENT 16 
55 001065 000000 IN.17: .WORD 0 DATA ARGUMENT 17 
56 001066 000000 IN.18: .WORD 0 DATA ARGUMENT 18 
57 001067 000000 IN.19: .WORD 0 DATA ARGUMENT 19 





| UDATS DISK EXERCISER MACRO 04.00 9=JUL=81 01:12:03 PAGE 23-1 SEQ 0305 

emg = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
58 001070 00000C IN.20: .WORD 0 DATA ARGUMENT 20 
59 001071 000000 IN.21: .WORD 0 DATA ARGUMENT 21 
60 001072 000000 IN.22: .WORD 0 DATA ARGUMENT 22 
61 001073 000000 IN.23: .WORD 0 DATA ARGUMENT 23 
62 001074 000000 IN.24: .WORD 0 ;DATA ARGUMENT 24 
63 001075 000000 IN.25: .WORD 0 DATA ARGUMENT 25 
64 001076 0 IN.26: .WORD 0 ;DATA ARGUMENT 26 
65 001077 000000 IN.27: .WORD 0 DATA ARGUMENT 27 
66 001100 000000 IN.28: .WORD 0 ;DATA ARGUMENT 28 
67 001101 IN.29: .WORD 0 DATA ARGUMENT 29 
68 000036 BUFSIZ = - ~ IN.RG SIZE OF BUFFER 


I EE Sele Ot AINE LEE eR SO I HN RS A OER ONCE AE NE Oe ae r 
} 


| 4 


| UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 24 SEQ 0306 
| HOS TRO = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 
IF NE, TESTS 


| 
ie 


pee limeniaintineiretiatio eircalehinanmenmasninltaassinsasaeniti 


kK 8 
~UDATS DISK EWERCISER MACRO X04.00 9eJUL=81 01:12:03 PAGE 29 SEQ 0307 
| HOSTRG = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


49 -ENDC 


| 





L 8 
UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 30 
HOSTRQ = HOST REQUEST = REPORT ERRORS, MEGABYTES TRANSFERRED, 


5 STACK AREA 

3001102 123456 «WORD 123456 
4 0011C3 -BLKW 31. 

5 001142 123456 STACK: .WORD 123456 





7END MARKER FOR STACK 
STACK 
7MARKER FOR STACK UNDERFLOW 


SEQ 0308 


—_—_ 





001143 


NOUS wr 


001143 


non-A a st Ss 
—OOONAUSWI 


25 001170 
26 001171 
27 001172 


104274 


000400 
000105 


000001 


UDATS DISK EXERCISER MACRO X04.00 9=-JUL=81 01: 
CMPEDC = EDC CALCULATION ROUTINE 


. SBTTL 
cm PEDC: 


ZEREDC: 


:2:03 PAGE 33 


SEQ 0309 


CMPEDC = EDC CALCULATION ROUTINE 


THIS WILL COMPUTE THE EDC 
THE VALUE IN R2 


PUSH <R4,R1,RO0> 3 
MOV #256., 
MOV miNtebC, Re 


EDC 
POP <RO,R1,R4> 


RETURN 


THIS WILL COMPUTE THE EDC 


RO POINTS TO BUFFER, R1 
EDC VALUE 


: MOV (RO) +,R4 : 
RXOR R4,R2 j 
MOV R2,-(SP) 

BIC R4,R2 ; 
BIC (SP)+,R4 

BIS R4,R2 3 
ADD R2,R2 é 
BCC ZEREDC : 
BIS #1,R2 Z 


R1 
BNE EDCLOP 


OF A SECTOR POINTED TO BY RO, RETURNING 


SAVE R1 AND RO AND R4 
MOV R4,-(SP) 
MOV R1,~(SP) 
MOV RO,~(SP) 

COMPUTE OVER 256 WORDS 

MOVE INITIAL EDC VALUE TO R2 

COMPUTE EDC 


E 
RESTORE R1 AND RO AND R4 
MOV (SP)+,RO 
MOV (SP)+,R1 
MOV (SP)+,R4 


VALUE FOR ANY NUMBER OF WORDS 


HAS THE COUNT, AND R2 HAS THE INITIAL 


GET A WORD 
EXCLUSIVE OR THE WORD WITH THE CURRENT EDC VALUE 
SAVE REGISTER R2 


; CLEAR COORE SPONDING BITS IN 


R2 

; CLEAR COORESPONDING BITS IN R4 
OR WHAT'S LEFT 
SHIFT R2 LEFT BY 1 
IF THE HIGH BIT WAS CLEAR, BRANCH 
SET LO BIT TO = OLD HI BIT 
DECREMENT COUNT 
IF COUNT UNEXPIRED, BRANCH 


UDAT4 DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 34 


RTDS = REAL TIME DRIVE STATE ROUTINE 


104652 000022 
020720 


114002 
ed 010000 


DWNAMNES WN 
Sesssss 


203 000000 


-SBTTL RTDS 
RTDS: MOV 


INC 
RTDSEX: RETURN 


SEQ 0310 


= REAL TIME DRIVE STATE ROUTINE 
- MASK ( R ; MOVE 


U.MA 
RDSTAT 


Re 
#10000,R1 
RTDSEX 
R2 


MASK TO R2 
GET DRIVE STATUS 


; FLAG AS NO ERRORS 


TEST STATUS FOR ERROR 
IF NO ERROR, BRANCH 


+ MARK AS ERROR 


aoc 


ee rea ne eee : peaneinleta 


ope DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 35 SEQ 0311 
TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 


1 .SBTTL TALK = SDI LEVEL 2 INTERCHANGE ROUTINE 

2 001204 TALK: 

i : TALK SENDS THE COMMAND TO THE DRIVE. IF AN ERROR OCCURRS, R2 IS 

: F RETURNED NONZERO 

7 001204 PUSH RG ; SAVE POINTER TO SUBUNIT PARAMETERS 
001204 100464 > MOV R4,-<SP) 

8 001205 104652 000022 MOV U.MASK(R5) ,R2 ; GET UNIT SDI SELECT MASK 

9 001207 104237 MoV (R3)+, RO : POINTS TO SDI COMMAND BUFFER 

10 001210 104231 MOV —s- (R3) +R > LOAD BYTE COUNT 

11 001211 060004 XFC SEND ; SEND SDI COMMAND 

12 001212 115001 TST RT : SEE IF SDI COMMAND SENT SUCESSFULLY 

13 001213 011240 BEQ —s- 108 : IF SO, BRANCH 

14 001214 HARDER 70, ; REPORT 
001214 104200 007230 001012 MOV —- #ER70, OUT..04 
001217 104200 000106 001010 MoV «#70, 0UT.02 
001222 101200 001000 001010 BIS ERHARD, OUT.02 
001225 104200 001225 001007 MOV = #. ,OUT.01 
061230 104202 000014 MOV  —- HERRMC>R2 
001232 104020 001006 MOV —«R2, OUT. RO 

15 001234 ENDERR 6 
001234 1012C9 000006 002357 BIS #6, ERRPOS ; SET THE POSITION 

16 001237 001453 BR SNDEXT ; BRANCH 

17 001240 106203 001532 10$: CMP —s #LONG,R3 : 5EE IF LONG TIMEOUT TO BE USED 

18 001242 071246 BM] 11 : IF SO, BRANCH 

19 001243 104654 000030 MOV U.SDIS(R5S) ,R4 ; R4& HAS SHORT TIMEOUT 

20 001245 001250 BR 18 : BRANCH 

21 001246 104654 000031 118: MOV U.SDIL (RS) ,R4S ; R4 HAS LONG TIMEOUT 

22 001250 104137 1$: MOV (R3) ,RO ; POINT TO RECEIVE BUFFER 

23 001251 104631 000001 MoV —-1(R35,,R1 : NUMBER OF WORDS IN RESPONSE 

24 001253 060005 KFC RCV : RECEIVE SDI RESPONSE 

25 001254 115001 TST —s RY > SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 

26 001255 011422 BEQ : IF SO, BRANCH 

27 001256 106201 000001 CMP #11 > SEE If TIMEOUT 

28 001260 051304 BNE 3 : IF NOT, BRANCH 

29 001261 117404 DEC R4 ; DECREMENT TIMEOUT VALUE 

30 001262 051250 BNE _—-1$ : IF TIMEOUT UNEXPIRED, BRANCH 

31 001263 HARDER 71, : FLAG AS ERROR 


001263 104200 007311 001012 #ER71 ,OUT.04 
0 MOV #71 ,OUT.02 
BIS MERHARD , OUT .02 


MOV #.,QUT.01 


001277 104202 000014 MOV HERRMC .R2 
001301 104020 001006 MOV R2,0UT.RO 
32 001303 001416 BR 7$ > BRANCH 
33 001304 110601 3$: ROR R1 + ROTATE BITS INTO POSITION TO TEST 
34 001305 110601 ROR R1 ; SEE IF FIRST WORD NOT START FRAME 
35 041330 BCC 4$ : IF NOT, BRANCH 
001307 HARDER 72, ; REPORT “FIRST WORD NOT START FRAME 
001307 104200 007373 001012 MOV #ER72,0UT .04 
001312 104200 000110 001010 MOV #72,0UT.02 
001315 101200 001000 001010 BIS #ERHARD ,OUT.02 
091320 104200 001320 001007 MOV #.,0UT.01 


001323 104202 000014 MOV #ERRMC .R2 
001325 104020 001006 MOV R2,0UT.RO 
37 001327 001416 BR 7$ ; BRANCH 





ee a — _ - - 


| UDATG DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 35-1 SEQ 0312 r 
‘ae = SDI LEVEL 2 INTERCHANGE ROUTINE i 
38 001330 110601 4$: ROR R1 : SEE IF FRAMING ERRNO? | 
| 39 001331 041353 Bcc 5$ : IF NCT, BRANCH | 
| 40 001332 HARDER 73, ; REPORT FRAMING ERROR | 
001332 104200 007472 001012 MOV #ER73,0UT.04 
001335 104200 000111 001010 MOV #73,0UT.02 
1 101200 001000 001010 BIS MERHARD ,OUT.02 
001343 104200 001343 001007 MOV #.,0UT.01 
| 001346 104202 000014 MOV HERRMC ,R2 
001350 104020 001006 MOV R2,0UT.RQ 
41 001352 001416 BR 7$ : BRANCH 
42 001353 110601 S$: ROR R1 : SEE IF CHECKSUM ERROR 
43 001354 041376 BCC 6$ + IF NOT (BUFFER TOO SMALL), BRANCH 
44 001355 HARDER 74, + REPORT CHECKSUM ERROR 
001355 104200 007562 001012 MOV HER74 ,OUT.04 
001360 104200 000112 001010 MOV #74 ,0UT.O2 
001363 101200 001000 001010 BIS MERHARD ,OUT .02 
001366 104200 001366 001007 MOV #.,0UT.01 
001371 104202 000014 MOV HERRMC ,R2 
001373 104020 001006 MOV R2,0UT.RQ 
45 061375 001416 BR 7$ : BRANCH 
46 001376 6$: HARDER 75, ; REPORT BUFFER TO SMALL 
001376 104200 007652 001012 MOV #ER75 ,OUT.04 
001401 104200 0900113 001010 MOV #75 ,0UT.02 
001404 101200 001000 001010 BIS HERHARD ,OUT.02 
001407 104200 001407 001007 MOV #.,0UT.01 
001412 104202 000014 MOV HERRMC .R2 
001414 104020 001006 MOV R2,0UT.RQ 
47 001416 7$: ENDERR 6 : FLAG END OF REPORTING BUFFER 
001416 101200 000006 002357 BIS #6, ERRPOS : SET THE POSITION 
48 001421 001453 BR SNDEXT 
49 001422 114002 2$: CLR R2 : FLAG AS NO ERROR OCCURED 
50 001423 106637 000002 CMP 2(R3) RO : SEE IF COMMAND ACCEPTED 
51 001425 011453 BEQ SNDEXT > IF SO, BRANCH 
52 001426 HARDER i. ; REPORT 
001426 104200 007746 001012 MOV #ER76,0UT.04 
001431 104200 000114 001010 MOV #76,0UT.02 
001434 101200 001000 001010 BIS HERHARD ,OUT.02 
001437 104200 001437 001007 MOV #.,0UT.01 
001442 104202 000014 MOV HERRMC .R2 
001444 104020 001006 MOV R2,0UT .ROQ 
53 001446 CERROR 6,RO : REPORT FURTHER ERRORS 
001446 104070 001014 MOV RO,OUT.06 
54 001450 104200 100007 002357 MOV #100007,ERRPOS ; FLAG AS STATUS GOOD 
55 001453 SNDEXT: POP RG : RESTORE RS 
001453 104264 MOV (SP)+,R4 


56 001454 000000 RETURN 





pr 
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SDI PROTOCOL MESSAGE TABLES 


MEW 


001455 
001455 001550 
000002 
001457 001570 
000007 
001461 000176 
001462 001546 
001463 000003 
001464 001570 


001465 000007 
001466 000176 


001467 001552 


oO 
So 
Oo 
= 
= 
Oo 
~m 


N 
So 
oO 
per 
* 
Oo 
N 


oo 
So 
oO 
— 
y 
* 


601500 000167 
001501 001555 


Ye) 
Oo 
oO 
= 
Leal 
oO 
par 


0015 07 

001505 000366 
10 001506 

001506 001560 


001512 000176 

11 001513 
001566 
4 000002 
5 001570 
6 000007 
001517 000176 


12 001520 
001520 001564 
000002 


001524 
13 001525 
001525 001544 
001526 000002 
001527 00157C 
001530 000007 


-SBTTL 


pte 
CR.MOD: 
CR.GCR: 
CR.SCR: 
CR.GST: 
CR.SEK: 
CR.ONL: 
CR.ERR: 


CR.DIS: M 





SDI PROTOCOL MESSAGE TABLES 


MESSAGE TABLES 
MSG DRC,2,ST,7,COMPLT 
-WORD DRC 


“WORD C 
.WORD M 


° LT 
MSG goren -ST,11.,CHRRES 


. WORD CHAR 
«WORD §$ 


- WORD rin 
.WORD GST 
- WO 


- WORD sa 


WORD C 
MSG ONL. a ST, 7,COMPLT 
«WORD ON 


. WORD ie 
-WORD ST 


. WORD 

«WORD C 
MSG ee ms ST. 7,COMPLT 
-WORD E 


ago bis 


; DRIVE CLEAR 
sADDRESS OF COMMAND 
:SIZE OF Bey IN BYTES 
DDRESS OF REPLY 
;SIZE OF "REPLY IN WORDS 
3 SUCCESSFUL COMPLETION 
; CHANGE MODE 
ADDRESS OF COMMAND 
3S1ZE OF COMMAND IN BYTES 
sADDRESS OF REPLY 
:SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION 
; GET CHARACTERISTICS 
zsADDRESS OF COMMAND 
:SIZE OF COMMAND IN BYTES 
sADDRESS OF REPLY 
:SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION 
; GET SUBUNIT CHARACTERISTICS 


:SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION 
; GET STATUS 
sADDRESS OF COMMAND 
:SIZE OF COMMAND IN BYTES 
zADDRESS OF REPLY 
:SIZE OF REPLY IN WORDS 
; SUCCESSFUL COMPLETION 
: INITIATE SEEK 
ADDRESS OF COMMAND 
;SIZE OF COMMAND IN BYTES 
zsADDRESS OF REPLY 
SIZE OF hy +} IN WORDS 
get COMPLETION 
; BRING bRIVE ONL INE 
RESS OF COMMAND 
;SIZE OF COMMAND IN BYTES 
;ADDRESS OF REPLY 
;SIZE OF REPLY IN WORDS 
: oa Sal COMPLETION 
; ERROR RECOV ERY 
ADDRESS OF COMMAND 
;SIZE OF _ COMMAND IN BYTES 
ADDRESS i” a 
SIZE OF "REPLY IN WORDS 
SUCCESSFUL COMPLETION 
: DISCONNECT DRIVE 
ADDRESS OF COMMAND 
:SIZE OF _ COMMAND IN BYTES 
ADDRESS OF REPLY 
SIZE OF" "REPLY IN WORDS 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


————— 
i 
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Tet. PROTOCOL MESSAGE TABLES 


21 001545 
2 


40 001570 


ee Cs 


0001 7€ 


001557 
000001 
001570 
000007 
000176 


001556 
000001 


CR.RUN: 


Sis 


WORD COMPLT 
: MSG _INR,1,ST, 7, cemeLt 

«WORD INR 

WORD 1 

«WORD ST 

RD 7 

WORD COMPi_T 
MSG RUN,1,ST,7,COMPLT 
. WORD 

-WORD 1 

WORD ST 

«WORD 7 

«WORD COMPLT 
LEVEL 2 COMMAND MESSAGE 
-BYTE Q,DISCON 
. WORD 

-BYTE Q,CHGMOD 
«WORD 0Q 

-BYTE Q,DRVCLR 
-WORD QO 

-BYTE 0,GETCHR 
-BYTE Q,GETSUB 
-WORD 0Q 

~BYTE Q,GETSTA 
-~BYTE 0,DRVRUN 
-BYTE Q,IRECLB 
BYTE 0O,INSEEK 
-WORD 0 

«WORD 0 

~BYTE Q,ERECOV 
-WORD 0 

BYTE O0,DRVONL 
-WORD 40 

-BLKW 19. 


SEQ 0314 


; SUCCESSFUL COMPLETION CODE 


L COMMANDS BEYOND THIS POINT ARE LONG TIMEOUT 


: INITIATE RECALIBRATE 


8 
RESS OF REPLY 
:SIZE OF "REPLY IN WORDS 
3 SUCCESSFUL COMPLETION CODE 
: INITIATE LOAD 
zADDRESS OF COMMAND 
SIZE OF _ COMMAND IN BYTES 
ADDRESS * a 
SIZE OF "REPLY IN WORDS 
; SUCCESSFUL COMPLETION CODE 


DATA STRUCTURES 


DISCONNECT DRIVE 
DO NOT SPIN DOWN DRIVE ***** 
; CHANGE MODE 

MODE 


; DRIVE CLEAR 


; GET CHARACTERISTICS WITH A 

; GET SUBUNIT CHARACTERISTICS 

; SUBUNIT SELECTION IN LOW ORDER BYTE 
; GET STATUS 

; DRIVE RUN 

; INITIATE RECALIBRATE 

; INITIATE SEEK 

; INS CYLINDER/HEAD ARGUMENTS 

; HI CYLINDER 


GROUP 
ERROR RECOVERY 


; ONLINE COMMAND 
3; MAXIMUM TIMEOUT VALUE 


sens I a 


NOW wr 


8 
— 
oO 
— 
WN 


aed od wd td sd 
AAXRAAO 
ee 
OAUESWWGN 


1624 
1625 


ee ee ee ee ee 
OONAOUSWIN—OO 
888888888833s8sss 
ie 
Ww 


20 001637 
21 


23 001644 


100462 


104267 
104261 
1046262 
000000 


BLKCHK 
000010 
000002 
mn 3$: 
000002 
177777 
000001 1$: 
es: 
4$: 


F . 
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BLKCHK = SEE IF A BLOCK WITH ERROR IS KNOWN T 


. SBTTL BLKCHK - SEE IF A BLOCK WITH ERROR IS KNOWN TO BE BAD 


BLKCHK CHECKS THE BLOCK IN U.LBN TO ASSURE THAT IT IS NOT A BAD 
BLOCK. IF SO, R2 IS RETURNED NONZERO 


PUSH <R2,R1,RO0> 3; SAVE ALL REG'S 
MOV R2,-(SP) 
MOV R1,-(SP) 
MOV RO,=(SP) 

MOV S.BADP(R4) ,R1 ; GET BAD BLOCK POINTER 

BEQ 1$ ; If NO BAD BLOCKS, BRANCH 

MOV #RW.LOW,R2 ; POINT TO LBN TO BE TESTED 

ADD RO,R2 ; POINT TO LBN TO BE TESTED 

CALL CMP2 ; COMPARE BAD vot sey TO LBN 

BEG 2$ ; IF EQUAL, BRANCH 

BMI 1$ gi? tis? GREATER THAN BLOCK, IT'S Ok 

ADD #2,R1 ; POINT TO NEXT BAD BLOCK 

MOV -i1 (R71) ,RO ; SEE IF EOL 

BPL 3$ ; IF NOT, BRANCH 

ag ae ; SET UP FOR CARRY TO BE SET (UNKNOWN BAD BLOCK) 

CLR RO ; SET UP FOR THE CARRY TO BE CLEAR (BAD BLOCK KNOWN) 

ROR RO : SET CARRY TO REFLECT KNOWLEDGE OF BAD BLOCK 

POP <RO,R1,R2> ; RESTORE 
MOV (SP)+,RO 
MOV (SP)+,R1 
MOV (SP)+,R2 

RE TURN ; RETURN TO CALLING PROGRAM 


ar 


a ——— 


001645 


104617 900001 


103207 


170000 


106627 000001 
051656 


000000 
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CMP2 = 24 BIT COMPARE 


-SBTTL 
CMP2: 


CMPEXT: 


CMP2 == 24 BIT COMPARE 


CMP2 COMPARES A 24 BIT NUMBER POINTED TO BY R2 TO A 24 BIT NUMBER 
POINTED TO BY R1. BOTH NUMBERS ARE LOW ORDER WORD FOLLOWED BY HIGH 
WORD (POINTER TO LOW WORD) AND THE HIGH 8 BITS <31:24> OF THE 

WORD POINTED TO BY R1 ARE STRIPPED OFF (THIS IS TO ELIMINATE THE 
END-OF=LIST FLAG ON THE B/E SETS AND BAD BLOCKS) 


MOV 1(R1) ,RO : MOVE HIGH ORDER es TO RO 

BIC #170000,R0 ; CLEAR UNUSED BIT 

CMP 1(R2) ,RO ; COMPARE HIGH ORDER WORRD TO RO 
BNE CMPEXT : IF UNEQUAL, BRANCH 

MOV (R1),RO ; MOVE LOW ORDER WORD TO RO 

CMP (R2) ,RO ; COMPARE LOW ORDER WORD TO RO 
RE TURN ; RETURN TO CALLING PROGRAM 


SEQ 0316 


“UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 39 
/BUILDP = BUILD THE READ OR WRITE CHAIN LINKS 


1 ,SBTIL BUILDP - BUILD THE READ OR WRITE CHAIN LINKS 
2 001657 BUILDP 

4 : BUILD THE WHOLE READ/WRITE CHAIN 

6 001657 104657 000033 MOV _U.PARM(R5),RO__: RO HAS UNIT PARAMETERS 

7 001661 104650 000017 002355 MOV —«sU.MSEC(R5) -MAXSEC ; GET NUMBER OF SECTORS TO READ/wRITE 
8 001664 102207 000200 BIT  #RBNBN,RO ; SEE IF RBN TO BE READ/WRITTEN 

9 001666 011676 BEQ 1$ : IF NOT, BRANCH 

10 001667 104650 000041 002340 MOV —-U.RBN(R5) ,CURBN : MOVE LO ORDER TO CURRENT BN 

11 001672 104650 000042 002341 MOV —«U, RBN+1(R5), CURB ; MOVE HI ORDER TO CURRENT BN 
12 001675 001704 BR 4$ 

13 001676 104650 000037 002340 1$: MOV —-J. CBN(RS) , CURBN ; MOVE LO ORDER TO CURRENT BN 
14 001701 104650 000040 002341 MOY _ULCBN+1 (RS). CURBN#1 MOVE LO ORDER TO CURRENT BN 
15 001704 104300 002473 002474 4$: MOV MEMPOL,TMEMPL ; START OF BUILD CINITILIZE MEM POOL) 
16 001707 114007 CLR — RO > FORCE THE CALCULATION TABLE TO BE FILLED 
17 001710 104070 002352 MOV —RO, CHAINS : MARK CHAIN AS EMPTY 

18 001712 022141 5$: CALL CALC ; CALCULATE CYL, TRK AND GRP 

19 001713 115002 TST —- R2 : SEE IF AN ERROR OCCURRED 
20 001714 051746 | BNE 8$ : EXIT 
21 001715 106650 000053 002344 CMP = U.CCYL(RS)CYL ; SEE IF LO CYL MATCHES 
22 001720 051745 BNE $ F NOT, BRANCH 
23 001721 106650 000054 002345 CMP «CCL #1(R5) CYL #1 ; SEE IF HI CYL MATCHES 
24 001724 051745 BNE ? ; IF NOT) BRANCH 
25 001725 106650 000055 002346 CMP U.CGRP(R5) ,GROUP- ; SEE IF GROUP MATCHES 
26 001730 051745 BNE 7$ F NOT. BRANCH 
27 001731 021747 CALL LINK > LINK THIS SECTOR INTO THE CHAIN 

28 001732 107200 000001 002355 SUB #1 ,MAXSEC > DECREMENT SECTOR COUNT 
29 001735 011745 BEQ 7$ 3: IF COUNT COMPLETE, BRANCH 

30 001736 105200 000001 002340 ADD «#1, CURBN : ADD ONE FROM LO CURRENT SECTOR 

31 001741 041712 BCC 5$ ; IF NO CARRY, BRANCH 

32 001742 115400 002341 INC CURBN+1 ; PROPOGATE CARRY 

33 001744 001712 BR 5$ > BRANCH 

34 001745 114002 7$: CLR —s Re NO ERRORS 


35 001746 000000 8$: RETURN 


RETURN TO CALLING PROGRAM 


SEQ 0317 
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LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 


ONS wr 


De ee ee 
COOWONAWSW—OOON 


001747 


001747 


002013 


104653 


000033 
002352 


000100 
000401 


062356 
000007 


002352 
100000 
170000 


000007 
100000 





.SBTTL 
NK: 


1$: 


2$: 


3$: 


4$: 


LINK = BUILD A LINK (NODE) IN THE READ/WRITE CHAIN 


LINK WILL CREATE THE LINKS FOR THE CHAIN 


MOV U.PARM(R5),R3 =; R3 HAS UNIT PARAMETERS 
MOV CHAINS ,RO ; RO POINTS TO START OF CHAIN 
2$ ; IF THE CHAIN IS ALLREADY STARTED, BRANCH 
BIT A#REDWRT ,R3 ; SEE IF READ IN PROGRESS 
1$ ; IF SO, BRANCH 
MOV AWBUF LN, RO ; RO HAS NUMBER OF WORDS IN WRITE BUFFER 
CALL ALLOCM ; ALLOCATE THE MEMORY 
MOV RO,SECPTR ; SECPTR POINTS TO WRITE BUFFER 
MOV #LINKLN,RO ; RO HAS LENGTH OF CHAIN LINK 
CALL ALLOCM MORY 
MOV a 


@ 
mn 
oO 
Bee Be Be Be Be Be Oe OS 


; ALLOCATE THE ME 
CHAINS POINTS TO FIRST LINK 
RANCH 


CALL ALLOCM 
BIC #EOC,R1 
BIS RO,R1 


ALLOCATE MEMORY FOR LINK 
CLEAR THE END-OF=CHAIN FLAG 


BR : @ 

MOV (RO) ,R1 ; R1 HAS NEXT LINK POINTER 
BIT #EOC,R1 ; SEE IF THIS LINK IS THE LAST 
BNE 3$ > SG, ANCH 

BIC #*CHBHINB,R1 ; CLEAR UNUSED BITS 

MOV R1,RO ; RO POINTS TO NEXT LINK 

BR 2$ ; LOOP 

MOV RO,R2 ; SAVE RO 

MOV #LINKLN,RO ; RO HAS LENGTH OF LINK 


PUT IN POINTER TO NEXT LINK 


MOV R1.(R2) + PUT POINTER BACK IN LAST LINK 
CALL = FILLIN > PUT ALL VALUES IN NEW LINK 
RE TURN + RETURN TO CALLING PROGRAM 


SEQ 0318 


= 


002014 


002014 
002016 
002020 


ONAN Wr 


a a ee 
NOUS WIN OO 
ooo 
oO 
~m 
oO 
Ww 
—_ 


41 002111 


104302 


002347 
000100 


122400 


002356 
013400 


000004 
100000 


000415 


000000 


000200 
020000 
140000 
060000 


002335 
000003 


FILLIN 


1$: 


2$: 


5$: 
6$: 
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IN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED I 


. SBTTL 


FILLIN = FILL THE READ/WRITE CHAIN LINK (NODE) WITH REQUIRED INFORMATION 


FILLIN BUILDS THE PARAMETERS THE UDA REQUIRES TO WRITE OR READ A BLOCK 


TRACK ,R2 
ge 26 


AWREAL ,R2 
R2,RwW.CMD(RO) 
AWSTOP,R 
SECPTR,R1 

2$ 


AMRREAL ,R2 
R2,RW. CMD (RO) 
#RSTOP,R2 

RO 


#RBUF LN RO 
ALLOCM 
RO,R1 

RO 


R2,RW. STAT (RO) 
R1,RW.BUF (RO) 
#DUMSDI ,R2 
ofp te . SDI (RO) 
R2,RW.ANG(RO) 
CURBN,R2 
f RW. Pas pt er: 
PRANBN RS 


5$ 
S.PARM(R4) ,R5 
+ ital 


6 
#HD.DBN,R2 
6$ 

#HD .RBN,R2 
HIBN,R2 
R2,RW.HI (RO) 


GET TRACK (HEAD) NUMBER 


; SEE .F READ IN PROGRESS 
BRANCH 


IF SO, 

BUILD WRITE REAL TIME COMMAND 

MOVE TO SDI REAL TIME COMMAND AREA 
MOVE LAST BLOCK FLAG TO R2 

R1 POINTS TO WRITE BUFFER 

BRANCH 


BUILD READ REAL TIME COMMAND 

MOVE TO SDI REAL TIME COMMAND AREA 
MOVE LAST BLOCK FLAG TO R2 

SAVE RO 


SIZE OF READ BUFFER 
ALLOCATE BUFFER 

R1 POINTS TO BUFFER 
RESTORE RO 


MOV RO,-(SP) 


MOV (SP)+,RO 


; MOVE LAST BLOCK FLAG TO NEXT BLOCK POINTER 
; MOVE POINTER TO SECTOR TO POINTER AREA 

; R2 POINTS TO DUMMY SDI AREA 

; MOVE R2 TO POINTER TO DUMMY SDI AREA 

; R2 CONTAINS SECTOR TO BE WRITTEN 


; MOVE TO ANGLE FROM INDEX 


; MOVE LOW ORDER 8N TO R2 

; MOVE LOW ORDER BN TO LOW EXPECTED HEADER 
; MOVE HIGH ORDER BN TO R2 

; SEE IF BN IS AN RBN 


IF SO, BRANCH 

GET SUBUNIT PARAMETERS 

SEE IF USING DIAGNOSTIC CYLINDERS 
IF NOT, BRANCH 

DIAGNOSTIC HEADER 


BRANCH 

REVECTORED HEADER 

ADD HI BN BITS 

MOVE R2 TO HI WORD EXPECTED HEADER 
RETURN TO CALLING PROGRAM 


SEQ 0319 


UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 42 SEQ 0320 
ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 


1 .SBTTL ALLOCM = ALLOCATE MEMORY FOR THE READ/WRITE BUFFERS AND CHAIN 
é 002112 ALLOCM: 

4 : ALLOCATE MEMORY FOR READ/WRITE BUFFERS 

6 002112 107070 002474 : SUB RO, TMEMPL : SUBTRACT LENGTH FROM MEMORY POOL 

7 002114 104307 002474 MOV TMEMPL , RO * RO POINTS TO MEMORY ALLOCATED 

8 002116 060000 RETURN t RETURN TO CALLING MODULE 





aed Ria namie retina hee 


[a 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 43 SEQ 0321 
BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITE 


| 
1 .SBTTL BULDUM = BUILD THE DUMMY SDI CONTROL BLOCK FOR READS AND WRITES 
| ¢ 002117 UL DUM: 
| : : BULDUM WILL BUILD THE DUMMY SDI CONTROL BLOCK 
6 002117 104643 000005 MOV S.SCHR(R4),R3 =; R3 POINTS TO SUBUNIT CHARACTERISTICS 
7 002121 104632 000004 MOV RBNTRK(R3).R2  : GET RBNS/TRACK 
8 002123 103202 177600 BIC #177600,R ; CLEAR UNUSED BITS 
9 002125 105632 000011 ADD LBNTRK (R3) . R2 _; ADD LBNS/TRACK GIVING SECTORS/TRACK 
10 002127 105022 ADD R2 : DOUBLE SECTORS/TRACK FOR HEADER COMPARE LIMIT 
11 002130 103202 177001 BIC A455001.R ; CLEAR UNUSED BITS 
12 002132 104020 002450 MOV Re. pub 12D. LIMT MOVE TO Dummy SEARCH LIMIT 
13 002134 107203 000005 SUB 5,R3 : R3 POINTS TO SUB CHAR = 5 
14 002136 104030 002451 MOV R3. DUMSDI+D.SCHR™ - MOVE TO DUMMY SUB CHAR POINTER 
15 002140 000000 RE TURN : RETURN TO CALLING PROGRAM 








= ! 


a 





UDATS DISK EXERCISER MACRO X04.00 9=JUL=-81 01:12:03 PAGE 44 SEQ 0322 
CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 

1 -SBTTL CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 

‘ 002141 CALC: 

: z CALC CALCULATES THE CYLINDER, GROUP, TRACK AND SECTOR OF THE BLOCK 
6 002141 115007 TST RO ; SEE IF CALCULATION AREA MUST BE SET UP 

7 002142 052261 BNE MOVOUT ; IF NOT, CH 

8 002143 104070 902343 MOV RO, RBNFLG - Ser RBN FLAG AS ZERO 

9 002145 104643 000005 MOV S.SCHR(R4) ,R3 ; R3 POINTS TO SUBUNIT'S CHARACTERISTICS 

10 002147 104647 000000 MOV S.PARM(R4) ,RO ; GET SUBUNIT PARAMETERS 

11 002151 102207 020000 BIT ADCYLS,RO ; SEE IF USING THE DIAGNOSTIC CYLINDERS 

12 002153 052224 BNE MOVDBN ; IF SO, BRANCH 

13 002154 104637 000011 MOV LBNTRK(R3),RO  : MOVE LBN'S PER TRACK TO RO 

14 002156 103207 177400 BIC MHIBYTE,RO ; CLEAR UNUSED BITS 

15 21 104651 000033 MOV U.PARM(RS) ,R1 : MOVE UNIT PARAMETERS TO RO 

16 002162 102201 000200 BIT A#RBNBN ,R1 ; SEE IF BLOCK REVECTORED 

17 0021 012202 BEQ LNCYL ; IF NOT, BRANCH 

18 00216 104070 002343 MOV RO, RBNFLG ; STORE LBN'S PER TRACK IN RBN FLAG AREA 

19 002167 104637 000004 MOV RBNTRK (R3) ,RO ; MOVE RBN‘S PER TRACK TO RO 

20 002171 103207 177600 BIC #177600,RO0 ; CLEAR THE HIGHER BITS, LEAVING RBN‘S/TRACK 
21 002173 104070 002342 MOV RO,LRDTRK ; MOVE RBN'S PER TRACK To CALCULATION AREA 
22 002175 104637 0003 MOV HIRBN(R3) ,RO ; GET HI RBN 
23 002177 103207 170377 BIC #HBLONB , ; CLEAR UNUSED BITS 
24 002201 2210 BR LNCONT ; BRANCH 
25 002202 104070 002342 LNCYL: MOV RO, LADTRK ; MOVE LBN'S PER TRACK TO CALCULATION AREA 
26 002204 637 000002 MOV HILBN(R3),RO : GET HI LBN 
27 0022 103207 170377 BIC #HBLONB ,RO ; CLEAR UNUSED BITS 

28 002210 104070 002335 LNCONT: MOV RO,HIBN 3; SAVE 
29 002212 114007 CLR RO ; LOW ORDER CYLINDER IS ZERO 

30 002213 104070 002336 MOV RO, STACYL ; SAVE LO ORDER STARTING CYLINDER 

31 002215 104637 000001 MOV HICYL(R3),RO ; RO CONTAINS HI CYLINDER BITS 

32 002217 103207 007777 BIC #HBHINB, RO ; CLEAR UNUSED BITS 

33 002221 104070 002337 MOV RO, STACYL+#1 ; MOVE HI STARTING CYLINDER TO UNIT PARAMETERS 
34 002223 002261 BR mMOVOUT ; BRANCH 

35 002224 104637 000004 MOVDBN: MOV RONTRK(R3) . RO ; MOVE NUMBER OF RBN'S PER TRACK TO RO 

36 002226 103207 177600 BIC #177600,RO- ; CLEAR THE HIGHER BITS, LEAVING RBN'S/TRACK 
37 002230 104631 000011 MOV LBNTRK(R3), R1 ; ADD LBN'S/TRK, GIVING DBN'S/TRK 

38 002232 103201 177400 BIC #HIBYTE,R1 ; CLEAR UNUSED BITS 

39 002234 105017 ADD R1,R0 ; ADD LBNS/TRK TO RBNS/TRK TO GIVE DBNS/TRK 
40 002235 104070 002342 MOV RO, LRDTRK : SAVE DBNS/TRK IN COMPUTATIONAL AREA 

41 0022 647 000001 MOV $. SDCL(R4), RO ; GET LO ORDER STARTING DIAGNOSTIC CYLINDER 
42 002241 104070 002336 MOV RO,STACYL ; SAVE LO ORDER CYL 
43 002243 104647 000002 MOV 5. SCL #1 (RG). RO ; GET HI ORDER STARTING DIAGNOSTIC CYLINDER 
44 002245 104070 002337 MOV RO, STACYL+1 3 SAVE HI ORDER CYL 
45 002247 104637 000003 MOV HIDBN(R3) ,RO ; GET HI DBN 
46 00225 110607 ROR RO ; ROTATE TO CORRECT POSITION 
47 002252 110607 ROR RO ; ROTATE TO CORRECT POSITION 
48 002253 110607 ROR RO ; ROTATE TO CORRECT POSITION 
49 002254 10607 ROR : ROTATE TO CORRECT POSITION 

50 002255 103207 170377 BIC #HBLONB , RO ; CLEAR UNUSED BITS 

51 002257 104070 002335 MOV RO,HIBN : SAVE 

52 002261 104207 002336 MOVOUT: MOV #CAL CSC,RO ; POINT TG CALCULATION AREA 

53 002263 104641 MOV Si SCHR(R) , R1 ; POINT TO SUBUNIT CHAR TABLE 

54 002265 060020 XFC CvT 3; CALCULATE 

55 002266 104012 MOV + ge : SEE IF CORRECTLY CALCULATED 

56 002267 012334 BEQ ; IF CORRECT, BRANCH 

57 002270 SOF TER st StUnOM, CURBN+1,LRDTRK, RBNF |.G> 





UDAT4 DISK EXERCISER MACRO X04.60 9=JUL=81 01:12:03 PAGE 44-1 SEQ 0323 
CALC = CALCULATE THE CYL, GRP AND TRACK FOR THE GIVEN L/RBN 
002270 104200 00 001012 MOV MER2 ,OUT.04 
002273 104300 002340 001013 MOV CURBN, OUT .05 
002276 104300 002341 001014 MOV CURBN+1 ,OUT.06 
002301 104300 002342 1015 MOV LRDTRK ,OUT.07 
002304 104300 002343 001016 MOV RBNFLG,OUT.08 
002307 104200 000002 1010 MOV #2,0UT.0 
002312 101200 001400 001010 BIS MERSOFT ,OUT.02 
002315 104200 002315 001007 MOV #.,OUT.01 
002320 104202 000013 MOV MERRMES ,R2 
002322 104020 001006 MOV R2,0UT.RQ 
58 002324 ERRORC <STACYL,STACYL+1> ; REPORT ERROR 
002324 104300 002336 001017 MOV STACYL ,OUT.09 
002327 104300 002337 001020 MOV STACYL+1,0UT.10 
59 002332 ENDERR 0 
002332 114000 002357 ERRPOS ; CLEAR THE POSITION 


CLR. 
60 002334 000000 CLXEXT: RETURN : RETURN TO CALLING PROGRAM 


oc | 





Nt 


[=] 
Nm 
Ww 
W 
Ww 


0 
2342 


rmronronrora 
W 
> 
oO 


ft 2 SH SS 
SUWONAUSWN—ODONAUE WH 


2 

23 ate 
24 002361 
25 002362 
26 002363 


31 002364 
32 002365 
i 002366 


36 002367 


57 002415 


000000 
000000 


043220 


000000 
000000 
000000 
010214 


000000 
000003 


.SBTTL 
HIBN: 


CALCSC: 
STACYL: . 
RBN: 


CHAINS: 
SECMAX: . 
CHNMAX: . 
MAXSEC: . 
SECPTR: 


ERRPOS : 
OTABLE: 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 45 
STORAGE AREA PATTERNS, DUMMY SDI AREA, OVERLAY INFORMATION AND 


SEQ 0324 


ey eg PATTERNS, DUMMY SDI AREA, OVERLAY ph enapessoney AND MORE 


—  — | NY = NYA) 


ooo oO — 


OVL .MS*4 
3 
0 
0 
OVL.ST*4 
0 
0 


0 
OVL.OP*4 
OVL.ST*4 


1 
0 
0 
OVL.SK*4 


VL.TS*4 


oOoococor 


= oO 
<= 
<= 
ww] o 
wn DD 
+. =. 
a 
> 


GVL.w*4 
MAXDST 
OVL.R*4 
MAXDST 


° 
’ 
. 
° 
° 

© 
_ 
° 
° 
° 
e 


HI BN BITS <27 


; CALCULATION AREA FOR CYL, GRP, TRK 
; STARTING CYLINDER NUMBER 

; L/R/DBN 

; = AA op PER TRACK 

; RBN FLAG 


CYLINDER 
GROUP 


; TRACK 
; SECTOR 
; INDEX 


READ/WRITE CHAIN HEADER 

MAXIMUM NUMBER OF BUFFERS THAT ACN BE READ 
MAXIMUM NUMBER OF BUFFERS THAT CAN BE WRITTEN 
MAXIMUM NUMBER OF SECTORS THIS PASS 

SECTOR POINTER FOR WRITE 

RTDS AND STATUS POSITION 


OVERLAY TABLE 


SETUP MODULE OVERLAY INFORMATION 


OPERATION MODULE OVERLAY INFORMATION 


; SEEK MODULE OVERLAY INFORMATION 


SEEK COMPLETE MODULE OVERLAY INFORMATION 


READ/WRITE SETUP OVERLAY INFORMATION 


WRITE OVERLAY INFORMATION 


; READ OVERLAY INFORMATION 


; DATA CHECK MODULE OVERLAY INFORMATION 


_- am 


————— —_ 


“UDATG DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 45-1 SEQ 0325 
| STORAGE AREA PATTERNS, DUMMY SDI AREA, OVERLAY INFORMATION AND 
} 
58 002416 000000 .WORD 0 
| §9 002617 005460 “WORD  OVL.CK*4 

60 002420 000000 "WORD 0 ; REVECTOR MODULE OVERLAY INFORMATION 
| 61 002421 000 “WORD  MAXDST : 
| 62 002422 900000 “WORD 0 
| 63. 002623 003110 "WORD OVL.RV*4 

64 002424 900000 “WORD 0 

65 002425 000003 -WORD MAXDST ; RECALIBRATION MODULE INFORMATION 

66 002426 090000 “WORD 0 

67 002427 000260 “WORD OVL.RB*4 

68 000012 NUMOVL = <. - OTABLE> / 4 

69 002430 177777 PTABLE: .WORD -1 ; PAGE TABLE 

70 002431 004515 WORD  AREAO 

71 002432 177777 WORD - 

72 002433 00656 WORD AREA1 

73 002434 177777 WORD - 

74 002435 007025 WORD  AREA2 

75 002436 177777 “WORD = 

76 002437 007300 “WORD AREAS 

77 000003 MAXDST = <. - PTABLE> / 2 - 1 

78 002440 000000 PNUM: . WORD ; PATTERN NUMBER STORAGE AREA FOR ERRORS 

79 002441 000000 LBNHLD: [WORD 0 : TEMPORARY STORAGE FOR LBN 

80 002442 000000 "WORD 

81 002443 000000 ERRCNT: .WORD 0 ; ERROR COUNT LOCATION 

82 002444 000000 -M.PARM: WORD 0 : MASTER PARAMETERS 

83 002445 000000 LOSEED: .WORD 0 ; LO ORDER RANDOM NUMBER 

84 002446 000000 HISEED: .WORD 0 ; HI ORDER RANDOM NUMBER 

85 002447 DUMSDI: :BLKW 18. ; DUMMY SDI AREA 

86 002471 002443 . WORD DUMSD 1-4 POINTER FOR LBN REVECTOR INFORMATION 

87 : BELEIVE IT OR NOT, THIS WILL WRITE THE REVECTORED LBN 

88 : IN LOCATIONS DUMSD1+8 AND DUMSDI+9 

89 3 EG. DUMSDI+18. POINTS TO | SHORT OF WHERE TO PUT THE 

90 ; REVECTOR INFORMATI 

4 002472 000000 DROPSU: .WORD 0 ; DROP SUBUNIT FLAG 

93 002473 010000 MEMPOL: .WORD HIMEM ; MEMORY POOL FOR UNIT DATASTRUCTURES 

94 002474 : TMEMPL: .~BLKW 1 : TEMPORARY MEMORY POOL FOR READ/WRITE 

95 002475 002515 PATPTR: .WORD PATO : POINTERS TO DATA PATTERNS 

96 002476 002536 "WORD PATI 

97 002477 002540 “WORD PAT2 

98 092500 002542 “WORD PATS 

99 002501 002544 "WORD PATS 

100 002502 002565 "WORD PATS 

101 002503 002606 "WORD  PAT6 

162 002504 002627 “WORD PAT? 

103 002505 002631 "WORD PAT 

104 002506 002652 “WORD PATS 

105 002507 002654 "WORD PAT10 

106 002510 002675 "WORD PAT11 

107 002511 002677 "WORD PAT12 

108 002512 002720 “WORD PAT13 

109 002513 002741 "WORD PAT14 

110 002514 002745 "WORD  PAT15 

4 s THE DATA PATTERNS (LENGTH OF PATTERN IN WORDS, FOLLOWED BY PATTERN) 

114 002515 000001 PATO: . WORD 1 ; USER DEF INEABLE PATTERN 
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UDATG DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 45 


45-2 SEQ 0326 
| STORAGE AREA PATTERNS, DUMMY SDI AREA, OVERLAY INFORMATION AND 


g 
S 
ae) 
w 
N 
N 
—" 
“N 
Oo 
8 
oS 
= 
.=) 
2 
=) 
—_ 
~ 
oa 
S 
S 
Oo 


166 002601 170000 -WORD 170000 
167 002602 160000 -WORD 160000 
168 002603 140000 -WORD 140000 
169 002604 100000 

170 002605 000000 . «WO 

171 002606 000020 PAT6: .WORD 16. ; ALTERNATING ZERO WORD AND ONE WORD IN 


| 

| 115 002516 000000 WORD 0 

| 116 002517 000000 WORD 0 

/ 417 002520 000000 "WwORD O 

| 118 002521 000000 “WORD 0 

119 002522 000000 "WORD 0 

| 120 002523 000000 WORD 0 

| 127 002524 000000 "WwORD 0 

| 122 002525 000000 WORD 0 
123 002526 000 "WORD 0 
124 002527 000000 "WORD 0 
125 002530 000000 "WORD 0 
126 002531 000000 "WORD 0 
137 002532 0000 WORD 0 
128 002533 000000 woRD 0 
129 002534 00000 WORD 0 
130 002535 000000 "WORD 0 
131 002536 000001 PAT1: “WORD 1 : B'1000101110001011" 
132 002537 105613 "WORD 105613 
133 002540 000001 PAT2: :WORD 1 
134 002541 031463 "WORD 031463 : B*0011001100110011' 
135 002542 000001 PAT3: lWORD 1 ; 
136 002543 030221 "WORD 030221 
137 000020 PATS: .~ WORD 16. ; SHIFTING ONES 
138 002545 000001 "wORD 000001 

- 139 002546 000003 “WORD 000003 

140 002547 007 “WORD 000007 
141 002550 000017 “WORD 000017 
142 002551 000037 “WORD 000037 
143 000077 "WORD 000077 
144 002553 000177 “WORD 000177 
145 000377 "WORD 000377 
146 002555 000777 “WORD 000777 
147 001777 “WORD 001777 
148 002557 003777 "WORD 003777 
149 002560 007777 WORD 007777 
150 002561 017777 WORD 017777 
151 002562 037777 "WORD 037777 
152 002563 077777 “WORD 077777 
153 002564 177777 “WORD 177777 
154 002565 000020 PATS: “WORD 16, : SHIFTING ZEROS 
155 002566 177776 “WORD 177776 
156 177774 WORD 177774 
157 002570 177770 “WORD 177770 
158 002571 177760 WORD 177760 
159 002572 177740 "WORD 177740 
160 002573 177700 WORD 177700 
161 002574 177600 WORD 177600 
162 002575 177400 WORD 177400 
165 002576 177000 “WORD 177000 
165 002600 174000 “WORD 174000 


-- 


-UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 45-3 


| STORAGE AREA PATTERNS, DUMMY SDI AREA, OVERLAY INFORMATION AND 


172 002607 
173 002610 
174 SoSei3 


226 675 
227 002676 
228 002677 


06 
000020 


-WORD 000000 3 3-2-1-1-1 SEQUENCE 


“WORD 177777 
PAT?: WORD 1 ; B'1011011011011001" 
. WORD 133331 
PAT8: :WORD 16, ; B'0101010101010101" AND 
“WORD 052525 = B*1010101010101010° 
«WORD 052525 : IN 3=-2-1-1=-1 SEQURNCE 
“WORD 052525 
“WORD 125252 
“WORD 125252 
“WORD 125252 
“WORD 052525 
“WORD 052525 
“WORD 125252 
“WORD 125252 
“WORD 052525 
“WORD 125252 
“WORD 052525 
“WORD 125252 
“WORD 052525 
“WORD 125252 
PAT9: :WORD 1 ; B'1101101101101100" 
“WORD 155554 
PATI0: [WORD 16, ; B'0010110100101101" AND 
[WORD 026455 > B'1101001011010010" 
“WORD 026455 > IN 3-2=1-1-1 SEQUENCE 
WORD 026455 
WORD 151322 
“WORD 151322 
. WORD 151322 
“WORD 026455 
“WORD 026455 
“WORD 151322 
“WORD 151322 
“WORD 026455 
“WORD 151322 
“WORD 026455 
WORD 151322 
“WORD 026455 
“WORD 151322 
PAT11: .WORD 1 ; B°0110110110110110° 
“WORD 066666 
PAT12: WORD 16. ; RIPLE ONE 


SEQ 0327 


c-- - — _-——— - —— —_-__— —_—— —- -_— 
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| YOATS DISK EXERCISER MACRO 04.00 9=JUL=81 01:12:03 PAGE 45-4 SEQ 0328 
p STORAGE AREA PATTERNS, DUMMY SD! AREA, OVERLAY INFORMATION AND 


229 002700 000001 WORD 000001 
230 002701 000002 “WORD 000002 
231 002702 000004 “WORD 000004 
232 002703 000010 “wORD 000010 
233 002704 000020 “WORD 000020 
234 002705 000040 “wORD 000040 
235 002706 000100 “wORD 000100 
236 002707 000200 “WORD 000200 
| 237 002710 000400 “WORD 000400 
| 238 002711 001000 “wORD 001000 
239 002712 002000 “WORD 002000 
| 240 002713 004000 “WORD 004000 
241 002714 010000 “WORD 010000 
242 002715 020000 “wORD 020000 
243 002716 040000 “WORD 040000 
244 002717 100000 “WORD 100000 
245 002720 000020 PAT13: WORD 16. ; RIPLE ZERO 
246 002721 177776 “WORD 177776 
247 002722 177775 WORD = 177775 
248 002723 177773 “wORD 177773 
249 002724 177767 “WORD 177767 
250 002725 177757 “WORD 177757 
251 002726 177737 “WORD 177737 
252 177677 “WORD 177677 
253 002730 177577 “WORD 177577 
254 002731 177377 “WORD 177377 
255 002732 176777 “WORD 176777 
256 175777 “WORD © 175777 
257 002734 173777 “WORD 173777 
258 002735 167777 “WORD 167777 
259 157777 “WORD 157777 
260 002737 137777 “WORD 137777 
261 002740 077777 “WORD 077777 
262 002741 000003 PAT14: :WORD 3 : B'1101101101107101' 
263 002742 155555 “WORD 155555 ; B*1011011011011011' 
264 002743 133333 “WORD 133333 > B'1101101101101101' 
265 002744 155555 “WORD 155555 > REPEATED 
266 002745 000020 PATIS: ‘WORD 16. > B'1011011011011001' 
267 002746 133331 “WORD 133331 > B'1101101101101100' 
268 002747 133331 “WORD 133331 > IN 3-2-1-1-1 SEQUENCE 
269 002750 133331 “WORD 133331 
270 002751 155554 “WORD 155554 
271 002752 155554 “WORD 155554 
272 002753 155554 “WORD 155554 
273 002754 133331 “WORD = 133331 
274 002755 133331 “WORD 133331 
275 002756 155554 “WORD 155554 
276 002757 155554 WORD 155554 
277 002760 133331 “WORD 133331 
278 002761 155554 “WORD 155554 
279 002762 133331 “WORD © 133331 
280 002763 155554 “WORD 155554 
281 002764 133331 “WORD = 133331 
282 002765 155554 . WORD 155554 


DanC 


UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 46 
ROOT = MAIN DRIVING MODULE OF TEST 4 


we Se es SS SH SS 


ODOWNAUEW—ODOONAMNE WR 
Oo 


5 
002776 


002777 


103200 
104200 


060021 
003002 


007717 


000000 
000033 


002444 
040000 


000004 
002444 
100000 
010611 


000047 
000034 


001007 
000015 


000016 


002444 
001010 


. SBTTL 
$DIAG$ 


$$DIAG: 


ROOT: 


ROOTLP: 


1$: 


NOUNIT: 


1$: 


ROTEXT: 


ROOT 


G 10 


SEQ 0329 

- MAIN DRIVING MODULE OF TEST 4 

0 3; SET UP DIAG MODULE 

0 ; SETUP MODULE BREAKPOINT 

0 ; SEEK MODULE 

0 ; SEEK TEST 

0 ; READ/WRITE SETUP 

0 ; WRITE 

0 ; READ 

0 ; CHECK ECC AND DATA 

0 ; REVECTOR 

0 ; RECALIBRATE 

#FIRSTU,R5 ; RS POINTS TO FIRST UNIT TO BE TESTED 

RO ; COUNT OF DROPPED UNITS IS SET TO ZERO 
U.NEXT(R5),R5 ; R5 POINTS TO NEXT UNIT IN CHAIN 
U.PARM(R5) ,R1 ; GET UNIT PARAMETERS 

NOUN] T ; IF UNIT DROPPED, BRANCH 

M.PARM ; SEE IF IN PROCESS OF INITIAL WRITE 

1$ : IF NOT, BRANCH 

#INITW,R1 = SEE IF “THIS UNIT IS BEING INITALLY WRITTEN 
NOUN] T 2 If WOT, ANCH 

SEQNCR 3: CALL SEQUENCER 

0 ; COUNT OF DROPPED UNITS IS SET TO ZERO 
ROTEXT ; BRANCH TO BOTTOM OF ROOT 

0 ; INCREMENT COUNT OF DROPPED UNITS 

#4 ,RO ; SEE IF FOUR (ALL) UNITS HAVE BEEN DROPPED 
ROTEXT : IF NOT, BRANCH 

M.PARM ; SEE IF INITIAL WRITE WAS IN PROGRESS 

; IF NOT, BRANCH 


1$ 
cscs tear 


ROOTLP 


CLEAR INITIAL WRITE BIT 
REPORT ALL INITIAL WRITES COMPLETE 
MOV T.02 


AMS2 ,OU 


MOv RO,-(SP) 
MOV R1,-(SP) 
MOV #U.SNUM,R1 
ADD R5,R1 
ADD U.SUBU(R5) ,R1 
MOV (R1) ,OUT.01 


MOV #MESSAG,RO 
CALL HOSTRQ 
MOV (SP)+,R1 


MOV (SP)+,RO 
3; START UNIT COUNT AT ZERO 
; NOW START TESTING 
MOVE DONE OP CODE TO HOST COMMUNICATION AREA 
SENT DONE MESSAGE TO HOST 
EXIT DIAGNOSTIC MACHINE MODE 
; BRANCH TO TOP OF ROOT 


H 10 
UDATS DISK EXERCISER MACRO x04, Fee —— 01:12:03 PAGE 47 SEQ 0330 
~SEQNCR = MODULE SEQUENCER FOR TES 


-SBTTL SEQNCR = MODULE SEQUENCER FOR TEST 4 
003062 ONCR: 


: SEQUENCER CALLS THE VARIOUS MODULES, USING THE ADDRESS RETURNED 

5 IN RO BY THE PREVIOUS MODULE. RO HOLDS THE NEXT ADDRESS TO VECTOR 
; TO. IF R17 IS ZERO, AN IMMIDATE CALL IS MADE TO THE NEXT ROUTINE. 

: IF R2 IS NONZERO, AN ERROR WAS ENCOUNTERED, AND THE ERROR COUNT IS 
; INCREMENTED. THE ERROR IS THEN REPORTED TO THE HOST. 


104657 000010 MOV U.NFUN(R5),RO  ; LOAD RO WITH NEXT FUNCTION ADDRES 


aw) 
OUOWNAWU EWR 0 OONOA WIE wr 
oO 
oO 
3 
~ 


1 S 
1 023362 SEQLP: CALL DRPTST ; MAKE SURE AT LEAST ONE ACTIVE SUBUNIT EXISTS 
12 003065 115003 TST R3 > SEE IF ACTIVE SUBUNIT EXISTS 
13 003066 053151 BNE NOSUB : IF NOT, BRANCH 
14 003067 106207 090100 CMP #100,RO : SEE IF THE ROUTINE IS ON AN OVERLAY 
| 15 003071 073125 BMI GO4IT + IF NOT, BRANCH 
16 003072 104071 MOV RO,R1 + SAVE THE OVERLAY NUMBER 
| 17 003073 105077 ADD RO.RO > MULTIPLY THE OVERLAY NUMBER BY 4 
18 003074 105077 ADD RO-RO 
19 003075 104672 002360 MOV OTABLE(RO).R2 =; GET THE OVERLAY AREA NUMBER 
003077 105022 ADD R2,R2 : MULTIPLY THE AREA NUMBER BY 2 
21 003100 106621 002430 CMP PTABLE(R2),R1 =: SEE IF THE OVERLAY REQUESTED IS IN MEMORY 
22 003102 013123 BEQ LOADED : IF SO, BRANCH 
23 003103 023152 CALL OVRLAY : IF NOT, GET THE OVERLAY 
24 003104 100621 002430 MOV R1,PTABLE(R2) = MARK THE OVERLAY AS IN MEMORY 
25 003106 104677 002361 MOV OTABLE+1(RO),RO : GET THE NUMBER OF OVERLAY AREAS DESTROYED 
26 003110 104201 177777 MOV #-1,R1 : R1 CONTAINS THE "EMPTY AREA' FLAG 
27 003112 PUSH —R2 * SAVE R2 
003112 100462 MOV R2,-(SP) 
28 003113 117407 GONE: DEC RO : DECREMENT THE DESTROYED COUNT 
29 003114 073122 BMI PLOAD > IF ALL NECESSARY AREAS MARKED DESTROYED, BRANCH 
| 30 003115 105202 000002 ADD #2,R2 + POINT TO NEXT OVERLAY AREA 
31 003117 100621 002430 MOV R1-PTABLE(R2) = MARK AREA AS DESTROYED 
32 003121 003113 BR GONE : GO TO TOP OF LOOP | 
33 003122 PLOAD: POP RZ * RESTORE R2 
003122 104262 MOV (SP)+,R2 
34 003123 104627 002431 LOADED: MOV PTABLE+1(R2),RO ; GET OVERLAY ADDRESS 
35 003125 6041T: PUSH RO ‘ PUSH THE BRANCH ADDRESS ONTO THE STACK 
003125 100467 MOV RO, =(SP) 
36 003126 000000 RETURN : VECTOR TO MODULE 
37 003127. 114000 002472 JMPRET: CLR DROPSU t FLAG SUBUNIT AS NOT TO BE DROPPED 
38 003131 023724 CALL CORECT > CORRECT THE ERROR 
39 003132 104303 002472 MOV DROPSU,R3 : SEE IF SUBUNIT TO BE DROPPED 
40 003134 013145 BEO NOERR : IF NOT, BRANCH 
41 003135 104641 000000 MOV S.PARM(RG).R1  : GET SUBUNIT PARAMETERS 
42 003137 101201 - 100000 BIS #DROP,R1 : SET DROP BIT 
43 003141 100641 000000 . MOV R1,S. BARM(RS) : SAVE SUBUNIT PARAMETERS 
44 003143 104207 000001 MOV #SETUP, RO : SETUP WILL BE NEXT MODULE CALLED 
45 003145 115001 NOERR: TST R1 : SEE IF IMMIDATE OR DELAYED CALL 
46 003146 013064 BEQ SEQLP : IF ZERO (IMMIDATE) LOOP 
47 003147 100657 000010 MOV RO.U.NFUN(RS) =: SAVE ROUTINE ADDRESS 
48 003151 000000 NOSUB: RETURN + RETURN TO DRIVER 
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-UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 48 
OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 


013246 
104263 


— od od ot I 8) od 
WOON AUSWN—OOON 
S 
oO 
Ww 
— 

N 
Nm 


20 003206 
06 


053161 
104200 


24 003e 
25 003237 
26 003241 


002363 


140000 
002362 


004546 


000016 


OvR 


1$: 


2$: 


BRING IN THE OVERLAY 


PUSH 


PUSH 


DEC 
BNE 
DEVF TL 


RE TURN 


<R5,R0,R1,R2,R3> 


#3,R5 
OTABLE+3(RO),R1 
#177774,R1 

PTABLE+1 (R2), R3 


OTABLE+3(RO),R2 ; 
ee 


R2 
#140000,R2 


OTABLE+2(RO),RO ; 
; READ THE OVERLAY INTO UDA MEMORY 
; ADD THE ERROR ~ Fk Nis TOGE THER 


UREAD 
RO,R1 


2$ 
<R3.R2,R1,R0> 


<RO,R1,R2,R3> 


#177777 ,OUT.03 
RMES ,RO 


EX 
<R3,R2,R1,RO0,R5> 


mL OVRLAY = OVERLAY PROCESS FOR BRINGING IN OVERLAYS IF NEEDED 


; SAVE REGISTERS 
MOV R5,=(SP) 
MOV RO,=(SP) 
MOV R1,=(SP) 
MOV R2,=(SP) 


MOV R3,-(SP) 
TRY TO READ 3 TIMES 
GET THE HI ORDER BITS OF UNIBUS ADDRESS 
CLEAR UNUSED BITS 
POINT TO WHERE TO LOAD OVERLAY 
GET NUMBER OF WORDS TO TRANSFER 
ROTATE BITS TO CORRECT POSITION 


; CLEAR UNUSED BITS 


GET LO ORDER UNIBUS ADDRESS 


IF NO ERRORS, BRAN 

RESTORE THE REGISTERS 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


; SAVE THE REGISTERS 


MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
DECREMENT COUNT 
IF INCOMPLETE, BRANCH 
UNABLE TO READ FROM HOST MEMORY 
MOV #ER33,0UT.04 
MOV #33,0UT.02 
BIS #F TLDEV,OUT.02 
#. ,0UT.01 
MOV #ERRMC .R2 
MOV R2,QUT.RQ 
FLAG AS NOT ASSOCIATED WITH ANY UNIT 
ike TO REPORT ERROR 


RT 
REPORT THAT PROGRAM IS FINISHED 
REPORT 
EXIT DM 
; RESTORE THE REGISTERS 
MOV (SP)+,R5 


MOV (SP)+,R2 

MOV (SP)+,R1 

MOV (SP)+,RO 

MOV (SP)+,R5 
RETURN TO PAGE 


SEQ 0331 


“UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 4 
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9 
eeweeeeere NON-OVERLAY MODULE AFINIT = USED AFTER DRIVE IS INI 


003254 


NOUS WN HO OONA NE wr 


at es oo I 8s 


64 
18 003265 
19 66 


38 003361 


021173 


003151 


000001 
000001 


003254 
000005 
000005 


077674 
003746 


002357 
000033 
100000 
000033 


001012 


001010 
001010 
001007 


. SBTTL 
AF INIT: 


NOTE: 


NORTDS: 


BIC 
DEVFTL 


BR 
NRIDS: DEVFTL 


IERR: ENDERR 
MOV 
BIS 
MOV 
CALL 


CLR 
ATNEXT: BR 


TO BE ASSERTED. 


weeeeeenee NON-OVERLAY MODULE AFINIT = USED AFTER DRIVE IS INITILIZED 


AFTER THE DRIVE IS INITIALIZED, WAIT FOR RECEIVER READY (HOPEFULLY) 
IF IT IS NOT ASSERTED, DROP THE ENTIRE UNIT 


THIS IS A VERY UNSTRUCTURED PIECE OF CODE == IT HAS SEVERAL 


JUMPS DIRECTLY INTO SEQNCR AT SEVERAL 


RTDS 

R2 

NORTDS 
A#RCVRDY,R1 
NORTDS 
ASETUP,RO 

R1 

R2 

ATNEXT 

#AF INIT,RO 
R1,R 

5 Pah 
R1,U. TIMO(RS5) 
ATNEXT 

R2 


NRTDS 
#077674 ,R3 
28,R3 


IERR 


0 


U.PARM(R5) ,R1 
#DROP ,R1 
R1,U.PARM(R5) 
~ ieee 


0 
NOSUB 


DIFFERENT PLACES. 


GET REAL TIME DRIVE STATE 

SEE _IF ERROR DURING STATE INTERROGATION 
IF ERROR, BRANCH 

SEE IF RECIEVER READY IS ASSERTED 

IF SO, BRAN 


SETUP IS NEXT MODULE CALLED 
IMMIDATE CALL TO SETUP 

NO ERRORS 

BRANCH TO EXIT 

AFINIT IS NEXT ROUTINE CALLED 
SAVE REAL TIME DRIVE STATE 
GET TIMEOUT VALUE 

DECREMENT TIMEOUT VALUE 
SAVE TIMEOUT VALUE 

BRANCH TO SEQUENCER LOOP 
SEE IF NO REAL TIME STATE 


IF SO, BRANCH 
CLEAR UNUSED BITS 
; RECIEVER READY WAS NEVER ASSERTED 

MOV #ERZ8,0UT.04 
MOV 83 OUT 0s 
MOV #28,0UT.02 
BIS #F TLDEV,OUT.02 
MOV #.,0UT.01 
MOV #ERRMC .R2 
MOV R2,0UT.RQ 

BRANCH 

REPORT UNABLE TO GET REAL TIME DRIVE STATUS 
MOV #ER29,0UT.04 
MOV #29 ,0UT.02 
BIS #FTLDEV,OUT.02 
MOV #.,0UT.01 
MOV #ERRMC ,R2 
MOV R2,0UT.RQ 

DON'T REPORT STATUS OR STATE 
CLR ERRPOS 3 


GET DRIVE PARAMETERS 

FLAG DRIVE AS DROPPED 

SAVE DRIVE STATE 

REPORT ERROR 

RO IS NOT ‘AFINIT*S ADDRESS FOR ‘TROOT" 
BRANCH TO SEQUENCER LOOP 


SEQ 0332 


CLEAR THE POSITION 


ee 





aS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 7 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


‘alah DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 





003362 


003362 
003362 
003363 104657 000033 
003365 001000 


003367 
003370 101207 024000 


1 7 
Betas 104207 000001 


ty 3S 
SCVWOONAUSWN$O OONAUF Wr 

— 

Oo 

™m 

nN 

Oo 

N 


0 
00652 000021 
00652 000016 


4 003406 100652 000020 


| 

| 

24 003412 104633 000000 
26 003415 115000 002444 
27 003417 0 0 
28 003420 102203 040000 

0034 

31 003424 106202 000003 
2 0034 
34 003430 100652 000034 


37 003434 105204 000001 
0034 


000001 
44 003445 105654 000034 
000000 
004000 


50 003456 100652 000021 
1 003460 000016 


5 0034 040000 
56 003471 100641 000000 


DRP 


11$: 


12$: 


13$: 


1$: 


DROP TEST MAKES SURE AT LEAST ONE ACTIVE SUBUNIT IS ACTIVE ON 


K 10 


THE UNIT 


IF SO, R4& POINTS TO SUBUNIT PARAMETER BLOCK, U.SUBU IS UPDATED TO 


THE SUBUNIT OFFSET, AND R3 IS RETURNED POSITIVE. 


IF NOT, R3 IS 


RETURNED NEGATIVE AND THE ENTIRE UNIT IS DROPPED 


PUSH 


RO 


U.PARM(R5) ,RO 
A teal 


#NEWSUB ! RESEEK RO 
wE TIME !DIREC!WCHECK-RO 


RO,U.PARM(RS) 
#U. SUBP ,RO 
RS,RO 

R2 
R2,U.CSEC(RS) 
R2,U.NSEC(RS) 
R2,U.TSEC(RS) 
(RO) +,R3 

12$ 
S.PARM(R3) ,R3 
12$ 

M.PARM 

13$ 
#INITW,R3 
13$ 


R2 
#3,R2 
11$ 


4$ 
= Y * sgammninagin 


5$ 
#U. SUBP ,R4 


ao 

2 
De 
2D 


Be Be Se Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Fe Be Fe Be Be Be Be Be Be Be Be * 


; SAVE NEXT MODULE ADDRESS 


MOV RO,-(SP) 


; GET UNIT PARAMETERS 


SEE IF FIRST TIME THROUGH 

F NOT, BRANCH 

: IF FIRST TIME, FORCE A SEEK, NEW SUBUNIT 
NO LONGER FIRST TIME, SET DIRECTION UP 


RO WILL POINT AT SUBUNIT POINTERS 
RO POINTS AT SUBUNIT POINTERS 
TO 4 SUBUNITS ON THIS UNIT 


UP 
; ZERO ALL TRACK COUNTS SO THE TEST AT THE 
; BEGINNING OF SETUP IS SATISIFIED SO CONTROL 
; DROPS THROUGH TO SETUP THE NEXT OPERATION 


IF NO SUBUNIT, BRANCH 

GET UNIT PARAMETERS 

IF DROPPED, BRANCH 

SEE IF INTE IAL WRITE IN PROGRESS 


IF NOT, BRANCH 
SEE IF THIS SUBUNIT IS TO BE INITIALLY WRITTEN 
IF SO, BRANCH 

INCREMENT COUNT 

SEE IF COUNT EXHAUSTED 

IF NOT, CH 

IF SO, DROP ENTIRE UNIT 

SAVE SUBUNIT OFFSET 

MOVE TO _e REGISTER 


UBUNIT 
SET WRITE PROTECT IF REQUESTED 
ee THIS UNIT 


EXI 

R4 WILL POINT AT SUBUNIT POINTERS 

R4 POINTS TO SUBUNIT POINTERS 

R4 POINTS AT SPECIFIC SUBUNIT POINTER 

R4 POINTS AT SUBUNIT PARAMETERS 

GET UNIT PARAMETERS 

SEE IF SUPPOSED TO GO TO NEXT SUBUNIT 

IF NOT, BRANCH 

FOR CEARING FOLLOWING WORDS 

ZERO ALL TRACK COUNTS SO THE TEST AT THE 
BEGINNING OF SETUP IS gt yd SO Coste 
DROPS THROUGH TO SETUP THE NEXT OPERATION 
SEE IF INITIAL WRITE IS IN PROGRESS 

IF NOT, BRANCH 

CLEAR INITIAL WRITE BIT 
SAVE 


SEQ 0333 





UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 as ai 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UN 


57 003473 
003473 


561 
88 003562 


010573 001010 


000047 
000034 


001007 
000015 


000034 


100000 
040100 


000034 
010000 


000033 
100000 
000033 


6$: 


2$: 


10$: 


3$: 


4$: 


5$: 


MSSG 


1 


U. SUBU(R5) ,R2 
CHKUP 

5$ 

R3 

A#DROP ,R1 


AMSEQSEK! INITW,R1 
10$ 


RND SUB 
5 


$ 
U. SUBU(R5) ,R2 
‘eect 


CHKUP 
RO 


5$ 
U.PARM(R5) ,R3 
#DROP ,R3 
R3,U.PARM(R5) 
RO 


Se Be Be Be Be Be Be Be Be 


SEQ 0334 
REPORT INITIAL WRITE COMPLETE 
MOV #MS1,0UT.02 
MOV RO,=(SP) 
MOV R1,=(SP) 
MOV #U.SNUM,R1 


R5,R1 
ADD U. SUBU(R5) ,R1 
MOV (R1) ,OUT.01 
MOV AME SSAG ,RO 
HOSTRQ 
MOV (SP)+,R1 
MOV (SP)+,RO 
GET ACTIVE SUBUNIT POINT 


ER 
SEE IF ANY MORE UNITS TO INITIAL WRITE 
BRANCH 


IF ACTIVE, FLAG TO PROCESS 
SEE IF UNIT ACTIVE 

IF ACTIVE, BRANCH 

: SEE IF SEQUENTIAL SEEKS 


R2 IS SUBUNIT NUMBER (0-3) 
7s IF GOING UP OR DOWN 


DOWN, BRANCH 
FIND NEXT UPPER SUBUNIT 
FIND ONE? 


IF SO, BRANCH 
SEARCH + ae FOR ONE 


UN 
‘ DOWN FOR SUBUNIT 
FIND ONE? 


IF SO, BRANCH 

LOOk UP FOR ONE 
FIND ONE? 

IF SO, BRANCH 

GET UNIT PARAMETERS 
DROP UNIT 


SAVE 
RESTORE RO 
RE TURN 


MOV (SP)+,RO 


UDAT4 DISK EXERCISER MACRO K04.00 9=JUL=81 01:12:03 PAGE 51 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


SEQ 0335 


; 003563 CHKDN: 
i : SEARCH THE SUBUNIT LIST DOWN AND TRY TO FIND AN ACTIVE SUBUNIT 
5 003563 104203 000001 MOV #U. SUBP ,R3 ; R3 WILLPOINT TO SUBUNIT POINTERS 
6 003565 105053 ADD 5,R3 ; R3 POINTS TO SUBUNIT POINTERS 
7 0035 117402 1$: DEC R2 : DECRCMENT OLD SUBUNIT 
8 002567 073604 BM] 2$ : IF ALL SUBUNITS CHECKED, BRANCH 
9 003570 104034 MOV R3,R4 > MOVE SUBUNIT LIST POINTER TO R4 
10 003571 105024 ADD R2,R4 : POINT TO SUSUNIT 
11 003572 104144 MOV (R4) ,R4 ; R4 POINTS TO SUBUNIT 
12 003573 073566 BMI : IF NO sna BRANCH 
13 003574 104647 000000 MOV S.PARM(R4),RO ; RO HAS SUBUNIT PARAMETERS 
14 003576 073566 BM] 1$ : if FAIS SUBUNIT DROPPED, BRANCH 
15 003577 100652 000034 MOV R2,U.SUBU(R5)  ; SAVE SUBUNIT NUMBER 
16 003601 114007 CLR RO : FOUND A SUBUNIT 
17 003602 114003 CLR R3 ; PROCESS THIS SUBUNIT 
18 003603 003613 BR 3$ : EXIT 
19 003604 104657 0033 2$: MOV U.PARM(R5),RO ; GET UNIT PARAMETERS 
20 0C 103207 010000 BIC ADIREC,RO : SET DIRECTION UP 
21 003610 100657 000033 MOV RO,U.PARM(R5) ; SAVE 
22 003612 104057 MOV R5,RO ; DIDN'T FIND A SUBUNIT 
3 RETURN ; RETURN TO CALLING PROGRAM 





WDWNAWUSWN—ODOONAMUEWH 
So 


31 003661 
32 003663 





000001 


000003 


000000 
002444 
040000 
000034 


000033 
002444 


040000 


001000 


010000 
600033 


23: 


4$: 
S$: 


UDAT4 DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 32 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


CHKUP : 


SEQ 0336 


SEARCH THE SUBUNIT LIST UP AND TRY TO FIN AN ACTIVE SUBUNIT 


MOV #U. SUBP ,R3 
ADD _ 


INC 

CMP #3,R2 

BMI 3$ 

MOV R3,R4 

ADD R2,R4 

MOV (R4) ,R4 

BMI 1$ 

MOV S.PARM(R4) ,RO 
BM] 1$ 

TST M.PARM 

BPL 2$ 

BIT #INITW,RO 
BEQ 1 

MOV R2,U. SUBU(RS) 
CLR RO 

CLR R3 

BR 


5$ 
MOV U.PARM(R5) ,R1 
M.PARM 


4$ 
BIC MINITW,R1 
BIS Stasi 


BR 

BIS ADIREC,R1 
MOV R1,U. PARM(RS) 
RETURN 


R3 WILLPOINT TO SUBUNIT POINTERS 
R3 POINTS TO SUBUNIT POINTERS 
INCRCMENT OLD SL T 


CHE 
IF ALL SUBUNITS CHECKED, BRANCH 
MOVE SUBUNIT LIST POINTER TO R4 
POINT TO SUBUNIT 
R4 POINTS TO —— 
IF NO UNIT, BRANCH 
RO HAS SUBUNIT PARAMETERS 
IF THIS SUBUNIT DROPPED, BRANC 
SEE IF INITIAL WRITE IN PROGRESS 


IF NOT, BRANCH 
SEE IF INITIAL WRITE TO BE DONE ON SUBUNIT 
IF BRANCH 


; s SUBUNIT NUMBER 


FOUND ONE 
PROCESS THIS ONE 
EXIT 


; GET UNIT PARAMETERS 
; SEE IF DOING AN INITIAL WRITE 
T, BRANCH 


IF NO 
FLAG INITIAL WRITE AS COMPLETE ON THIS UNIT 
START TESTING UNIT 


EXIT 
ae DOWN 


; RETURN TO CALLING PROGRAM 


Bi 


noc 


pea ee pe eee |e 


|UDAT4 DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 53 
DRPTST = SEE THAT AT LEAST ONE SUBUNIT IS ACTIVE ON A UNIT 


003664 RND SUB : 

; ; GET NEXT SUBUNIT TO CHECK 
| 5 003664 104207 000004 Mov #4, RO 
| 6 003666 104203 000001 MoV = MU-SUBP,R3 

? 003670 105053 ADD RAR 

8 003671 104652 000034 MOV UU, SUBU(RS),R2_—; 

§ 003673 115402 i im OR 

10 003674 106202 000003 (MP #3, R2 
11 003676 033700 BPL Ss 
12 003677 114002 . CLR Re 
13 003700 104034 28: MOV RSG 
14 003701 105024 ADD ——R2-RG 
15 104144 MOV (R4) ,R4 : 
16 003703 073707 BMI 38 
17 104641 000000 MOV S.PARM(R4) ,R1 ; 
18 00370 033720 apL aS 
19 003707 117407 33: DEC —RO 
20 003710 053673 BNE 18 
51 003711 104653 000033 MOV —-U.PARM(RS).R3_— 
32 003713 101203 100000 BIS _#DROP,R3 
53 003715 100653 000033 MOV —-R3.U.PARM(RS) 
34 003717 003723 BR 
5 003720 100652 000034 4$: MOV —R2,U. SUBUCRS) 
56 003722 114003 CLR RS 
27 003723 000000 5$: RETURN 





SEQ 0337 


RANDOML Y 


; SUBUNIT COUNT 

; R3 WILL POINT TO SUBUNIT POINTERS 
; R3 POINTS TO SUBUNIT POINTERS 

; R2 1S eat te NUMBER 


NEXT UNIT 
; SEE IF GREATER THAN 3 
IF BRANCH 


NOT, 


; NOW ON SUBUNIT 0 
; R4 POINTS TO SUBUNIT POINTERS 
; R4 NOW POINTS TO A SPECIFIC SUBUNIT POINTER 


R4 NOW POINTS TO SUBUNIT PARAMETERS 
IF NO SUBUNIT, BRANCH 
GET SUBUNIT PARAME TERS 


IF INCOMPLETE, BRANCH 
GET UNIT PARAMETERS 
SET DROP BIT 

SAVE 


EXIT 

SAVE SUBUNIT NUMBER 

TEST THIS SUBUNIT IMMIDATELY 
RETURN TO CALLING PROGRAM 


cae 


mo 


a ete Ss SS en tn 


pote DISK EXERCISER MACRO xX04.00 9=JUL=81 01:12:03 PAGE 54 
CORECT = CORRECT THE ERRORS 


1 
2 
3 
4 
5 
6 


cal cal elt anil a nil el wilt cal cell 
ODONAUSWWN-"OOON 


41 





003724 


003724 
24 


004026 
004027 


100467 
eget 


033771 


104261 
104267 
000000 


000005 


000002 


000033 
002000 


002442 


002357 


002357 
002472 


002443 
000022 


000020 
000005 


003254 
002472 


002443 


C 11 


SEQ 0338 


3-489 CORECT = CORRECT THE ERRORS 


COR ECT 


NSTATE: 


REPORT: 


RECOVE : 


COREXT: 


HNDEX: 


CORRECT THE ERRORS AND RECOVER 


PUSH 


B 
HARDER 


ENDERR 
CALL 
C 


RETURN 


<RO,R1> 


#S,ERRCNT 
R 


REPORT 
RTDS 

R2 

NSTATE 
HATIN,R1 
COREXT 
U.PARM(R5) ,R3 
ASEKINP,R3 
COREXT 

RE COVE 

if 


0 

REPERR 
ERRPOS 
DROPSU,R3 
COREXT 
ERRCNT 

RE COVE 
U.MASK(R5) ,R2 
DINIT 

#20,R2 

R2,U. TIMOCR5) 
<R1,RO> 


R2,R1 
#AF INIT. RO 


R3 
COREXT 
REPORT 
<R1,RO> 


Se 


Be Se Fe Fe Be Be Be Be Be Be Be 


SAVE RO AND R1 ' 
MOV RO,-(SP) 
MOV R1,=(SP) 

ALLOW ONLY 5 TRIES AT ERROR RECOVERY 

SEE IF REPORTING AN ERROR 

IF SO, BRANCH 

GET REAL TIME DRIVE STATE 

SEE IF AN ERROR OCCURRED 

IF SO, BRANCH 

SEE IF gy Bai IS ASSERTED 


IF 

GET UNIT PARAMETERS 

SEE IF SEEK IN PROGRESS 

IF SO, LET THE SEEK ROUTINE REPORT ATTENTION 
OTHERWISE, BRANCH 


REPORT ERROR 
MOV #ER17,0UT.04 


MOV #17,0UT.02 

BIS #ERHARD , OUT .02 
MOV #. ,OUT.01 

A as #ERRMC, a 


R2,0UT. 
DON'T TRY TO a te REAL TIME ’DRIVE STATE 
CLR ERRPOS 


REPORT THE ERROR TO THE HOST 
CLEAR ERROR POSITION FLAG 
SEE_IF MEGABIT REPORT OR UNIT IS yg BE DROPPED 
UNIT DROPPED = SKIP ERROR RECOVER 
DECREMENT THE ERROR COUNT 
BRANCH IF ERROR COUNT NON-ZERO 
GET UNIT MASK FOR INIT 
INITILIZE THE DRIVE 
TIMEOUT VALUE FOR INIT 
SAVE TIMEOUT 
DISCARD THE TOP 2 VALUES ON THE STACK 
MOV (SP)+,R1 
MOV (SP)+,RO 
MAKE R1 NON-ZERO (DEFERRED CALL) ; 
NEXT MODULE CALLED IS AFINIT 
SUBUNIT IS NOT TO BE DROPPED 
BRANCH TO EXIT 
RECOVER FROM ERRORS 
SEE IF ERROR RECOVERY COMPLETED CORRECTLY 
IF NO ERRORS, BRANCH 
IF NOT, BRANCH 
RESTORE R1, RO 


; CLEAR THE POSITION 


MOV (SP)+,R1 
MOV (SP)+,RO 
RETURN TO CALLING PROGRAM 


[owas 


' 


| 
ince DISK EXERCISER MACRO x04.00 i 01:12:03 PAGE §5 
Spee - REPORT THE ERROR TO THE H 


D 11 
SEQ 0339 


1 .SBTTL REPERR = REPORT THE ERROR TO THE HOST 
2 004030 REP ERR: 
4 : REPORT THE ERROR OR MEGABIT TRANSFER REPORT 
| 6 004030 104201 000047 MOV #U'. SNUM,R : POINT TO SUBUNIT NUMBERS 
| 7 004032 105651 000034 ADD U. sspucks). R1 = ADD OFFSET TO SUBUNIT POINTERS 
8 004034 105051 ADD R5,R1 ; POINT TO ACTUAL SUBUNIT IN USE 
9 004035 06200 000011 001043 CMP #T4MXFR,OUT.29 3 SEE If ae nh TRANSFER REPORT 
10 004040 014150 BEQ MBXFER : IF SO, BRANCH 
11 004041 104110 001011 MOV (R1),0UT.03 : SAVE IN OUTPUT AREA 
12 004043 104307 002357 MOV ERRPOS,RO ; GET ERROR POSITION 
13 004 014145 BEQ 7$ : IF NO REPORTING, BRANCH 
14 004046 103207 100000 BIC #100000,R0 > CLEAR "ALLREADY VALID’ BIT 
15 004050 105207 001006 ADD #OUT.RQ,RO ; POINT TO OUTPUT BUFFER 
16 004052 021173 CALL RTDS ; GET REAL TIME DRIVE STATE 
17 004053 115002 TST R2 + SEE IF ERROR OCCURRED 
18 004054 054060 BNE 1$ : IF $0, BRANCH 
19 006055 103201 077674 BIC #077674 ,R1 + CLEAR UNUSED BITS 
20 004057 004062 BR 2$ * BRANCH 
21 004060 104201 177777 1$: MOV #-1,R1 ; FLAG AS ERROR 
22 004062 100271 2s: MOV R1, (RO) + ; MOVE TO OUTPUT BUFFER 
23 004063 115000 002357 TST ERRPOS ; SEE IF STATUS VALID 
24 004065 074135 BMI 4$ : IF SO, BRANCH 
25 004066 PUSH —-<RO, R4> : SAVE RO 
004066 100467 MOV RO,-(SP) 
004067 100464 MOV R4,-(SP) 
26 004070 104203 001501 MOV #CR.GST,R35 : POINT TO GET STATUS COMMAND 
27 004072 104652 000022 MOV U.MASK(R5),R2 ; GET UNIT SDI SELECT MASK 
28 004074 104237 MOV (R3)+,R ; POINTS TO SDI COMMAND BUFFER 
29 004075 104231 MOV (R3)+,R1 ; LOAD BYTE COUNT 
30 004076 40004 XFC SEND ; SEND SDI COMMAND 
31 00407 115001 TST R1 ; SEE IF SDI COMMAND SENT SUCESSFULLY 
32 004100 054121 BNE 8$ : IF NOT, BRANCH 
33 004101 106203 001532 CMP #LONG,R3S = SEE IF “LONG TIMEOUT TO BE USED 
34 004103 074107 BMI 1 : IF SO, BRANCH 
35 004104 104654 000030 MOV U.SDIS(R5) RS : RS HAS SHORT TIMEOUT 
36 004106 004111 BR 22$ + BRANCH 
37 004107 104654 000031 21$: MOV U.SDIL(R5).R4 > R4 HAS LONG TIMEOUT 
38 004111 104137 22$: MOV (R3) ,RO + POINT TO RECEIVE BUFFER 
39 004112 104631 000001 MOV 1(R3),R1 ; NUMBER OF WORDS IN RESPONSE 
40 004114 060005 KFC RCV > RECEIVE SDI RESPONSE 
41 006115 115001 TST R1 + SEE IF SDI RESPONSE RECEIVED SUCESSFULLY 
42 004116 014133 BEQ 3$ : IF SO, BRANCH 
43 004117 17117404 DEC RS s DECREMENT TIMEOUT VALUE 
44 004120 054111 BNE 22$ : IF TIMEOUT UNEXPIRED, BRANCH 
45 004121 8$: POP <R4,R0> ; RESTORE R4 
004121 104264 MOV (SP)+,R4 
004122 104267 MOV (SP)+_RO 
46 004123 104203 177777 MOV #-1,R3 : R3 CONTAINS "UNABLE TO GET STATUS' 
47 004125 104202 000007 MOV #7 ,R2 + R2 CONTAINS COUNT 
48 004127 100273 6$: MOV R3,(RO)+ * VE TO OUTPUT BUFFER 
49 004130 117402 DEC R2 + DECREMENT COUNT 
50 004131 054127 BNE 6$ : IF COUNT INCOMPLETE, BRANCH 
51 004132 004145 BR 7$ * BRANCH 
52 004133 3$: POP <R4,RO> ; RESTORE R4 
004133 104264 MOV (SP)+,R4 
H 


pacnnecttaeaeetioneennicetennt ene 


: E 11 


~ | UDATS DISK EXERCISER MACRO x04.00 et 01:12:03 PAGE 55-1 SEQ 0340 
| REPERR = REPORT THE ERROR TO THE HO 
004134 104267 MOV (SP)+,RO 
53 0046135 104201 001577 4$: MOV #ST+7,R1 ; R1 POINTS TO AFTER STATUS BUFFER 
54 004137 104202 000007 MOV #7 ,Re ; R2 HAS COUNT 
55 004141 104413 5$: MOV -(R1) ,R3 ; MOVE STATUS WORD TO R3 
56 004142 100273 MOV R3,(RO)+ ; MOVE TO OUTPUT BUFFER 
57 004143 117402 DEC Re ; DECREMENT COUNT 
58 004144 054141 BNE 5$ ; BRANCH IF COUNT INCOMPLETE 
59 004145 104307 001006 7$: MOV OUT .RQ,RO ; MOVE REQUEST TO RO 
60 004147 004154 BR HRQ ; BRANCH 
61 004150 104207 000011 MBXFER: MOV ATSMXFR,RO ; MOVE MEGABIT REQUEST NUMBER TO RO 
004152 104110 001007 BHRQ: MOV (R1) ,OUT.01 ; MOVE SUBUNIT NUMBER TO OUTPUT BUFFER 
63 004154 020751 HRQ: CALL HOSTRQ ¢; INITIATE HOST INTERCHANGE 
64 004155 104300 001045 002472 MOV IN.01,DROPSU ; SEE IF SUBUNIT TO BE DROPFED 


65 004160 000000 RETURN 


| 
| 
| 
| 


ae" 


“UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 56 


/RECOVR = RECOVER FROM THE ERROR 


004161 


004161 


WEWHHODDONAUEWR—OOON ANEW 
3 
— 
™N 
oO 


Nononorunon — a 3 a 3 


054265 
104652 


oO 
7S 


See SERSRERE 


200 


— _—— ee ed td od od 


014307 
104200 


000001 


00002? 
001570 
000007 


001570 
600023 


010124 
001501 


010054 


001013 


001013 


F 11 


.SRBTTL RECOVR = RECOVER FROM THE 
ECOVR: 


BONL : 


ONL OK : 


SET UP DRIVE AS IT SHOULD 


PUSH 


ENDERR 


BEQ 
CERROR 


RO 
RTDS 
R2 


BONL 
@RCVRDY,R1 


° 
° 
° 
e 
Pi 


SEQ 0341 
ERROR 


BE 
SAVE RO 


GET REAL TIME DRIVE STATE 
i iF ERROR OCCURRED 

SO, CONTINUE (WHAT CAN I DC?) 
SEE IF RECEIVER READY ASSERTED 
IF SO, BRANCH 


MOV RO,=(SP) 


BONL 
SEE IF ON ETE mn 


oP ge ote tes 


#7,R1 


R5,R3 
MODOK 
#CR.ONL RS 
TALK 

R2 

ONL OK 

5 ASER? 
MODOKO 
#CR.GST,R3 
TALK 

R2 

GSTOK 

5 .#SERO 


ET UNIT MASK 
POINT TO RECEIVE BUFFER 
CLEAR 7 WORDS 
SET UP FOR CLEAR 
CLEAR WORD 
; DECREMENT COUNT 
IF INCOMPLETE, BRANCH 
; POINT TO RECEIVE BUFFER 
; RECEIVE A MAXIMUM UF 19 WORDS (MAX RESPONSE ) 
SEE IF OUTSTANDING RESPONSE 


; SEE IF ERROR OCCURRED 


IT*S OK, BRANCH 


ONL IF SO, 
1,<RO,ST,ST+1, S142,5T?3.ST+4, T+. ST+6> 


MER ,OUT.04 
MOV RO,OUT.05 
MOV T,QUT.06 
MOV ST+1,0UT.07 
MOV ST+2,0UT.08 
MOV ST+3,0UT.09 
MOV ST+4,0UT.10 
MOV $1*5,0UT.11 
MOV ST+6,0UT.12 
MOV #1 ,0UT.02 
BIS #ERHARD OUT .02 
MOV OUT .01 
MOV #ERRMC RO 
MOV R2,0UT.ROQ 


5,ERRPOS Z 


BIS #1 SET THE POSITION 
ort SURE ERROR IS FLAGGED 


; POINT TO ONLINE C 


COMMAND 
INITIATE SD] INTERCHANGE 
ae IF ERROR OCCURRED 


NOT, BRANCH 
REPORT SECONDARY ERROR 


MOV 
BRANCH TO ERROR LOOP 
POINT TO GET STATUS 
SEND SDI INTERCHANGE 
SEE IF AN cng A Sa 
BRANCH IF NO ERR 
REPORT SECONDARY ERROR 


#SER2 ,OUT.05 


@SERO,OUT.05 


Se 


-——— 


| UDATS DISK EXERCISER MACRO X04.00 9-JUL@81 01:12:03 PAGE 56-1 
_ RECOVR = RECOVER FROM THE ERROR 


40 004306 004365 BR MODOKO 
41 004307 024370 GSTOK: CALL CHKSTA 
42 004310 115002 TST R2 
43 004311 054365 BNE MODOKO 
44 004312 106301 001572 MOV ST+ST.ERR,R1 
45 004314 103201 177400 BIC #MHIBYTE,R1 
46 004316 104010 001551 MOV R1,DCLR 
| 47 004320 104203 001455 MOV ACR.CLR,R3 
48 004322 021204 CALL TALK 
49 004323 115002 TST R2 
50 004324 014331 BEQ CLROK 
51 004325 CERROR 5,ASER1 
| 004325 104200 010700 001013 
52 004330 004365 BR MODOKO 
53 004331 104653 000023 CLROK: MOV U.WRIT(RS) ,R3 
54 006333 101203 177406 BIS #177406,R3 
55 004335 104030 001547 MOV R3,WRITBT 
56 004337 104203 001462 MOV #CR.MOD,R3 
57 004341 021204 CALL —‘TALK 
58 004342 115002 é TST R2 
59 004343 014350 BEQ TSTRCB 
| 60 004344 CERROR 5,ASER3 
004344 104200 010146 001013 
61 004347 004365 BR MODOKO 
62 004350 104303 004367 TSTRCB: MOV RCBREQ,R3 
63 004352 014364 BEQ MODOK 
64 004353 104203 001532 MOV #CR.INR,R3 
65 004355 021204 CALL TALK 
66 004356 115002 TST R2 
67 004357 014364 BEQ MODOK 
68 004360 CERROR 5,ASER7 
004360 104200 010275 001013 
69 004363 004500 BR CHKEXT 
70 004364 114003 MODOK: CLR R3 
71 004365 MODOKO: POP RO 
004365 104267 
6 004366 000000 RETURN 
74 004367 000000 RCBREQ: .WORD 0 





; LOOP AND TRY AGAIN 
; UPDATE ALL STATUS BITS 
; SEE IF ERROR OCCURRED 


IF SO, BRANCH 


; GET ERROR BITS 


CLEAR UNUSED BITS 

; MOVE ERROR BITS TO CLEAR DRIVE COMMAND 
; POINT TO SDI COMMAND 

; INITIATE SDI_ INTERCHANGE 

; SEE IF ANY ERRORS OCCURRED 

; IF NOT, BRANCH 

; REPORT _———, ERROR 


; BRANCH TO ERROR LOOP 
; GET WRITE PROTECTION BUTTON STATUS 
; SET OTHER CHANGE MODE BITS 


ASER1,OUT.05 


O MODE 
; INITIATE SDI_ INTERCHANGE 
; SEE IF ANY ERRORS OCCURRED 


IF NOT, BRANCH 


; REPORT SECONDARY ERROR 


MOV 
; BRANCH TO ERROR LOOP 
¢ SEE i? hy 14 one REQUESTED 


A#SER3,OUT.05 


; IF NOT 


BRANCH 
; POINT TO INITIATE RECALIBRATE COMMAND 
; SEND INITIATE RECALIBRATE COMMAND 
; SEE IF ERROR OCCURRED 
; IF NOT, BRANCH 
; NOTE shesenaand™ coe 


ASER7,OUT.05 


BRANCH 
; FLAG AS ili 


RESTORE R 
RETURN TO CALLING PROGRAM 


MOV (SP)+,RO 


; RECALIBRATE REQUESTED FLAG 


SEQ 0342 
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/UDATS DISK EXERCISER MACRO K04.00 9=JUL=81 01:12:03 PAGE 57 


_CHKSTA = CHECK STATUS FOR ANY ERRORS THAT NEED RECOVERY 


004370 


004370 104207 


103307 


ee ee 


=) 
Oo 
~~ 
LS 
oO 
= 


014436 
104200 


177777 
001571 
000023 
000014 


010455 


100006 
001525 


010254 


000033 
100000 
000033 


000100 


177777 
004 367 
001571 


177417 
000000 
020000 
002444 


000032 
000023 


001013 


. SBTTL 


CHKSTA: 


. 
Sd 
° 
° 
° 


OK2DRP: 


EVRYOK: 


NORCLB: 


1$: 
2$: 


CHKEXT: 


CHKSTA = CHECK STATUS FOR ANY ERRORS THAT NEED RECOVERY 


CHECK THE STATUS OF THE DRIVE AND TAKE THE NECESSARY ACTION 
(IF THE PORT OR RUN SWITCH IS OUT, OR THE SPINDLE IS NOT READY 


DROP THE DRIVE AND DISCONNECT) 


IF RR IS SET, RECALIBRATE THE DRIVE, 


STORE THE WRITE PROTECT SWITCH SETTINGS IN U.WRIT(R5) SO CHANGE MODE 
CAN WRITE PROTECT THE SUBUNIT(S) IF REQUESTED 


V 
DEVFTL 


C 
RE TURN 


#-1,RO0 
ST+ST.STA,RO 


#ST.PS!ST.SR!ST. 


rab ee ge -ERRPOS 
ACR.DIS,R3 
TALK 

R2 

OK 2DRP 

5 ASER6 


CHKEXT 
U.PARM(R5) ,R3 
A#DROP ,R3 
R3,U.PARM(RS) 
R3,R2 


R3,RCBREQ 
sT+st. -MOD , RO 


0 

#LBHINB RO 
S.PARM(R4) ,R2 
HDCYLS,R2 

1$ 
M.PARM 


2$ 
U.WPRT(R5) ,RO 
+, he tha 


; SET UP STAT lon OF STATUS 


; SEE IF ANY FATAL STATES EXIST 


; IF NOT, BRANCH 


R2,0 
; STATUS VALID, START AT OUT.06 


> MOVE HOST REQUEST NUMBER TO RO 
+ REPORT SWITCH OUT OR SPINDLE NOT READY 


MOV #ER100,0UT.04 


MOV #100,0UT.02 
BIS #F TLDEV,OUT.02 
MOV #.,0UT.01 
MOV MERRMC ,R2 

MOV OUT.RQ 


; REPORT ERROR 
: POINT TQ DISCONNECT COMMAND 


SEND DISCONNECT COMMAND 

SEE IF ANY ERRORS OCCURRED 

IF NOT, BRANCH 

NOTE SECONDARY ERROR 
MOV ASER6,OUT.05 


; BRANCH 


; GET NEXT UNIT POINTER 

; FLAG ENTIRE UNIT AS DROPPED 

; SAVE DROP FLAG 

; FLAG AS ERROR 
BRAN 


CH 
; FLAG RECALIBRATE AS NOT REQUIRED 
; SEE IF DRIVE IS TO BE RECALIBRATED 
; IF NOT, CH 
: FLAG RECALIBRATE AS REQUESTED 
; SAVE RECALIBRATE FLAG 
; GET MODE BITS 
; MOVE WRITE nite BUTTON STATUS TO LO BYTE 


(NOT REALLY) 


CLEAR UNUSED 
GET SUBUNIT PARAMETER BITS 


; SEE IF IN DIAGNOSTIC AREA 


IF NOT, BRANCH 
SEE IF INITIAL WRITE IN PROGRESS 
IF SO, BRANCH 


SET WRITE PROT BITS FOR READ ONLY DRIVES 
SAVE WRITE PROTECT STATUS FOR CHANGE MODE 
FLAG AS _NO ERRORS 

RETURN TO CALLING PROGRAM 


SEQ 0343 
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—UDATG DISK EXERCISER MACRO xX04.00 9=JUL=81 01:12:03 PAGE 58 
eeenerenee NON-OVERLAY MODULE REDSET = READ/WRITE SETUP MODULE 


seeeeneeee NON-OVERLAY MODULE REDSET = READ/WRITE SETUP MODULE 


, 
2 004501 

3 

4 

. 

| 6 004501 104652 000026 
7 004503 100652 000024 
8 004505 104207 000004 
9 004507 114001 
10 004510 100651 000016 
11 004512 114002 
12 006513 003127 
13 004575 


A 


- SBTTL 


REDSET: 


AREAO 


SEQ 0344 


SETUP FOR THE READ ERROR RECOVERY LEVELS 


MOV U.MLEV(R5) ,R2 
MOV R2,U.ELEV(RS) 


MCV #RDWRT RO 
CLR R1 
MOV R1,U.NSEC(R5) 
CLR - R2 

R ingly 

= <<? 


GET MAXIMUM ERROR REVCOVERY LEVEL 
STORC IN CURRENT LEVEL 

RDWRT NEXT wee CALLED 

CALL IMIDIATEL 

NO SECTORES SUCCESSFULLY READ/WRITTEN 
NO ERRORS 

RETURN 10 SEQUENCER 


tal” 


(rn 


| yi 
“UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 59 SEQ 0345 
| eeweeeeeee NON-OVERLAY MODULE START = TEST 4 INITIALIZATION 


1 .SBTTL sexeeeeee® NON-OVERLAY MODULE START - TEST 4 INITIALIZATION 
2 SERA AHAAAAARAREAKAEAEKERAEA EEE EARAEREEREKERREERERAKKAEEEREKERE EEE EAE 
3 FUR AAAARARAARARAKARERAERAERAEE EERE ERREREERERERAE EEE EAR ERE ERE 
4 FERRARA AREER AAERARE TEER EERE EERE EERE AAEAE RARER EAREEER AEH E ES 
5 FERRARA RARER EEE REE EEE RRR KEE EK ERE EKA EERE EERE ERE ERE ERE EEE ERE 
6 : 
7? j 
| » : THIS ‘OVERLAY’ IS LOADED ALONG WITH THE INITIAL DOWNLINE LOAD OF 
Me : TEST 4. ONCE EXECUTED, THIS OVERLAY IS NEVER LOADED AGAIN UNLESS 
10 : THE ENTIRE TEST IS STARTED (OR RESTARTED) AGAIN. ALL OTHER 
11 : OVERLAYS ARE LOADED INTO THE SPACE THAT THIS ONE OCCUPIES INITIALLY, 
\¢ s THUS DESTROYING THIS OVERLAY. 
14 : 
15 006574 000020 UNITS: REPT 16. 
19 Son 177777 : UNITS AND THEIR SURPERVISOR NUM 
004514 177777 .~ WORD 177777 ; UNITS AND THEIR SURPERVISOR NUM 
515 177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 : UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISCR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 ; UNITS AND THEIR SURPERVISOR NUM 
177777 : UNITS AND THEIR SURPERVISOR NUM 
FIRSTU 


NOOOONOCO 





nee 


K 11 
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| waweesenee NON-OVERLAY MODULE START - TEST 4 INITIALIZATION 
{ 
| 1 006555 027467 START: CALL  GMPARM : GET MASTER PARAMETERS 
2 004556 027543 CALL -GETU + GET ALL UNITS TO TEST 
3 004557 024644 CALL _BLDUNT : BUILD UNIT AND SUBUNIT PARAMETERS 
4 004560 025527 CALL TROOT : FILL OUT UNIT AND SUBUNIT PARM'S, GET SUBUNIT CHAR 
5 004561 104307 002473 MOV MEMPOL ,RO : RO HAS POINTER TO FREE MEMORY 
6 004563 107207 006031 SUB #RUFARA, RO : SUBTRACT END OF CODE FROM FREE MEMORY 
7 004565 104073 MOV RO,R3 ; SAVE AMOUNT OF FREE MEMORY 
8 004566 114001 CLR R1 CLEAR COUNT 
9 004567 107207 000424 1$: SUB #RBUFLN+L INKLN,RO ; SUBTRACT NEEDED MEM FOR READ 
10 004571 074574 BM] 2$ ; IF NO MORE MEMORY, BRANCH 
11 0064572 115401 INC R1 > INCREMENT COUNT 
12 004573 004567 BR 1$ ; LOOP 
13 004574 104010 002353 28: MOV R1,SECMAX * SAVE IN SECTOR MAX IMUM 
14 004576 054631 BNE 3$ * IF NO ERROR, BRANCH 
15 004577 DEVFTL 32 : INSUFFICENT “MEMORY FOR READ/WRITE 
004577 104200 004444 001012 MOV #ER32,0UT.04 
004602 104200 000040 601010 MOV #32,0UT.02 
004605 101200 000400 001010 BIS #F TLDEV,OUT.02 
004610 104200 004610 001007 MOV #.,0UT.01 
004613 104202 000014 MOV HERRMC .R2 
004615 104020 001006 MOV R2,0UT.RQ 
16 004617 104200 177777 001011 MCV #177777,0UT.03 ; NOT ASSOCIATED WITH ANY UNIT 
17 006622 104207 000014 MO! HERRMC ,R : SET UP FOR REPORT 
18 004624 020751 CALL HOSTRQ ; REPORT ERROR 
19 004625 104207 000016 MOV ADONE ,RO > END TEST 
20 004627 020751 CALL HOSTRQ ; SEND END-OF-TEST TO HOST 
21 004630 060021 ee XIT + TERMINATE DM 
22 004631 114001 3$: CLR R1 * CLEAR COUNT 
23 004632 107203 000410 SUB #WBUFLN+L INKLN,RS ; SUBTRACT NEEDED MEM FOR READ 
24 004634 115401 4$: INC R1 > INCREMENT COUNT 
25 004635 107203 000007 SUB ALINKLN,R3 ; SUBTRACT LINK LENGTH FROM MEMORY 
26 004637 074641 BM] 5$ : IF MEMORY EXHAUSTED, BRANCH 
27 004640 004634 BR 4$ > LOOP 
28 004641 104010 002354 5$: MOV R1,CHNMAX : SAVE IN SECTOR MAXIMUM 


29 004643 002777 BR ROOT START EXERCISE 





| BLDUNT = BUILD THE UNIT PARAMETER BLOCK 


004644 


OCONAUSWN $0 OONANEWR 
on 
w 
Ww 
Oo 
N 
S 
N 
W 
Oo 


NMONMIND SP SS Ss 
— 


004676 104207 
23 004700 025072 


100467 


000001 


040000 
000001 
040000 
000002 
040000 
000003 
040000 
000061 
177632 


000004 


000047 
040000 
177777 


007717 
177567 
007717 


000000 
170000 
007717 
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SEQ 0347 


Ty BLDUNT = BUILD THE UNIT PARAMETER BLOCK 


ULOP: 


3$: 


2$: 


NOU: 


SUSETL: 





BLDUNT WILL BUILD THE UNIT AND SUBUNIT PARAMETERS 


#1,R2 

R2, MASK 
AMUNITS ,R4 
(R4) ,RO 
NOU 
#40000 ,RO 
3$ 

1(R4) ,RO 
#40000 ,RO 
3$ 


2(R4) RO 
#60000,RO 
3$ 


3(R4) ,RO 
teste 


NO 
#TLEN.U,RO 
GE TMEM 

RO, @LASTU 
RO,LASTU 

— * Aemaa 


° 


RO 


#U. SNUM, RO 
(R4)+,R5 
#40000,R5 
2$ 


#-1,R5 
| aaa 


#4_R 
mALTS*16., RS 


UL 
#F IRSTU,R3 
R3,@LASTU 
#F IRSTU,RO 
RO 


BLDSUS 
RO 
us NEXT(RO), gpe 


#*(HBHINB,R 
#F IRSTU,RO 


; RO WILL POINT TO SUpUNIT 


Be Be Se Be Be Be Be Be & 


PORT 1 MASK 

SAVE MASK 

POINT TO UNITS TO BE TESTED TABLE 

GE* UNIT TO BE TESTED 

IF FIRST UNIT NOT TO SE TESTED, BRANCH 
SEE IF FIRST SUBUNIT TO BE TESTED 


IF SO, BRANCH 

GET SECOND SUBUNIT INFORMATION 

SEE IF THIS SUBUNIT IS USED 

IF SO, BRANCH 

SEE IF THIRD SUBUNIT TO BE TESTED 

CHECK TESTING BIT 

IF IT IS TO BE TESTED, BRAN 

SEE IF FOURTH SUBUNIT TO ar TESTED 

TEST TESTING BIT 

IF UNIT (THE WHOLE THING) NOT TO BE TESTED, BRANCH 
RO HAS UNIT DATA STRUCTURE LENGTH 

GET MEMORY 

LINK LAST POINTER TO THIS ONE 

SAVE POINTER TO THIS ONE 

SAVE PORT SELECT MASK 

MAXIMUM OF FOUR SUBUNITS 

SAVE POINTER TO UNIT INFORMATION 

~ RO,-(SP) 


NUMBERS 
MOVE SUBUNIT NUMBER TO UNIT PARAMETERS 


; SEE IF SUBUNIT TO BE TESTED 


; IF SO, BRANCH 
FLAG SUBUNIT AS NOT Ls + 
VE TO SUBUNIT NUMBER 
DECREMENT COUNT 


; IF ALL SUBUNITS ARE FILLED IN, BRANCH 
; RESTORE RO 


MOV 
; R4 NOW POINTS BA. BEGINNING OF UNIT HANDLED 


(SP)+,RO 
UNIT PORT 


GET 
; ROTATE TO NEXT PORT 
; SAVE MASK 
; R4 POINTS TO NEXT UNIT INFORMATION 
UNITS SET UP 


SEE IF ALL 


3 
; IF ALL_UNITS NOT SETUP, BRANCH 
; COMPLETE RING 
; LAST UNIT NOW POINTS TO FIRST 
; RO POINTS TO FIRST UNIT PARAMETERS 
; SAVE POINTER TO UNIT PARAMETERS 


; BUILD SUBUNIT PARAMETERS 


MOV RO,-(SP) 


RESTORE UNIT POINTER 
MOV (SF)+,RO 


; GO TO NEXT UNIT 


CLEAR UNUSED BITS 
SEE IF THE ENTIRE RING IS SET UP 


* 


ee 


| UDATS DISK EXERCISER MACRO xK04.00 9=JUL=81 01:12:03 PAGE 61-1 
| BLDUNT = BUILD THE UNIT PARAMETER BLOCK 


54 004761 05475C BNE SUSETL 
7 900000 RE TURN 


55 004762 


IF NOT, BRANCH 





SEQ 0348 


N11 
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BLDSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS UNIT 


~s 
oO 
Ww 


SEERREREE 


004777 


22 005014 


000001 
000047 
000004 


004534 


177777 


tye BLDSUS = BUILD ALL SUBUNIT PARAMETER BLOCKS ON THIS UNIT 


SLOP: 


NOSUN: 


BSUSEX: 


BUILD ALL SUBUNIT PARAMETERS 


BNE 
RETURN 


AU. SUBP ,R4 
RO,R4 
Smee 


#4,R5 
(R3)+,RO 
NOSUN 
RO,UCURSR 
<R3,R4,R5> 


BLDSUB 
<R5,R4,R3> 


BSUSEX 


Be 


R4 WILL POINT TO SUBUNIT POINTERS 

R4 POINTS TO SUBUNIT POINTERS 

R3 WILL POINT TO SUBUNIT NUMBERS 

as POINTS TO SUBUNIT NUMBERS 
MAXIMUM NUMBER OF SUBUNITS 

RO GETS SUBUNIT NUMBER 

IF SUBUNIT INACTIVE, BRANCH 

UCURSR_GETS SUBUNIT NUMBER 

SAVE R3 = R5 


BUILD THE SUBUNIT PARAMETERS 
RESTORE R3 =- R5 


BRANCH 


; TO FLAG SUBUNIT AS INACTIVE 


MOVE POINTER TO SUB PARAM TO UNIT 
DECREMENT COUNT 

It UNEXPIRED, BRANCH 

RETURN TO CALLING PROGRAM 


R3,-(SP) 
R4,-(SP) 
R5,-(SP) 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 


PARAMS 


— 


=S 


— 


ee re ee : | [ 


UDAT4 DISK EXERCISER MACRO X04.00 9-JUL=81 07:12:03 PAGE 63 } SEQ 0350 — : 


BLDSUB = BUILD A SUBUNIT PARAMETER BLOCK 


10 005021 


025022 


.SBTTL BLDSUB = BUILD A SUBUNIT PARAMETER BLOCK 
BLDSUB: 


CALL Bi DBES ; SET UP BEGIN/END SETS 
CALL BLDBB ; SET UP BAD BLOCKS 
CALL GE TMEM Z 

CALL COPYSU 3 

RETURN 


GET MEMORY FOR SUBUNIT PARAMETERS 


j 
BLDSUB WILL BUILD THE SUBUNIT PARAMETER BLOCK 
COPY ALL SUBUNIT PARAMETERS 


Se 


C 12 
| UDATG DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 64 SEQ 0351 
‘ee - FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK 

| 


oi 


1 -SBTTL BLDBES = FIND HOW MANY WORDS NEEDED FOR THE BEGIN/END OR TRACK/GROUP SETS 
¢ 005022 LDBES: 

: ; COMPUTE THE BEGIN/END SET AREA NEEDED 

6 005022 104300 004534 001007 MOV UCURSR ,OUT.01 ; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
7 005025 104207 000004 MOV ahs a RM, RO ; MOVE REQUEST NUMBER TO RO 

& 005027 020751 CALL HOSTR ; REQUEST INFORMATION FROM HOST 

9 005030 102200 000040 001045 BIT WBEUSED, IN.O1 ; SEE IF BEGIN/END SETS ARE USED 

10 005033 055041 BNE es ; IF SO, BRANCH 
11 005034 104207 000016 MOV #S.TGSS+1,RO > MONIMUM CONFIGURATION LENGTH 

12 005036 105307 001053 ADD IN.07,RO ; ADD NUMBER OF T/G SETS 

13 005040 005052 BR NOBE S ; BRANCH 

14 005041 104207 000011 2$: MOV #S.BESS,RO ; MINIMUM CONFIGURATION WORD COUNT 

15 005043 104301 001047 MOV IN.03,R1 ; GET NUMBER OF BEGIN/END SETS 

16 005045 055047 BNE 1$ ; IF NON-ZERO, BRANCH 

17 005046 115401 INC R1 3 MAKE R11 

18 005047 105011 1$: ADD R1,R1 ; MAKE B/E SETS * 2 

19 005050 105011 ADD Ri,R1 ; MAKE B/E SETS * 4 
20 005051 105017 ADD R1,RO ; ADD TO LENGTH OF SUBUNIT PARAMETERS 
21 005052 000000 NOBES: RETURN ; RETURN TO CALLING PROGRAM 





————————__------——— 


| D 12 


UDAT4 DISK EXERCISER MACRO xX04.00 9=JUL=81 01:12:03 PAGE 65 
BLDBB = FIND 4OW MANY WORDS NEEDED FOR THE BAD BLOCKS 





SEQ 0352 


i cane BLDBB =- FIND HOW MANY WORDS NEEDED FOR THE BAD BLOCKS 
L : 


SAVE SUBUNIT LENGTH 

MOV RO,-(SP) 
MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
MOVE REQUEST NUMBER TO RO 
REQUEST INFORMATION FROM HOST 
RESTORE SUBUNIT LENGTH 


GET NUMBER OF BAD BLOCKS 

SAVE NUMBER OF BAD BLOCKS 

MAKE BAD BLOCKS * 2 

ADD TO SUBUNIT DATA STRUCTURE LENGTH 


MOV (SP)+,RO 


: 
| ¢ 005053 
| : : COUNT THE BAD BLOCK PARAMETERS 
6 005053 PUSH RO F 
005y53 100467 
7 005054 104300 004534 001007 MOV UCURSR,OUT.01_—; 
005057 104207 000005 MOV #74BB1,RO ; 
5061 020751 CALL HOSTRQ : 
10 005062 POP RO ; 
5062 104267 
11 005063 104301 001045 MOV IN.01,R1 
12 005065 104010 004537 MOV R1,NUMBB : 
1050 ADD R1,R1 : 
105 ADD R1,RO ; 
0 NOBBS: RETURN : 





RETURN TO CALLING PROGRAM 


Sea ae eee 


| UDATG DISK EXERCISER MACRO X04.0C 9=JUL=81 01:12:03 PAGE 66 
GETMEM = ALLOCATES MEMORY FOR UNIT AND SUBUNIT BLOCK AND SUBUN 





1 .SBTTL 
: 005072 GE TMEM: 

4 : RETURN A BLOCK OF MEMORY 
& 005072 107070 002473 , SUB RO,MEMPOL F 


8 005076 000000 RETURN ; 


GETMEM = ALLOCATES MEMORY FOR UNIT AND SUBUNIT BLOCK AND SUBUNIT PARAMETERS 


SUBTRACT REQUESTED LENGTH FROM MEMOY POOL 
7 005074 104307 002473 MOV MEMPOL ,RO ; LOAD RO WITH POINTER TO REQUESTED MEMORY 
RETURN TO CALLING PROGRAM 
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—COPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOC 


005077 


— 


NO DOONAMNEWN—| COON AUFWH— 
vi 
par 
— 
=D 


Nonanoron ee ee se ee 
fw 

VW 

—_ 

Ww 

oO 


™m 
awn 
S 
VW 
pas 
wm 
N 


27 005140 


55 005210 


020751 
104267 


oO 
RARS 
mon 
OnNON 
anu 


SESE 


eee ee ee ee | 
O—NMNO0 HM MMM 


o-oo ss 
— 
FISRESSESE 
Fe ts a4 mo 
WES WAS = WAIT 


104224 


004534 001007 
000004 


000040 


000000 
000011 


001047 
9000002 
000003 


000001 
000004 


100000 
000015 


001053 


000011 


001047 
001047 


000200 
000000 
000002 
000003 


COPY 


5$: 


3$: 


, te 


tbe COPYSU = COPY ALL SUBUNIT 


COPY SUBUNIT PARAMETRS TO 


PUSH 


_ RO 5 


UCURSR ,OUT.01 
#T4UPRM,R0 
HOSTRQ 

RO 


Se Be Be & 


SEQ 0354 
PARAMETERS TO SUBUNIT BLOCK 
SUBUNIT BLOCK 


SAVE RO 
MOV RO,=-(SP) 


; MOVE SUBUNIT NUMBER TO COMMUNICATION AREA 
; MOVE REQUEST NUMBER TO RO 
; REQUEST INFORMATION FROM HOST 


RESTORE RO 
GET PATTREN NUMBER 


MOV (SP)+,RO 


IN.02,R1 
R1,S.PAT(RO) 3 SAVE 


IN.01,R5 
#BEUSED RS 
3$ 
R5,S.PARM(RO) 
onan 


Dae 
Ww 
» NM 
“~~ 
D+ 
—e 
~-D 
wn 
. . 


GET UNIT PARAMETERS 

SEE IF BEGIN/END SETS USED 

IF SO, BRANCH 

SAVE IN SUBUNIT AREA 

R1 WILL POINT TO BEGIN/END SET AREA 

R1 POINTS TO TRACK/GROUP AREA 

R2 POINTS TO START/END CYL 

MOVE LIMITING CYLINDER TO SUBUNIT PAR4METERS 
MOVE LIMITING CYLINDER TO SUBUNIT PARAmcCTERS 
MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 


; MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
; MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
; MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 


R5,1(R1) : MOVE LIMITING CYLINDER TO SUBUNIT PARAMETERS 
RI ; R1 POINTS AFTER LIMITING CYLINDERS 
(R2)+,R4 ; GET TRACK/GROUP COUNT 
(R2)+,R5 ; GET WORD 
R5,(R1)+ : SAVE 
: DECREMENT COUNT 
5$ ; IF _ INCOMPLETE, BRANCH 
-(R1),R5 ; GET LAST T/G 
#100000,.R5 ; MARK AS END OF LIST 
R5,(R1) ; SAVE 
#S.TGSS,R1 ; R1 WILL POINT TO START OF T/G LIST 
RO,R1 ; R1 POINTS TO START OF T/G LIST 
SORTTG ; SORT THE TRACK/GROUPS 
N.07,R1 ; ADD NUMBER OF T/G°S 
; R1 NOW POINTS TO AFTER 1¥/G°S (FOR BAD BLOCKS) 
COPBB ; BRANCH 
#S..BESS,R1 R1 WILL POINT TO BEGIN/END SETS 
R1 R1 POINTS TO BEGIN/END SETS 


RO,R 
#IN. 03,R2 
N.03 
35 
Re 
#ONLYCL ,R5 


R5,S. PARM(RO) 
(R2)+, 


BeBe Be Be Be Be Fe Be Be Be Se Be Se 


(R2)+,R4 


POINT TO BEGIN/END SET COUNT 

SEE IF ANY BEGIN/END SETS SUPPLIED 
IF SO, BRANCH 

SKIP COUNT 

FLAG AS BEGIN/END CYLINDER SUPPLIED 


; SAVE IN SUBUNIT AREA 
; GET LO STARTING CYL 


SAVE 

; GET HI STARTING CYL 
SAVE 

; GET LO ENDING CYL 


Pad DISK EXERCISER MACRO x04.00 9=JUL=81 01:12: ie Atom 67-1 
OPYSU = COPY ALL SUBUNIT PARAMETERS TO SUBUNIT BLOC 


100114 


S 
Ww 
Nm 
N 
oO 


025322 
100467 


N 
WG 
88888 
MAMI 
ae) Mm 
WN 
N 


106204 


020751 
104267 


000000 


000001 
000004 


000000 


000004 


100000 


004534 
900005 


001046 
004537 


000010 
000016 


004534 
000006 


001045 


004537 


100000 


000010 
000005 


001007 


007007 


COPBB: 


BBLOP: 


NOEXTR: 


NOBB : 
CPYBEX: 


(R1) 
tRd)s, R4 
R4,1(R1) 
#4, *R1 


COPBB 
RS, S.PARM(RO) 
(R2)+,R4 


-(R1),R5 
#100000, RS 
R5, (R1)4 
SORTBE 

RO 


UCURSR ,OUT.01 
#T4BB1,20 
HOSTRQ 

RO 


#IN.02,R2 
NUMBB , R4 


NOBB 
R1,S.BADP(RO) 
R4 


#14. ,R4 
NOEXTR 
RO 


UCURSR,OUT.01 
#T4BB2 RO 
HOSTRQ 

RO 


#IN.01,R2 
(R2)+,R5 
R5,(R1)+ 
(R2)+,R5 
R5,(R1)+ 


CPYBE X 
R4,S.BADP(RO) 
RS 
R4,S.SCHR(RO) 


Be Be Be Be & 


SAVE 
s HI ORDER ENDING CYL 


SAV 

R1 POINTS AFTER BEGIN/END CYLINDERS 
CONT INUE 

SAVE_IN SUBUNIT AREA 

GET GEGIN/END SET COUNT 

MULTIPLY BEGIN/END SETS BY 4 WORDS 


; fap BEGIN/END SET 1 tat NON-ZERO, BRANCH 


E ONE BEGIN END S 


; MOVE BEGIN/END SET TO PARAMETERS 
; MOVE BEGIN/END SET TO PARAMETERS 
; DECREMENT COUNT 


; IF UNEXPIRED, 


BRANCH 
; MOVE EOL TO BEGIN/END LIST 
; SET HI BIT TO FLAG EOL 


SAVE 
; SORT ey BEGIN/END SETS IN ASCENDING ORDER 


SAVE R 
MOV RO,=(SP) 


; MOVE TO COMMUNICATION AREA 
; MOVE REQUEST NUMBER TO RO 


REQUEST INFORMATION FROM HOST 
RESTORE RO 


R2 POINTS AT BAD BLOCKS 
R4 IS NUMBER OF BAD BLOCKS 


MOV ‘(SP)+,RO 


; IF NO BAD BLOCKS, BRANCH 


; MOVE POINTER TO BAD BLOCKS TO SUB PARAM 


BeBe tee Be Se Be Be ® 


; START LOOP AT ZERO 

; SEE IF SECOND BLOCK NEEDED 
; i “gf BRANCH 

; SAVE R 


; SAVE IN COMMUNICATION AREA 

; LOAD REQUEST NUMBER 

; REQUEST FURTHER BLOCKS FROM HOST 
; RESTORE RO 


; POINT R2 TO BAD BLOCKS 
T BLOCK 


MOV RO,-(SP) 


MOV (SP)+,RO 


; INCREMENT RS 


SEE IF ALL BLOCKS COPIED 
IF NOT, BRANCH 


GET LAST BAD BLOCK 

FLAG AS EOL 

SAVE EOL 

SORT TH BAD BLOCKS IN ASCFNDING ORDER 


BRAN 
FLAG AS NO BAD BLOCKS 
CLEAR R4 


FLAG CHARACTERISTICS AS NOT YET DEFINED 
RETURN TO CALLING PROGARM 


SEQ 0355 


eee cee ee 


j 
} 
| 


ee 
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UDATS DISK EXERCISER MACRO k04.00 9=JUL-81 01:12:03 PAGE 68 
SORTBE = > SORT THE BEGIN/END SETS IN ASCENDING ORDER 


SORTBE = SORT THE BEGIN/END SETS IN ASCENDING ORDER 


RORY a td ot ot et et es 


NO eo 
WN =O O00 NA UE WI A OE NIN AN SE I IS 


2 
i] 
wn 
Ww 
nN 
nm 


005346 


005347 


005347 


005363 


Hos Es 


000000 


104634 


000000 


000014 
000011 


000004 


000003 


000004 
000003 


000003 
177400 
000003 


000002 
000002 


Fg! 
SOR TBE: 


CSES2: 


Vee 


SORT THE BEGIN/END SETS IN ASCENDING ORDER 


MOV S.BESS+3(RO),R2 ; 


BM] 4$ 3 
MOV #S.BESS,R2 ; 
ADD RO,R2 : 
MOV R2,R3 t 
ADD #4 ,R3 : 
CALL CBES2 

BCC 3$ 


CALL SWAPRBE 


MOV 3(R3),R5 ; 
BPL $ ; 
ADD #4 Re ; 
MOV 3(R2),R5 ; 
BPL 1$ ; 
RE TURN : 


SEE IF ONLY ONE BEGIN END SET 


; IF SO, EXIT (ALLREADY SORTED) 


R2 WILL POINT TO START OF BEGIN/END SETS 
R2 POINTS TO BEGIN/END SETS 
R3 WILL POINT TO NEXT ee SET 


; R3 POINTS TO BEGIN/END SETS 

; COMPARE THE TWO BEGIN/END SETS 

; IF R2=>B/E <= R3->B/E THEN ALLREADY IN ORDER 
; SWAP TE BEGIN/END SETS 

; SEE IF R3->END-OF=LIST 

; IF NOT, BRANCH 

; R2=>NEXT BEGIN/END SE7 

; SEE IF R2=->END-OF =LIST 

; IF NOT, BRANCH 

; RETURN TO COPYSU 


24 BIT COMPARE FOR BEGIN/END SET SORTING 


MOV 3(R3) ,R4 ; 
BIC HHIBYTE ,RS : 
MOV 3(R2) ,R5 ’ 
CMP R4,R5 3 
BNE 1$ 3 
MOV 2(R2) ,R5 : 
CMP 2(R3) ,R5 Z 
RETURN 2 


; GET WORD THAT R3 POINTS TO 


STRIP OFF UNUSED BITS 


; GET OTHER WORD TO COMPARE 
; COMPARE 
; IF DIFFERENCE IS FOUND, BRANCH 


GET OTHER WORD TO COMPARE 
COMPARE 
RETURN TO SORTSE 


SEQ 0356 


on 


1 12 
UDATG DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 69 SEQ 0357 


~SWAPBE = IF BEGIN/END SETS OUT OF ORDER, SWAP 


a 


1 .SBTTL SWAPBE - IF BEGIN/END SETS OUT OF ORDER, SWAP 
¢ 005 364 SWAPBE : 
4 : SWAP THE BEGIN/END SET POINTED TO BY R2 WITH THE BEGIN/END SET 
; : POINTED TO BY R3, KEEPING THE END-OF=LIST FLAG INTACT 
7 005364 PUSH <R1,R2,R3> : SAVE POINTERS 
| 005364 100461 MOV R1,=-(SP) 
005365 100462 MOV R2,-(SP) 
5 100463 MOV R3.=(SP) 
8 005367 104201 000003 MOV #3,R1 ; SET UP LOOP COUNT 
9 005371 104124 1$: MOV (R2),R4 : GET WORD FROM SET 
| 0 005372 104135 MOV (R3),R5 : GET WORD FROM OTHER SET 
1 005373 100234 MOV R4, (R3)+ : SWAP WORD 
2 005374 100225 MOV R5,(R2)+ : SWAP WORD 
3 005375 117401 DEC R1 ; DECREMENT COUNT 
4 005376 055371 BNE 1$ : LOOP IF INCOMPLETE 
5 005377 104124 MOV (R2),R4 ; GET WORD FROM SET 
6 0054 104135 MOV (R3),R5 : GET WORD FROM OTHER SET 
7 005401 104051 MOV R5,R1 : MOVE TO TEMP STORAGE 
8 005402 103205 177400 BIC #HIBYTE,RS : STRIP OFF END=-OF=LIST FLAG, IF ANY 
9 107051 SUB R5,R1 : R1 CONTAINS END-OF=LIST FLAG, IF ANY 
0 101014 BIS R1,R4 > R4 NOW HAS END-OF-LIST FLAG, IF ANY 
100134 MOV R4,(R3) 3 SWAP WORD (AND EOL FLAG, IF ANY) 
100125 MOV R5,(R2) : SWAP WORD 
23 005410 POP <R3,R2,R1> : RESTORE THE REGISTERS 
005410 104263 MOV (SP)+,R3 
005411 104262 MOV (SP)+,R2 
005412 104261 MOV (SP)+,R1 
24 005413 000000 RETURN ; RETURN TO SORTBE 


Nonna SS es 
Noa 

3888 

MANY 

at a te ed 

SRS 

NOUS 
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ATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 70 


“UDA 
SORTBB = SORT THE BAD BLOCKS IN ASCENDING ORDER 


005414 


005414 104672 


MO DWNAUS WN 0 DOONAN WN 
vw 
S 
~m 
Ww 
— 
oO 
vi 
Nm 
Oo 
WG 


NASB oN wi 

8 8888 3 

Ww vw w rs 5 
) Buenos — & 

&S NU _— _') 

— So So 

SEYSCRNS 

a ARR 


PORZRONOPURI RN Se Ss Ss Ss os Ss 
Ou 


ae 


005455 


000010 
000001 


000002 


000001 


000002 
000001 


000001 
177400 


SEQ 0358 


a 4hi! SORTBB = SORT THE BAD BLOCKS IN ASCENDING ORDER 


CBB2: 


SORT THE BAD BLOCKS IN ASCENDING ORDER 


S.BADP(RO) ,R2 
4$ 

1(R2) ,R5 

4$ 


PBB 
oe 


e 
#2,R2 


1(R2) RS 
1$ 


BeBe Se Be Be Se Be Be Be 


GET THE BAD BLOCK POINTER 


IF SO BRANCH (ALLREADY SORTED) 
R3 WILL POINT AT NEXT BAD BLOCK 
R3 POINTS TO NEXT BAD BLOCK 
COMPARE THE TWO BLOCKS 

IF IN ASCENDING ORDER, BRANCH 
SWAP THE BAD BLOCKS 

SEE IF END-OF=LIST 

IF NOT, BRANCH 

R2 POINTS TO NEXT BAD BLOCK 
SEE IF END-OF=LIST 

IF NOT, BRANCH 

RETURN TO COPYSU 


24 BIT COMPARE FOR BAD BLOCKS 


RE TURN 


1(R3) ,R4 


GET WORD THAT R3 POINTS TO 
STRIP OFF UNUSED BITS 

GET OTHER WORD TO COMPARE 
STRIP OFF THE UNUSED BITS 


COMPARE 
IF DIFFERENCE IS FOUND, A ei 


; GET OTHER WORD TO COMPAR 
COMPARE 
; RETURN TO SORTBE 


at” 


————-- 


iliatinaniasiiinanactiniidi Fay. <ipnticegeaiapeniapin baits llidge ning sittin — 
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| UDATG DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 71 SEQ 0359 
“SWAPBB = IF BAD BLOCKS OUT OF ORDER, SWAP 


oc 


1 .SBTTL SWAPBB = IF BAD BLOCKS OUT OF ORDER, SWAP 
3 005456 SWAPBB : 
| $ : SWAP THE BAD BLOCKS, RETAINING THE END-OF=LIST POINTER AT THE END 
: 
6 005456 PUSH R17 : SAVE R1 
| 005456 100461 MOV R1,=(SP) 
7 005457 104124 MOV (R2),R4 ; GET LO ORDER BAD BLOCK OF 1ST SET 

8 005460 104135 MOV (R3),R5 ; GET LO ORDER BAD BLOCK OF 2ND SET 

9 005461 100134 MOV R4,(R3) 3 SWAP 

10 005462 100125 MOV R5,(R2) : SWAP 

11 005463 104624 000001 MOV 1(R2) ,R4 : GET HI ORDER BAD BLOCK OF 1ST SET 

12 005465 104635 000001 MOV 1(R3),R5 ; GET HI ORDER BAD BLOCK OF 2ND SET 

13 005467 104051 MOV R5,R1 ; MOVE TO R1 

14 005470 103205 177400 BIC MHIBYTE,RS : STRIP OFF END-OF=LIST FLAG, IF ANY 

15 005472 107051 SUB R5,R1 : R1 CONTAINS END-OF=LIST FLAG, IF ANY 

16 005473 101014 BIS R1,R4 : PUT END-OF-LIST FLAG IN R4, IF ANY 

17 005474 100634 000001 MOV R4,1(R3) : SWAP 

18 005476 100625 000001 MOV R5,1(R2) : SWAP 

19 005500 POP R1 : RESTORE R1 

55 104261 MOV (SP)+,R1 


005500 
20 005501 000000 RETURN ; RETURN TO SORTBB 





—_———————__--— ' a 
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UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 72 SEQ 0360 
SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 


Fae Y sal 








1 .SBITL SORTTG = SORT THE TRACK/GROUPS IN ASCENDING ORDER 
| 2 005502 SORTTG: | 
| 4 : SORTTG WILL SORT THE TRACKS OR GROUPS IN ASCENDING ORDER | 

6 005502 PUSH R10 : SAVE R1 | 

005502 100461 MOV R1,=(SP) | 

7 005503 104115 1$: MOV (R17) ,R5 : GET START OF LIST 

8 005504 075525 BMI 4$ : IF NEGATIVE, WHOLE LIST IS SORTED, EXiT 

9 005505 104012 MOV R1,R2 t R2 WILL POINT TO NEXT LIST MEMBER 

10 005506 115402 2$: INC R2 + R2 POINTS TO NEXT MEMBER 
11 005507 104125 MOV (R2) ,R5 > GET NEXT MEMBER 
12 005510 104054 MOV RS,RS * COPY TO R4 
13 005511 103205 177400 BIC #HIBYTE RS : CLEAR END-OF=LIST FLAG (IF ANY) 
14 005513 107054 SUB RS,R4 * SAVE END-OF-LIST FLAG (IF ANY) 
15 005514 106115 CMP (RI) RS : SEE IF THE MEMBERS ARE IN ORDER 
16 005515 075521 BMI 3$ > IF SO, BRANCH 
17 005516 101114 BIS (R1),R4 ‘ COPY START OF LIST TO R4, RETAINING EOL FLAG 
18 005517 100115 MOV R5, (R1) + SWAP 
19 005520 100124 MOV RG. (R2) > SWAP 
20 005521 104125 3$: MOV (R2) .R5 : GET MEMBER THAT SORT POINTER POINTS TO 
21 005522 035506 BPL 2$ ‘ IF NOT END-OF-LIST, BRANCH 
22 005523 115401 INC R1 + POINT TO NEXT START OF LIST 
00 BR 1$ > LOOP 
POP R1 + RESTORE R1 
MOV (SP)+,R1 
RETURN : RETURN TO CALLING PROGRAM 





| "12 
one DISK EXERCISER MACRO X04.00 9=JUL=81 01: ¥ 03 PAGE 73 SEQ 0361 
TROOT = TEMPORARY ROOT FOR SEQNCR DURING TEST 4 SETUP 


1 .SBTTL TROOT = TEMPORARY ROOT FOR SEQNCR DURING TEST 4 SETUP 

¢ 005527 TROOT: 

4 ; TROOT WILL FILL OUT THE AS YET UNDEFINED FIELDS IN BOTH UNIT 

: : AND SUBUNIT PARAMETERS, AS WELL AS GETTING THE SUBUNIT CAHRACTERISTICS 
7 005527 104205 007717 MOV MF IRSTU,RS ; RS POINTS TO FIRST SUBUNIT 

8 005531 114001 MKLOOP: CLR oe ; START WITH SUBUNIT ZERO (WEITHER USED OR NOT) 
9 005532 104207 001000 MOV ERO ; MARK AS FIRST TIME 

10 005534 100657 000033 MOV RO. y.  PARM(RS) : SAVE 

11 005536 104201 005562 MOV #INSET,R1 ; FIRST MODJLE IS _ INSET 

12 005540 100651 000010 MOV R1,U.NFUN(R5) |: SAVE IN UNIT PARAMETERS 

13 005542 023062 1$: CALL SEQNCR ; RUN SEQUENCER 

14 005543 106207 003254 CMP MAF INIT ,RO ; SEE IF THE DRIVE HAS BEEN INITILIZED 

15 005545 015542 BEQ 1$ ; IF SO, BRANCH 

16 005546 104657 000033 MOV U.PARM(R5),RO ; GET UNIT PARAMETERS 

17 005550 101207 001000 BIS #F TIME ,RO ; SET FIRST TIME 

18 005552 100657 000033 MOV RO,U.PARM(RS5) ; SAVE 

19 005554 104655 000000 MOV U.NEXT(R5) ,R5 : TRAVERSE TO NEXT UNIT 
20 005556 106205 007717 CMP #F IRSTU,RS5 ; SEE IF TRAVERSED ENTIRE RING 

21 005560 055531 BNE MKiOOP ; IF NOT, BRANCH 
22 005567 000000 RETURN ; RETURN TO CALLING PROGRAM 


N 12 
pote DISK EXERCISER MACRO X04.00 9=JUL-81 01:12:03 PAGE 74 SEQ 0362 
INSET = SET UP UNIT PARAMETERS FOR SEQNCR ROUT INES 


1 SBTTL INSET = SET UP UNIT PARAMETERS FOR SEQNCR ROUTINES 

¢ 005562 INSET: 

r] : INSET WILL SET UP EACH UNIT BEFORE IT STARTS RUNNING 

6 005562 104657 000033 MOV U.PARM(R5),RO ; GET UNIT PARAMETERS 

7 005564 103207 004000 BIC #NEWSUB ,RO 3; NO LONGER NEW SUBUNITS 

8 005566 100657 000033 MOV avs U.PARM(R5S)  : SAVE 

9 005570 104207 001750 MOV #1 3 INITILIZE SEEK _COUNTER 

10 005572 1 000007 MOV as U.SEEK(R5) : SAVE SEEK COUNTER 

11 005574 104201 000012 MOV oR ; SDI_TIMEOUTS ee SET TO 90 SEC 
12 005576 100651 000030 MOV R1U. SDIS(RS) ; MOVE TO PARAMETERS 

13 005600 100651 000031 MOV R1,U.SDIL(R5)  ; MOVE TO PARAMETERS 

14 005602 104207 005615 MOV #COMCHR ,RO 3; COMMON CHARACTERISTICS NEXT MODULE CALLED 
15 005604 114002 CLR R2 ; NO ERRORS 

16 005605 100652 000053 MOV R2,U.CCYL(R5) |; CLEAR CYL+GROUP 

17 005607 100652 000054 MOV R2,U.CCYL+1(R5) 

18 005611 100652 000055 MOV Res U. CGRP(R5) 

19 005613 114001 CLR 3; IMMIDATE CALL 

20 005614 003127 BR IMPRET ; RETURN TO SEQUENCER 


———— 
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OMCHR = GET 


005615 


— 


NN MS eS So 
WNHH-OOONAUBWNH —OCOVDONA NEW 
i=) 
Oo 
Vv 
Oo 
Mm 
Ww 


MPN 


44 005711 
46 005712 


104203 


015630 
104200 


114001 


001467 


010317 
005615 


001571 


177760 


000026 
001572 


177400 
000027 
001570 
177760 


000030 
001571 
177760 


000031 
001571 


177760 


000043 
005724 


000001 


000011 


001013 


tke 
COMCHR 


SETRLT: 


COMEXT: 





COMMON CHARACTERISTICS AND STORE NECESSARY INFO I 


SEQ 0363 


COMCHR = GET COMMON CHARACTERISTICS AND STORE NECESSARY INFO IN UNIT PARAMETERS 


GET COMMON CHARACTERISTICS AND SET UP THE ERROR RECOVERY LEVEL, 
RETRIES. LONG TIMEOUT, AND SHORT TIMEOUT 


MOV 


#CR.GCR,R5 
TALK 


R2 
SETRLT 
5 .ASER8 


ACOMCHR ,RO 
COMEXT 
Nataly 


RO,U.MLEV(RS) 
ST+ECCRSH.RO 


AMHIBYTE ,RO 
RO,U.ECCT(RS) 
ST+SHRTTO,RO 
#LBLONB ,RO 


TO 
RO,U.SDIS(R5) 
ST+LONGTO,RO 
-~ at 


RO,U.SDIL(RS5) 
ST+RCTCPS,RO 


RO 

ALBLONB ,RO 
RO 
RO,U.COPY(R5) 
ee 


R1 
JMPRE T 


POIN; TO GET CHARACTERISTICS DATA BLOCK 
GET CHARACTERISTICS 

SEE IF ANY ERRORS OCCURRED 

IF NOT, BRANCH 

REPORT SECONDARY [ERROR 


#SER8,OUT.05 
GET COMMON CHARACTERISTICS iS NEXT MODULE 
BRANCH TO EXIT 
GET NUMBER OF RETRIES ALLOWED 
ROTATE TO CORRECT POSITION 


CLEAR UNUSED BITS 

SAVE _IN UNIT PARAMETERS 

GET ERROR RECOVERY LEVELS 

CLEAR UNUSED BITS 

SAVE_IN UNIT PARAMETERS 

GET ECC THRESHOLD 

MOVE ECC THRESHOLD TO LOWER BYTE 
CLEAR UNUSED BITS 


SAVE 

GET SHORT TIMEOUT 

CLEAR UNUSED BITS 

CALCULATE TIMEOUT 

SAVE ag RB a IN UNIT PARAMETERS 


LE 
CALCULATE TIMEOUT 
SAVE IN UNIT PARAMETERS 
GET NUMBER OF RCT COPIES 
MOVE TO LOW WORD 
CLEAR UNUSED BITS 
—_ FOR TEST 4 INTERNALS 


AVE 
INSERT SUBUNIT CHARACTERISTICS NEXT MODULE 
NO ERRORS 
IMMIDATE CALL TO NEXT MODULE © 
RETURN TO SEQUNCER 


was THE TIMEOUT IN 9SEC INTERVALS (UDA SDI RECEIVE XFC TAKES 


; SET UP LOG2 SHIFTER 


BeBe Be Be Bee 


DOUBLE THE TIMEOUT VALUE 
COUNT 


; DECREMENT 
; IF COUN 
: INCREMENT 9 SEC COUNT 

; SUBTRACT 9 SEC FROM TIMEOUT 


T_ INCOMPLETE, BRANCH 


ee ee cites inlesiinnieitichripiiedheisicauain 
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“ UDATS gee gel MACRO X04.00 9=JUL=81 01:12:03 PAGE 75-1 
| COMCHR = GET COMMON CHARACTERISTICS AND STORE NECESSARY INFO I 


57 005722 035717 BPL 2$ ; IF MORE TIME TO GO, BRANCH 
58 905723 000000 RETURN 3; RETURN TO CALLING PROGRAM 





SEQ 0364 


er te 


D 13 


| UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 76 SEQ 0365 


LINSCHR = GET ALL SUBUNITS? PARAMETERS (CHARACTERISTICS), ERROR 
1 “SBTTL INSCHR = GET ALL SUBUNITS' PARAMETERS (CHARACTERISTICS), ERROR CHECK AND STORE 
| ¢ 005724 INSCHR 
i : INSCHR WILL GET THE SUBUNIT CHARACTERISTICS AND INITILIZE THE 
: ; SUBUNIT PARAMETERS 
| ° 
? 005724 PUSH RG : SAVE R4 (SUBUNIT) POINTER 
005724 100464 MOV R4,<(SP) 
B 005725 104204 000001 MOV —s#U. SUBP, 4 : R4 POINTS TO SUBUNIT POINTERS 
9 008727 105054 ADD "RG + R&4 POINTS TO SUBUNIT POINTERS 
10 005730 114007 CLR * R2 CONTAINS SUBUNIT POINTER INDEX 
17 005731 114000 004542 €LR _- USED FLAG AS ALL SUBUNITS UNUSED 
12 005733 104241 7$: mov (R4)+,R1 * RT POINTS TO SUBUNIT 
13 005734 076076 BMI 11$ : IF SUBUNIT NOT TO BE TESTED, BRANCH 
| 14 005735 104200 177777 004542 MOV —s#=1, USED : FLAG AS SUBUNIT USED 
15 005740 104612 000005 MOV —s«S. SCHR(R1),R2 > GET CHARACTERISTICS POINTER 
16 005742 056076 BNE 118 TF ALLREADY DEFINED, BRANCH 
17 005743 114002 CLR sR * 7ERO RO 
18 005744 100612 000007 MOV —«R2, S.MEGW(R1) = ZERO MEGABIT COUNT 
19 005746 100612 000006 MOV «RD. SMEGR(R1) > ZERO MEGABIT COUNT 
20 005750 PUSH RO : SAVE RO 
005750 100467 MOV RO,-(SP) 
21 00575 027321 CALL SMASK ; COMPUTE MASK FOR SUBUNIT CHAR REQ 
52 005752 104070 001554 MOV. _—RO, SUBUNT : MOVE TO SDI SEND BUFFER 
53 005754 104203 001474 MOV _—so#CR- SCR. RB . POINT TO SDI PARAMETER BUFFER 
54 005756 PUSH RT : SAVE RI 
005756 100461 Mov R1.-(SP) 
25 005757 021204 CALL ‘TALK : SEND AND RECEIVE SDI INTERCHANGE 
56 005760 POP sR : RESTORE R1 
005760 104261 MOV (SP)+,R1 
27 005761 115002 TST —R?2 : SEE IF AN ERROR OCCURRED 
58 005762 056120 BNE 13$ : IF SO, BRANCH 
59 005763 104617 000000 MOV -—«S.PARM(R1),RO :- GET SUBUNIT PARAMETERS 
36 005765 114003 CLR RS * NO RBN'S PER TRACK (FOR LBN AREA) 
31 005766 102207 020000 BIT _ #DCYLS.RO SEE IF DIAGNOSTIC CYLINDERS ARE USED 
32 005770 015775 BEQ 5$ : IF C 
33 005771 104303 001574 MOV -—«ST#RBNTRK.R3._—s:: GET RBN'S PER TRACK 
005773 103203 177600 BIC mnlByTe 260 R3 > CLEAR UNUSED BITS 
35 005775 105303 001601 S$: ADD ST+LBNTRK.R ADD LBNS PER TRACK (TO ZERO IF LBN AREA) 
005777 103203 177400 BIC AHIBYTE.R CLEAR UNUSED BITS 
37 096001 104030 004543 MOV _—«aRB, SECTRK . SAVE IN SECTORS PER TRACK 
3g 3 100613 000004 MOV —s«R3LS.TRKL(R1) ~:~ SAVE IN TRACK LENGTH 
39 006005 026733 CALL COMPS * COMPUTE SECTORS/SROUP AND SECTORS/CYL 
40 006006 026766 CALL CLCMAX CALCULATE MAXIMUM DBN NUMBER (IN CASE NEEDED) 
41 006007 104617 000000 MOV. —«-§. PARM(R1),RO : GET SUBUNIT PARAMETERS 
42 006011 102207 0600040 BIT  _#BEUSED,RO * SEE IF BEGIN/END SETS ARE USED 
43 006013 016017 BEQ —s-_- 21 : IF NOT, BRANCH 
44 006014 102207 000200 BIT #ONLYCL.RO ; SEE IF “WE ALLREADY HAVE BEGIN/END SETS 
5 006016 016022 BEQ —s«BS : IF SO, BRAN 
46 006017 026131 21$: CALL. ~~ CHKCYL  LONUERT THE CYLS TO BN'S 
47 006020 115002 TST R2 . SEE IF AN ERROR OCCURRED 
48 006021 056123 BNE $ : IF SO, BRANCH 
49 006022 026311 8$: CALL CHKBES ; CHECK THE BEGIN/END SETS FOR ERRORS 
50 006023 115002 ts. ~—s_ RR? * SEE IF AN ERROR OCCURRED 
51 006024 056123 BNE 3$ : IF SO, BRANCH 
52 006025 0265.71 CALL CHKBB ; CHECK THE BAD BLOCKS FOR ERRORS 
5% 006026 115002 TST R2 SEE IF AN ERROR WAS DETECTED 





“UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 76-1 


_ INSCHR = GET ALL SUBUNITS* PARAMETERS (CHARACTERISTICS), 


54 006027 


ww 
i=) 
& 
oO 
Ww 
Oo 


98 006130 


056122 


056052 


104261 
104617 


115407 


006127 
104200 
104267 
104207 
114001 


104264 
003127 


000000 
000040 


001570 
000023 
000005 


000023 


000001 
000002 
000003 
007334 
004542 
000033 
100000 
000033 


010220 


005724 


001013 


22s: 


9$: 


10$: 


11$: 


12$: 


3$: 
4$: 


6$: 


POP 


ERROR 


3$ 
S.PARM(R1) ,RO 
#BEUSED ,RO 
22$ 


CHKTG 
R2 


S.SCHR(R1),RO 
LBNCYL (RO) ,R2 
XBNCYL (RO) ,R2 
R2,S.SDCL(R1) 


LBNCYL+1(RO) ,R2 
10$ 


R2 
R2,.S.SDCL+1(R1) 
RO 


RO 
#3,R0 


7$ 
_ AINITD,RO 
R1 


R2 

USED 

6$ 
U.PARM(R5) ,R1 
#DROP,R1 
R1,U. PARM(RS) 
6$ 

5 ,ASERS 

RO 
#INSCHR,RO 

R1 

R4 


JMPRE T 


Be Be Be Be Be Be Be Be Be Se Be Be 


IF SO, BRANCH 

GET SUBUNIT PARAMETERS 

SEE IF BEGIN/END SETS ARE USED 

IF SO, BRANCH 

DO ALL TRACK/GROUP CALCULATIONS 

SEE IF AN ERROR OCCURRED 

IF SO, BRANCH 

R3 POINTS TO Mo ae at ascertain 


MEMORY 
SIORE POINTER TO IN SUBUNIT PARAMETERS 


SAVE R1 
MOV R1,=-(SP) 
MOVE WORD COUNT TO R1 
MOVE ONE WORD OF S CHAR TO RO 
MOVE TO SUBUNIT CHAR AREA 
DECREMENT WORD COUNT 
IF COUNT UNEXPIRED, BRANCH 
RESTORE R1 


RO POINTS TO SUBUNIT CHAR 
Re CONTAINS LO LAN CYLS 

ADD LO XBN CYLS TOR 

MOVE TO LO STARTING DIAG CYL 
GET HI ORDER LBN CYLS 

IF NO CARRY, BRANCH 


MOV (SP)+,R1 


; PROPOGATE CARRY 
; STORE HI STARTING DIAG CYL . 


Be Be Be Se Be Be Be Be Be Be Be Be Be 


RESTORE RO 


INCREMENT SUBUNIT COUNT 

SEE IF ALL SUBUNITS HANDLED 
IF NOT, BRANCH 

INITILIZE ALL DRIVE PARAMETERS NEXT 
MAKE R1 ZERO Fata CALL) 
FLAG AS NO ERROR 

SEE IF ANY SUBUNITS USED 

IF SO, BRANCH 

GET UNIT PARAMETERS 

FLAG ENTIRE UNIT aS DROPPED 
SAVE PARAMETERS 

RANC 


B H 
FLAG SECONDARY ERROR 
MOV 


MOV (SP)+,RO 


#SERS ,OUT.05 


; ADJUST STACK 


Be Bs 


MOV ‘SP)+,RO 
INSCHR NEXT ROUTINE CALLED 
IMMIDATE CALL 
RESTORE R4 


RETURN TO SEQUENCER 


MOV (SP)+,R4 


SEQ 0366 


~— 
t 


006131 


NO ne wr 


ft Ss  -s 
OOONAUEW—O O00 
. 
—_ 
* 
5 a 


34 
006235 
50 006236 


114002 


104265 
104264 
000000 


000013 
000014 
100000 


000013 


177777 


000011 
000001 


000001 
000013 
000012 


000000 
020000 


001602 


000012 
004540 
000011 
004541 
000012 


CHKCYL 


c$: 


3$: 


43: 


5$: 
6$: 


9$: 
10$: 


F 13 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 77 
, CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, 


-SBTTL 


CONVERT T 


SEQ 0367 


CHKCYL = CHECK VALIDITY OF STARTING AND ENDING CYLS, CONVERT TO BEGIN/END SET 


CALCULATE THE STARTING AND ENDING BN*S FROM THE GIVEN STARTING 
AND ENDING CYLS 


PUSH 


RE TURN 


<R4,R5> 


S.BESS+2(R1) ,R4 
S.BESS+3(R1),R5 
#100000 ,R5 
he 


10$ 
RO,S.BESS+2(R1) 

#100000 ,R3 
R3,S.BESS+3(R1) 
S.BESS+1(R1),R5 
#-1,R5 


4$ 
8 aaa ate 


R3 
RO,S.BESS(R1) 
atti ides 


S.PARM(R1) ,RO 
#DCYLS,RO 


6$ 
ST+LBNHST,RO 
#1,R 
RO,S.BESS(R1) 
ST+LBNHST+1,RO 
5$ 

RO 
RO,S.BESS+1(R1) 
9$ 


MAXDBN , RO 
RO.S. rod Pi 
MAXDBN+1,RO 
RO,S. BES&+1(R1) 
R2 


<R5,R4> 


SAVE R4, R5 
MOV R4,-(SP) 
MOV R5,-(SP) 


: R4& HAS LO STARTING CYL 


RS _ HAS HI STARTING a8 

CLEAR EOL FLAG (IF AN 

CALCULATE STARTING BN. ON THAT CYL 
SEE IF ANY ERROR OCCURRED 

IF SO, BRANCH 

SAVE LO ORDER STARTING BN 

SET END-OF=-LIST FLAG 

SAVE HI ORDER STARTING BN 

GET HI ORDER ENDING CYL 

SEE IF SHOULD DEFAULT To HIGHEST LBN 
IF SO, BRANCH 

GET LO ORDER ENDING CYL 

FIND STARTING BN oA NEXT CYL 


Y 
CACULATE STARTING BN OF NEYT CYL 
SEE IF ANY ERRORS 
IF SO, BRANCH 
GET LAST BN OF PREVIOUS CYL 
IF NO CARRY, BRANCH 
PROPOGATE CARRY 
SAVE LO ORDER ENDING BN 
ert! HI ORDER ENDING BN 
=X 


GET SUBUNIT PARAMETERS 

SEE IF DIAGNOSTIC CYLINDERS USED 
IF SO, BRANCH 

GET LO ORDER ENDING LAN 

LAST LBN IN LBN AREA 

SAVE LO ORDER 

GET HI ORDER 

IF NO CARRY, BRANCH 

PROPOGATE CARRY 

SAVE HI ORDER 


EXIT 

GET LO ORDER MAX DBN 
SAV 

GET HI ORDER 

SAVE 

NO ERRORS 

RESTORE 


MOV (SP)+,R5 
MOY (SP)*,R4 


; G 13 
UDATS DISK EXERCISER MACRO xK04.00 9=JUL=81 01:12:03 PAGE 78 SEQ 0368 
CYLBN = GIVEN A CYLINDER, CALCULATE STARTING 8N ON THAT CYLIN 


1 -SBTTL CYLBN = GIVEN A CYLINDER, CALCULATE STARTING BN ON THAT CYLINDER 
¢ 006237 CYLBN: 
4 : TAKING THE CYL GIVEN IN R&,R5 CALCULATE THE FIRST BN ON THAT 
5 CYL AND RETURN IN R2,R3. IF BN EXCEEDS 28 BITS, REPORT 
° ; ERROR 
8 006237 114007 CLR RO : CLEAR THE PRODUCT AREA 
9 006240 114003 CLR R3 : CLEAR THE PRODUCT AREA 
10 006241 115004 TST RSG ; SEE IF LO ORDER IS ZERO 
11 006242 056245 BNE 1$ ; IF NOT, BRANCH 
12 006243 115005 TST R5 > SEE IF HI ORDER IS ZERO 
13 006244 016307 BEQ 5$ : IF SO, BRANCH AND EXIT 
14 006245 107204 000001 1$: SUB #1 RS + ADJUST COUNT 
15 006247 046257 BCC 23 ; IF NO BORROW, BRANCH 
16 006250 1174C5 DEC RS ; PROPOGATE BORROW 
17 006251 105307 004545 2s: ADD SECCYL,RO ; ADD LO SECTORS/CYL TO LO ORDER PROD 
18 006253 046255 BCC 3$ : IF NO CARRY, BRANCH 
19 006254 115403 INC R5 : PROPOGATE CARRY 
20 006255 106203 000377 3$: CMP #377 ,R3 ; SEE IF HI rss TOO BIG 
21 006257 036301 BPL 4$ ; IF NOT, BRAN 
22 006260 DEVFTL 57 ; REPORT LBN OVERPL OM 
006260 104200 006330 001012 MOV #ERS7,OUT.04 
006263 104200 000071 001010 MOV #57,0UT.02 
006266 101200 000400 001010 BIS #FTLDEV,OUT.02 
006271 104200 006271 901007 MOV #.,CUT.01 
006274 104202 000014 MOV MERRMC ,R2 
006276 104020 001006 MOV R2,0UT.RO 
23 006300 006310 BR 6% s EXIT 
24 006301 107204 000001 4$: SUB #1,R4 : DECREMENT LO ORDER COUNT 
25 006303 046251 BCC 2$ : IF INCOMPLETE, BRANCH 
26 006304 107205 000001 SUB #1,R5 + DECREMENT HI ORDER COUNT 
27 006306 046251 BCC 2$ ; IF INCOMPLETE, BRANCH 
28 006307 114002 5$ CLR A ; NO ERRORS 


29 006310 000000 ‘ 6$: RE TURN RETURN 70 CALLING PROGRAM 


H 13 
UDATS DISK EXERCISER MACRO K04.00 9=JUL=81 01:12:05 PAGE 79 SEQ 0369 
CHKBES = CHECK THE BEGIN/END SETS FOR ERRORS 


1 adh CHKBES = CHECK THE BEGIN/END SETS FOR ERRORS 
¢ 006311 cH KBES 
4 : CHECK THAT THE BEGIN BLOCK <= END BLOCK IN EACH BEGIN/END SET, 
5 : THAT THE END BLOCK < THE BEGIN BLOCK OF THE NEXT BEGIN/END SET, 
$ : AND THAT THE LAST END BLOCK IS A VALID LBN OR DBN FOR THAT DRIVE. 
8 006311 PUSH <R4,R5> 
| 006311 100464 MOV R4,-(SP) 
| 066312 100465 MOV R5,=(SP) 
9 006313 104203 000011 MOV #S .BESS ,R3 ; R3 WILL POINT TO ENDING BLOCK NUMBER 
10 006315 105013 ADD R1,R ; R3 POINTS TO ENDING BN 
11 006316 104202 000013 MOV #S .BESS+2,R2 ; R2 WILL PCINT TO STARTING BN 
12 006320 105012 ADD R1,R2 ; R2 POINTS TO STARTING BN 
13 006321 025441 1$: CALL CBB2 ; COMPARE 
14 006322 046344 BCC 2$ ; IF NO ERROR, BRANCH 
15 006323 DEVFTL 50 ; REPORT BEGIN >= ENDING BN 


006323 104200 005443 (01 
006326 104200 000062 001 


4 MOV #ERSO, rte 
eet hd, 101200 000400 od a 


2 
0 Moy  #50,0 
0 BIS nf TEDEV- OUT. .02 


{ 
| 

006334 104200 006334 001 MOV #.,QUT 
006337 104202 000014 MOV MERRMC ,R2 
006341 104020 001006 MOV R2, OUT .RQ 

16 006343 006566 BR 7$ ; BRANCH TO ERROR EXIT 

17 006344 104625 000001 2$: MOV 1(R2) ,R5 ; SEE IF THE END-OF-LIST HAS BEEN FOUND 

18 006346 076400 BMI 4$ ; IF SO, BRANCH 

19 006347 105202 000004 ADD #4 ,R2 ; POINT TO NEXT BEGIN SET 

20 006351 025441 CALL CBB2 ; COMPARE 

21 006352 BCS 3$ ; BRANCH 
006352 046354 BCC -*2 
006353 006375 BR 3$ 

22 006354 DEVFTL 51 ; STARTING BN <= PREVIOUS ENDING BN 
006354 104200 005510 12 MOV #ER51,OUT.04 
006357 104200 000063 0C1010 MOV #51,0UT.02 
006362 101200 000400 001010 BIS #F TLDEV,OUT.02 
006365 104200 006365 001007 MOV #.,0UT.01 
006370 104202 000014 MOV #HERRMC ,R2 
006372 104020 001006 MOV R2,OUT.RQ 

23 006374 006566 BR 7$ ; ERROR EXIT 

24 006375 105203 000004 3$: ADD #4 RS ; R3 NOW POINTS TO NEXT END SET 

25 006377 006321 BR 1$ ; LOOP 

26 006400 104612 000000 4$: MOV S.PARM(R1),R2 ; GET SUBUNIT CHARACTERISTICS 

27 006402 102202 020000 BIT ADCYLS,R2 ; SEE IF DIAGNOSTIC CYLINDERS ARE IN USE 

28 006404 056500 BNE 5$ : IF SO, BRANCH 

29 006405 104202 001602 MOV #ST+LBNHST,R2 ; R2 POINTS TO LBNS IN HOST AREA 

30 006407 025441 CALL CBB2 ; COMPARE 

31 006410 BCS 6$ ; EXIT 
006410 046412 BCC +2 
906411 006565 ' R 6% 

32 006412 104612 000000 MOV S.PARM(R1),R2  ; GET SUBUNIT CHARACTERISTICS 

33 006414 102202 000040 BIT #BEUSED ,R2 : SEE IF TRACKS/GROUPS IN USE 

34 006416 016422 BEQ 10$ ; IF SO, BRANCH 

35 006417 102202 000200 BIT #ONLYCL ,R2 > SEE IF wt SET COMPUTED BY CYLINDERS 

36 006421 016443 BEQ 11$ ; IF NOT, BRANCH 

37 006422 10$: DEVFTL 61 ; REPORT ERROR 
006422 104200 006540 001012 MOV #ER61 ,OUT.04 
006425 104200 000075 001010 MOV #61,0UT.02 





-UDATG DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 79-1 
_CHKBES = CHECK 


54 006535 
55 006536 


006567 
59 006570 


101200 





Bones 


001006 
000001 
001603 
005575 


001006 
004540 
000000 


C90040 
000200 


001019 
001007 


THE BEGIN/END SETS FOR ERRORS 


11$: 


9$: 


5$: 


12$: 


13$: 


6$: 
7$: 


D 
DEVF TL 


DEVFTL 


BR 
DEVFTL 


BR 
CLR 
POP 


RE TURN 


7$ : 
#1,ST+LBNHST ; 
9$ : IF NO BORROW, BRANCH 
ST+LBNHST+1 : 


SEQ 0370 


BIS AFTLDEV,OUT.02 
#.,0UT.O1 


MOV #ERRMC ,R2 
IT MOV R2,0UT.RQ 
x 


E 
DECREMENT LO LBN COUNT BY 1 
PROPOGATE BORROW 


52,<ST+LBNHST,ST+LBNHST+1> ; LAST ENDING BN > MAX 


7$ 

R5,R2 
AMAXDBN, R3 
CBB2 


6$ 
S.PARM(R1) ,R2 
ABEUSED ,R2 
12$ 


#ONLYCL ,R2 ; 
13% 


62 ; 


7$ ; EXIT 
52.,<M4AXDBN,MAXDBN+ 1> ; LAST oe ae MAX 


7$ Z 
R2 3 
<R5,R4> : 


MOV MERS2,OUT.04 
MOV ST+LBNHST,OUT.05 
MOV ST+LBNHST+1,0UT.06 


MOV #52,0UT.02 
BIS #F TLDEV, OUT .02 
MOV #.,0UT.01 


MOV #ERRMC .R2 
MOV R2,0UT.RQ 
ERROR EXIT 


R2 PCINTS TO LAST END SET 

R3 POINTS TO MAXIMUM DBN 

COMPARE 

EXIT 

GET SUBUNIT CHARACTERISTICS 

SEE IF TRACKS/GROUPS IN USE 

IF SO, BRANCH 

SEE IF B/E SET COMPUTED BY CYLINDERS 
IF NOT, BRANCH 

REPORT ERROR 

MERE62, Ee a Ea 


MOV #62, 
BIS #F TLDEV,OUT.02 
MOV a. .01 


,OUT 
MOV HERRMC .R2 
MOV R2,0UT.RQ 


BIS #F TLDEV, OUT .02 
MOV ,OUT.01 
MOV He RRMC ,R2 
MOV R2,0UT.RQ 
ERROR EXIT 


FLAG AS NO ERROR 

RESTORE REGISTERS 
MOV (SP)+,R5 
MOV (SP)+,R4 


; RETURN TO INSCHR 


UDATS 
| CHKBB 


J 13 


DISK EXERCISER MACRO x04.00 rane 01:12:03 PAGE 80 SEQ 0371 
- CHECK THE BAD BLOCKS FOR ERRORS ; 
1 .SBTTL CHKBB = CHECK THE BAD BLOCKS FOR ERRORS 
¢ 006571 CHKBB: 
4 : CHECK THE BAD BLOCKS TO ASSURE THEY DON'T EXCEED THE MAXIMUM BLOCK 
: 3 NUMBER 
7 006571 PUSH <R4,R5> ; SAVE THE REGISTERS 
006571 100464 MOV R4,-(SP) 
006572 100465 MOV R5,-(SP) 
8 006573 104613 000010 MOV S§.BADP(R1),R3 ; GET POINTER TO BAD BLOCKS 
9 006575 016727 BEQ 5$ ; IF NO BAD BLOCKS, BRANCH 
10 006576 104632 000001 1$: MOV 1(R3),R2 : IS THIS THE LAST BAD BLOCK? 
11 006500 076632 BMI 2$ : IF SO, BRANCH 
12 006601 104032 MOV R3,R2 ; R2 WILL POINT TO NEXT BAD BLOCK 
13 006602 105202 000002 ADD #2 ,R2 ; R2 POINTS TO NEXT BAD BLOCK 
14 025441 CALL CBB2 ; COMPARE 
15 006605 046611 BCC 7$ : IF ERROR, BRANCH 
16 006606 105203 000002 ADD #2,R3 : POINT TO NEXT BAD BLOCK 
17 006610 006576 BR 1$ : LOOP 
18 006611 7$: DEVFTL 53 ; DUPLICATE BAD BLOCKS 
006611 104200 005660 001012 MOV #ERS3,0UT.04 
006614 104200 000065 001010 MOV #53, OUT .02 
006617 101200 000400 0010190 BIS AF TLDEV, OUT .02 
606622 104200 006622 001007 MOV #.,OUT. 61 
006625 — 104202 000014 MOV HERRMC. R2 
006627 104020 001006 MOV R2,0UT.RQ 
19 006631 006730 BR 6$ : BRANCH 
20 006632 104617 000000 2$: MOV S.PARM(R1),RO ; GET SUBUNIT PARAMETERS 
21 006634 102207 020000 BIT #DCYLS,RO ; SEE IF DIAGNOSTIC CYLINDERS IN USE 
22 006636 056673 BNE 3$ ; IF SO, BRANCH 
23 006637 104202 001602 MOV AST+LRNHST,R2  : R2 POINTS TO NUMBER OF LBNS IN HOST AREA 
24 006641 025441 CALL CBB2 : COMPARE 
25 006642 046644 BCC 8$ : IF ERROR, BRANCH 
26 006643 006727 BR 5$ EXIT WITH NO ERROR 
27 006644 8$: DEVFTL 54,<ST+LBNHST,ST+LBNHST+1> BAD BLOCK > MAXIMUM 
006644 104200 005674 001012 fov #ER54,0UT.04 
006647 104300 001602 001013 MOV ST+LBNHST, OUT .05 
006652 104300 001603 001014 MOV ST+LBNHST +1, OUT .06 
006655 104200 000066 001010 MOV #54,0U 
006660 101200 000400 001010 BIS oF ILDEV: “OUT. 02 
104200 006663 001007 MOV #. OUT .01 
006666 104202 000014 MOV #ERRMC ,R2 
006670 104020 001006 MOV R2,0UT.RQ 
28 006672 006730 BR 6$ ; ERROR EXIT 
29 006673 104032 3$: MOV R3,R2 : R2 POINTS TO LAS BAD BLOCK 
30 006674 104203 004540 MOV #MAXDBN, R3 : R3 POINTS TO MAXIMUM DBN 
31 006676 025441 CALL CBB2 : COMPARE 
32 00667 046727 BCC 5$ IF NO ERROR, BRANCH 
33 006700 4$: DEVFTL 54,<MAXDBN, MAXDBN+1> ; BAD BLOCK > MAXIMUM 
MOV #ER54,0UT.04 


006700 104200 005674 001012 

13 MOV MAXDBN, OUT .05 
14 MOV MAXDBN+1 OUT .06 
10 MOV #54,0UT.02 
10 BIS #F T(DEv,OUT.O2 
07 MOV #.,0UT.01 
006722 104202 000014 MOV #ERRMC RO 
006724 104020 001006 MOV R2,0UT.RO 


Ee ist sss scission 


| DAT DISK EXERCISER MACRO x04.00 oa i 01:12:03 PAGE 80-1 


CHKBB = CHECK THE BAD BLOCKS FOR ERROR 


34 006726 00673C 
35 006727 114002 
36 006730 
006730 104265 
00673" 
37 006732 


104264 
000000 


S$: 
6$: 


BR 6$ 
CLR R2 
POP <R5,R4> 


RE TURN 


K 13 


BRANCH yA EXIT 
FLAG AS N 


(O_ ERRORS 
; RESTORE THE REGISTERES 


MOV (SP)+,R5 
MOV (SP)+,R4 


; RETURN TO INSCHR 


SEQ 0372 


(———--—--- ------- - -- + oe 


L 13 
othe. DISK EXERCISER MACRO X06.00 9=JUL=81 01:12:03 PAGE 81 SEQ 0373 
OMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 


1 .SBTTL COMPSC = COMPUTE SECTORS/GROUP AND SECTORS/CYLINDER 
; 006733 COMPSC: 
4 : COMPUTE HOW MANY SECTORS/GROUP AND SECTORS/CYLINDER 
5 M GIVEN HOW MANY SECTORS/TRACK IN SECTRK 
6 ; 
7 006733 PUSH <RO,R2> ; SAVE REGISTERS 
006733 100467 MOV RO,-(SP) 
006734 100462 MOV R2,-(SP) 
8 006735 114007 CLR RO ; CLEAR RUNNING TOTAL 
9 006736 104302 001573 MOV ST+TRKGRP,R2 : GET NUMBER OF TRACKS PER GROUP 
10 006740 103202 177400 BIC #HIBYTE,R2 ; CLEAR UNUSED BITS 
11 006742 105307 004543 1$: ADD SECTRK,RO ; ADD NUMBER OF SECTORS/TRACK TO RUNNING TOTAL 
12 006744 117402 DEC R2 ; DECREMENT COUNT 
13 006745 056742 BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
14 006746 104070 004544 MOV RO, SECGRP ; SAVE SECTORS/GROUP 
15 006750 114007 CLR RO ; CLEAR RUNNING TOTAL 
16 006751 104302 001572 MOV ST+GRPCYL ,R2 : GET GROUPS/CYLINDER 
17 006753 103202 177400 BIC MHIBYTE ,R2 ; CLEAR UNUSED BITS 
18 006755 105307 004544 es: ADD SECGRP,RO ; ADD SECTORS/GROUP TO RUNNING TOTAL 
19 006757 117402 DEC R2 ; DECREMENT COUNT 
20 006760 056755 BNE c$ : IF COUNT INCOMPLETE, BRANCH 
21 006761 104070 9004545 MOV RO, SECCYL ; STORE SECTORS/CYLINDER 
22 006763 POP <R2,RO> ; RESTORE REGISTERS 
006763 104262 MOV (SP)+,R2 
104267 MOV (SP)+,RO 


006764 
23 006765 000000 RETURN RETURN TO CALLING PROGRAM 





M 13 


,UDATS DISK EXERCISER MACRO x04.00 oy + aa -_s 12:03 PAGE 82 SEQ 0374 
CLOMAX = CALCULATE THE MAXIMUM WRITEABLE 
1 -SBTTL CLCMAX = CALCULATE THE MAXIMUM WRITEABLE DBN 
¢ 006766 CLCMAX: 
4 : CALCULATE THE MAXIMUM DBN NUMBER ALLOWED, AND PLACE IT IN MAXDBN 
: : FOR BEGIN/END SET GENERATION AND TESTING (BAD BLOCKS TOO) 
7 006766 PUSH <RO,R1,Re2> : SAVE REGISTERS 
006766 100467 MOV RO,-(SP) 
006767 100461 MOV R1,~(SP) 
006770 100462 MOV R2,=-(SP) 
8 006771 114007 CLR RO ; CLEAR PRODUCT AREA 
9 006772 114001 CLR R1 ; CLEAR PRODUCT AREA 
10 006773 104302 001612 MOV ST+DBNCYL ,R2 ; GET DIAG CYL COUNT 
11 006775 110702 SWAB Re : MOVE TO LO ORDER BYTE 
12 006776 103202 177400 BIC MHIBYTE ,R2 ; CLEAR UNUSED BITS 
13 007 105307 004545 1$: ADD SECCYL,RO ; ADD SECTORS/CYL TO TOTAL 
14 007002 047004 BCC 2$ ; IF NO CARRY, BRANCH 
15 007003 115401 INC R1 > INCREMENT Hi WORD 
16 007004 117402 2$: DEC R2 ; DECREMENT COUNT 
17 007005 7000 BNE 1$ ; IF NO CARRY, BRANCH 
18 007 104302 001612 MOV ST+DBNCYL ,R2 > GET NUMBER OF READ ONLY GROUPS 
19 007010 103202 177400 BIC #HIBYTE ,R2 ; CLEAR UNUSED BITS 
20 007012 107307 004544 3$: SUB SECGRP RO ; SUBTRACT NUMBER OF SECTORS/GROUP 
21 007014 047016 BCC 4$ ; IF NO BORROW, BRANCH 
22 007015 117401 DEC R1 ; PROPOGATE BORROW 
23 007016 117402 4$: DEC R2 : DECREMENT COUNT 
24 007017 057012 BNE 3$ : IF INCOMPLETE, BRANCH 
25 007020 107207 000001 SUB #1,RO : ee FOR DBNS STARTING AT ZERO 
26 007022 047024 BCC 5$ ; IF NO BORROW, BRANCH 
27 007023 117401 DEC R1 ; PROPOGATE BORROW 
28 007024 104070 004540 5$: MOV RO,MAXDBN ; SAVE LO ORDER WORD 
29 007026 104010 004541 MOV R1,MAXDBN+1 ; SAVE HI ORDER WORD 
30 007030 POP <R2,R1,RO> ; RESTORE REGISTERS 
7030 104262 MOV (SP)+,R2 
007031 104261 MOV (SP)+,R1 
007032 104267 MOV (SP)+,RO 
31 007033 000000 RE TURN : RETURN TO INSCHR 





ey 
—OVONANE WN 


NMI 2a SS Ses 
-[OVDONAUSWI 





N 13 


UDAT4 DISK EXERCISER MACRO X04.00 9=-JUL=81 01:12:03 PAGE 83 SE° 0375 


= CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


907034 


41. 007101 
007101 
007104 


007123 


42 007125 


100464 
1004 


104612 
103202 
100612 


077126 


004546 
000015 


000014 
170000 
000014 


000000 
000020 


001572 
001573 


177400 
004548 


177400 


BeBe Se Se Se Be BeBe OY 


ah CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN‘S 
HKTG: 


CONVERT THE TRACKS/GROUPS TO SECTOR COUNTS, AND FIND THE MAXIMUM 
NUMBER OF ‘LOOPS’ THAT SETUP CAN RUN THROUGH TO TEST ALL 
TRACKS ON THE TESTED CYLINDERS ONLY 


FIRST COPY THE TRACKS/GROUPS TO A 1 EMP LOCATION 


PUSH <R4,R5> ; SAVE REGISTERS 
MOV R4,=-(SP) 
MOV R5,-(SP) 

MOV #TGS,RO ; POINT TO TEMPORARY STORAGE LOCATION 

MOV #S.TGSS,R2 : R2 WILL POINT TO T/G LIST 

ADD R1,R2 ; R2 POINTS TO T/G LIST 

MOV (R2)+,R5 ; GET WORD 

MOV R5,(RO)+ ; SAVE IN TEMP LOCATION 

BPL 1$ 3; COPY ENTIRE LIST 

NOW MOVE THE STARTING CYLINDER TO THE INITIAL OFFSET AREA 

MOV S.TGOF +1(R1),R2 ; GET HI ORDER STARTING CYL 

BIC #*CHBHINB,R2 ; CLEAR UNUSED BITS 

MOV R2,S.TGOF+1(R1) : SAVE 


CHECK THAT THE MAXIMUM TRACK/GROUP IS VALID 


MOV S.PARM(R1) ,RO GET SUBUNIT PARAMETERS 

BIT ATRACKS ,RO SEE IF PROCESSING GROUPS OR TRACKS 
2$ IF TRACKS, BRANCH 

= Nata GET GROUPS PER CYLINDER 

MOV S1+TRKGRP ,RO 


BRANCH 
GET TRACKS PER GROUP 
BIC #HIBYTE ,RO CLEAR UNUSED BITS 
MOV #TGS,R2 POINT TO TRACK/GROUP LIST 
MOV (R2)+,R3 i IF THIS WORD IS END-OF=LIST 


BPL 4$ NOT, BRANCH 

BIC #HIBYTE ,R3 ; CLEAR EOL FLAG 

CMP R3,RO ; SEE IF WITHIN LIMITS 

BMI 5$ ; IF SO, BRANCH 

DEC RO ; ADJUST T/G MAX FOR O-N 

DEVFTL 58,<R3,RO> ; REPORT ERROR 
MOV #ER58,OUT.04 
MOV R3,0UT.05 


MOV RO. OUT .06 
MOV #58,0UT.02 
BIS #F TLDEV,OUT.02 
MOV #.,0UT.01 
MOV HERRMC .R2 
R2,QUT.RO 
BR 17$ > EXIT 


fe EL CC LL LL LT 
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UDATS DISK EXERCISER MACRO K04.00 9=JUL-81 01:12:03 PAGE 84 . SEQ 0376 
CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN’ 


1 3 
2 ; NOW COMPUTE THE NUMBER OF SECTORS FROM THE START OF THE CYLINDER/GROUP | 
| ? s TO THE FIRST TRACK/GROUP TO TEST | 
: 
§ 007126 104207 004546 S$: MOV #TGS,RO ; RO POINTS TO TRACK/GROUP LIST | 
6 007130 104203 000013 MOV aS, TGOF, R3 ; R3 WILL POINT TO T/G INITIAL OFFSET 
7 007132 105013 ADD R1,R3 ; R3 POINTS TO T/G INITIAI OFFSET 
8 007133 104172 MOV (RO), R2 ; GET FIRST T/G 
9 007134 103202 177400 BIC AHIBYTE, R2 ; CLEAR UNUSED BITS | 
10 007136 027302 CALL COMPDP ; COMPUTE SECTORS FROM CYL TO INIT T/G 
11 007137 105135 ADD (R3),R5 ; ADD TO INITIAL OFFSET 
12 007140 100235 MOV RS, (R3)+ ; MOVE BACK 
13 007141 047145 BCC ; IF NO CARRY, BRANCH 
14 007142 104135 MOV (R3),R5 ; GET HI ORDER WORD 
15 007143 115405 INC R5 : PROPOGATE CARRY 
16 007144 100135 MOV R5,(R3) ; SAVE 
4 007145 115403 6$ INC R3 Ys ; POINT TO NEXT AREA 
19 ; NOW COMPUE HOW MANY SECTORS FROM THE LAST TRACK/GROUP TO TEST TO THE 
$v : NEXT TRACK/GROUP TO TEST 
22 007146 104174 7$: MOV (RO) ,R4 : GET TRACK/GROUP 
23 007147 677203 BMI 8$ ; IF EOL, BRANCH 
24 007150 104672 000001 MOV 1(RO) .R2 ; GET NEXT TRACK 
25 007152 103202 177400 BIC AMHIBYTE,R2 ; CLEAR EOL FLAG, IF AN 
26 007154 107272 SUB (RO) +,R2 ; GET HOW MANY T/¢*s BETWEEN LAST/NEXT 
27 007155 017157 BEQ 20$ ; IF ZERO, ERROR 
28 0071 037200 BPL 18$ ‘ SHOULD BE AT LEAST 1 1/G BETWEEN 
29 007157 20$: DEVFTL 59 ; REPORT ERROR 
007157 104200 006515 901012 MOV #ER59,0UT.04 
007162 104200 000073 001010 MOV #59, OUT. 02 
007165 101200 000400 001010 BIS #FTLDEV, OUT .02 
007170 104200 007170 001007 MOV #.,OUT 01 
007173 104202 000014 MOV HERRMC , R2 
007175 1040720 001006 MOV R2,0UT.RQ 
30 007177 007277 BR 17$ s €X1T 
31 007200 027302 18$: CALL COMPDP ; COMPUTE HOW MANY SECTORS TO NEXT T/G 
32 007201 100235 MOV R5,(R3)+ : STORE THE OFFSET 
: 007202 007146 BR 7$ ; LOOP 
2 ; NOW COMPUTE HOW MANY SECTORS FROM THE LAST T/G TO TEST TO THE FIRST 
57 007203 104615 000000 8$: MOV S.PARM(R1),R5 ; GET SUBUNIT PARAMETERS 
38 007205 102205 000020 BIT ATRACKS,R5 ; SEE IF USING GROUPS OR TRACKS 
39 007207 057213 BNE 9$ : IF TRACKS, BRANCH 
40 007210 104302 001572 MOV ST+GRPCYL,R2 3s GET GROUPS/CYL 
41 007212 007215 BR ; BRANCH 
42 007213 104302 001573 9$: MOV ST+TRKGRP,R2 ; GET TRACKS/GROUP 
43 007215 105302 004546 10$: ADD TGS,R2 ; ADD STARTING T/G 
44 007217 103202 177400 BIC #HIBYTE, R2 ; CLEAR UNUSED BITS 
45 007221 103204 177400 BIC #MHIBYTE,R4 ; CLEAR UNUSED BITS 
46 007223 107042 SUB R4,R2 ; FIND HOW MANY T/G‘S TO SKIP 
47 007224 027302 CALL COMPDP ; COMPUTE HOW MANY SECTORS 
48 007225 100235 MOV R5,(R3)+ ; STORE IN LIST 
49 007226 114005 CLR R5 : SET UP FOR MARKING EOL 
2? 007227 100235 MOV R5,(R3)+ : STORE EOL 
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UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 84-1 SEQ 0377 


CHKTG = CHECK THE TRACK/GROUPS FOR ERRORS, AND CONVERT TO BN‘ 


52 NOW SEE HOW MANY TIMES THE SETUP ROUTINE CAN GO THROUGH THE LIST 
i . WITHOUT EXCEEDING THE MAXIMUM SECTOR NUMBER 
| 55 007230 104207 000011 MOV —-#S.BESS,RO ; RO WILL POINT TO THE MAX SEC NUMBER 
56 007032 105017 ADD —RT, RO ; RO POINTS TO THE MAX SECTOR NUMBER 
$7 007233 104674 000002 MOV S$. TGOF=$.BESS(RO),R4 _ R4 HAS LO ORDER INITIAL OFFSET 
| 38 007235 104675 000003 MOV 8. TGOF=S:BESS+1(RO),RS ; R5 HAS HI ORDER INITIAL OFFSET 
59 007237 PUSH Ri ; SAVE R1 
007237 100461 MOV R1,-(SP) 
60 007240 114002 CLR sR ; CLEAR LO ORDER MAX COUNT 
| 61 007241114003 CLR RB ; CLEAR HI ORDER MAX COUNT 
62 007242 104201 000004 MOV «#5. TGSS=S.BESS.R1 : R1 WILL POINT TO SECTOR OFFSET AREA 
63 007244 105071 ADD —RO, RI ; R1 POINTS TO SECTOR OFFSET AREA 
64 007245 100464 13$: MOV —-R4,=(SP) ; SAVE LO ORDER TOTAL ON STACK 
65 007246 104214 MoV (RI) +R ; GET LO ORDER SECTOR OFFSET 
007247 057254 BNE $ : IF NOT EOL, BRANCH 
67 007250 104071 MOV —-RO, RI ; R1 WILL POINT TO START OF OFFSET LIST 
007251 105201 000004 ADD «#5. TGSS~S.BESS.R1 ; R1 POINTS TO START OF OFFSET LIST 
69 007253 104214 MOV (Ri) +, RG : GET NEW OFFSET 
70 007254 105264 14$: ADD = (SP) #2 RG i ADD TO LOW ORDER SECTOR TOTAL 
71 007255 067257 Bcc «158 : IF NO CARRY, BRANCH 
72 007256 115405 INC  PROPOGATE CARRY 
73 007257 106675 000001 15$: (MP (RO), RS ; SEE IF MAX EXCEEDED 
74 007261 077272 BMI s«16$ : IF SO, BRANCH 
75 007262 057265 BNE —-11$ ; IF YOUR SURE IT'S OK, BRANCH 
76 007263 106174 CMP (RO) RG : SEE IF MAX EXCEEDED 
77 007264 077272 BMI 6$ ; IF NOT, BRANCH 
78 007265 105202 000001 11$: ADD #1, R2 ; ADD 1 TO COUNT 
79 007267 047245 Bcc «138 ; IF NO CARRY, BRANCH 
80 007270 115403 INC RS ; PROPOGATE CARRY 
81 007271 007245 BR 13$ ; BRANCH 
82 007272 16$: POP RI ; RESTORE R1 
007272 104261 MOV (SP)+,R1 
83 007273 100172 MOV —RZ, (RO) ; STORE LOW ORDER MAXIMUM COUNT 
84 007274 100673 000001 MOV «R31 RO) ; STORE HI MAXIMUM COUNT 
85 007276 114002 CLR —R2 : CLEAR R2 
007277 17$: POP <R5,R4> ; RESTORE 
007277 104265 MOV (SP)+,R5 
007300 104264 MOV (SP)+-Ré 
87 007301 000000 , RETURN 


[on a 
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UDATG DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 85 
COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 








1 -SBTTL COMPDP = CALCULATE SECTORS/TRACKS OR SECTORS/GROUPS 

$ 007302 COMPDP : 

4s ; COMPUTE HOW MANY SECTORS ARE IN THE NUMBER OF TRACKS OR GROUPS 

Z ; PASSED IN R2 

7 007302 114005 CLR R5 ; CLEAR RUNNING TOTAL 

8 007303 104614 000000 MOV S$.PARM(R1) ,R4 ; GET SUBUNIT PARAMETERS 

9 007305 007316 BR 3$ : SEE IF IMMIDATE EXIT 

10 0073 102204 000020 1$: BIT ATRACKS ,R4 ; SEE_IF USING GROUPS OR TRACKS 

11 007310 057314 BNE 2$ ; IF TRACKS, BRANCH 

12 007311 105305 004544 ADD SECGRP,R5 > ADD SECTORS/GROUP TO RUNNING TOTAL 
13 007313 007316 BR ; BRANCH 

14 007314 105305 004543 2$: ADD SECTRK,R5 ; ADD SECTORS/TRACK TG RUNNING TOTAL 
15 007316 117402 3$: DEC Re ; DECREMENT COUNT 

16 007317 037306 BPL ; IF INCOMPLETE, BRANCH 

17 007320 000000 RE TURN > RETURN TO CALLING PROGRAM 


SEQ 0378 


| 


UD 
SMASK 


007321 


FWHM OOD NOWFwr- 
=) 
oO 
N 
Ww 
Mm 
Mm 


— 8 ot et os 


007332 
16 007353 


000020 


. SBTTL 
MASK : 


SMASKL: 


SMASKX: 


ATG DISK EXERCISER MACRO x04.00 a" 01:12:03 PAGE 86 
= CALCULATE THE SUBUNIT MASK 


SMASK 


E 14 


= CALCULATE THE SUBUNIT MASK 


SMASK TAKES THE UNIT OFFSET (0 = 3) IN RO AND CHANGES IT TO THE 


SUBUNIT MASK (0001 = 1000) 


PUSH R1 


MOV RO,R1 
MOV ~, i 


T 
BEQ SMASKX 
ROL RO 

DEC R1 

BR SMASKL 
POP R1 
RETURN 


SAVE R1 


MOVE RO TO R1 
SUBUNIT 0 MASK 
SEE IF erty MASK SHIFTED TO CORRECT POSITION 


MOV R1,=(SP) 


MASK 
Ae es COUNT 


BRAN 
RESTORE R1 


MOV (SP)+,R1 


: RETURN TO CALLING PROGRAM 


SEQ 0379 — 


F 14 
/UDATG DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 87 SEQ 0380 
/INITD = LAST ERROR CHECKING AND SETUP MODULE BEFORE TESTING S 


1 .SBTTL INITD = LAST cRROR CHECKING AND SETUP MODULE BEFORE TESTING STARTS 
2 007334 INITD: 
4 : BRING DRIVE ONLINE, CLEAR ALL ERRORS (IF ANY) AND CHANGE THE 
| > : MODE TO THE REQUIRED VALUES 
7 007334 104651 000033 MOV U.PARM(RS),R1 ; GET UNIT PARAMETERS 
8 007336 077466 BMI DRVEXT t IF DRIVE DROPPED, BRANCH 
9 007337 104207 000004 MOV #4 ,RO + MAXIMUM OF 4 SUBUNITS 
10 007341 104201 000001 MOV #U.SUBP,R1 ; R1 WILL POINT TO SUBUNIT POINTERS 
11 007343 105051 ADD R5_R1 ‘ R1 POINTS TO SUBUNIT POINTERS 
12 007344 104212 1$: MOV (R1)+,R2 ; GET POINTER TO SUBUNIT INFO 
13 007345 077353 BMI 2$ _t TF UNIT NOT TESTED, BRANCH 
14 007346 104623 000000 MOV S.PARM(R2) ,R3 : GET SUBUNIT PARAMETERS 
15 007350 102203 040000 BIT #INITW,R3 : SEE IF SUBUNIT WILL BE INITALLY WRITTEN 
16 007352 057356 BNE 3$ : IF SO, BRANCH 
17 007353 117407 2$: DEC RO ; DECREMENT COUNT 
18 007354 057344 BNE 1$ : IF NOT ALL SUBUNITS CHECKED, BRANCH 
19 007355 007367 ik 4$ ; BRANCH 
20 007356 104657 000033 3$: MOV U.PARM(RS),RO  : GET UNIT PARAMETERS 
21 007360 101207 040000 BIS #INITW,RO ; FLAG UNIT AS SUBUNITS GeT INITIALLY WRITTEN 
007362 100657 000033 MOV RO,U.PARM(RS)  : SAVE 
23 007364 101200 100000 002444 BIS #100000, M.PARM ;: FLAG MASTER PARAMETERS AS INITIAL WRITE TO BE DONE 
24 007367 104207 000004 4$: MOV #4,R0 : MAXIMUM OF FOUR SUBUNITS 
25 007371 104201 000005 MOV #U. SUBP+4 ,R1 : R1 WILL POINT TO AFTERS SUBUNIT POINTERS 
26 007373 105051 ADD R5,R1 : R1 POINTS TO AFTERS SUBUNIT POINTERS 
27 007374 114003 ‘CLR R3 3 INITILIZE SUBUNIT PROTECTION FLAGS 
28 007375 110203 5$: ROL R3 + ROTATE R3 
29 007376 103203 000001 BIC #1,R3 : CLEAR LO BIT 
30 007400 104412 MOV -(R1),R2 ; GET SUBUNIT POINTER 
31 007401 077411 BM] 6$ ; IF NO SUBUNIT, BRANCH 
32 007402 104622 000000 MOV S.PARM(R2) ,R2 ; GET SUBUNIT STATUS 
33 007404 102202 004000 BIT #RONLY,R2 ; SEE IF READ ONLY DRIVE 
34 007406 017411 BEQ 6$ : IF NOT READ ONLY, BRANCH 
35 007407 101203 000001 BIS #1,R3 : SET READ ONLY BIT 
%6 007411 117407 6$: DEC RO ; DECREMENT COUNT 
37 007412 057375 BNE 5$ : IF COUNT UNEXPIRED, BRANCH 
007413 110203 ROL R3 : ROTATE MASK TO CORRECT POSITION 
39 007414 110203 ROL R3 ; ROTATE MASK TO CORRECT POSITION 
40 007415 110203 ROL R3 ; ROTATE MASK TO CORRECT POSITION 
41 097416 110203 ROL R3 : ROTATE MASK TO CORRECT POSITION 
42 007417 103203 177417 BIC #LBHINB,R3 :; CLEAR UNUSED BITS 
43 007421 100653 000032 MOV R3,U.WPRT (RS) : SAVE 
44 007423 024161 CALL RECOVR ; ‘RECOVER’ FROM ALL ERRORS 
45 007424 115003 TST R3 : SEE IF IT EXECUTED CORRECTLY 
46 007425 057440 BNE ONLERR ; IF NOT, BRANCH 
47 007426 104657 000033 MOV U.PARM(R5) ,RO : GET UNIT PARAMETERS 
48 007430 103207 002000 BIC #SEKINP,RO > CLEAR SEEK IN PROGRESS BIT 
49 007432 100657 000033 MOV RO,U.PARM(RS) : SAVE UNIT PARAMETERS 
50 007434 104207 000001 MOV #SETUP,RO : SETUP NEXT ROUTINE CALLED 
51 007436 104051 MOV R5,R1 : MAKE R1 NON-ZERO (DEF ERRED CALL) 
52 007437 007466 BR DRVEXT * BRANCH 
53 007440 ONLERR: SOFTER 21 ; REPORT ERROR 
007440 104200 003170 001012 MOV #ER21,0UT.04 
007443 104200 000025 001010 MOV #21,0UT.02 
007446 101200 001400 001010 BIS #ERSOFT OUT .02 
007451 104200 007451 001007 MOV #.,0uT.01 
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~UDATS DISK EXERCISER MACRO x06.00 9=JUL=81 01:12:03 PAGE 87-1 SEQ 0381 
-INITD = LAST ERROR CHECKING AND SETUP MODULE BEFORE TESTING S 
007454 104202 000013 MOV MERRMES ,R2 
007456 104020 001006 MOV R2,0UT.RQ 
54 007460 ENDERR 
007460 101200 000005 002357 BIS 45, ERRPOS : SET THE POSITION 
55 097463 104207 007334 MOV #INITD,RO 3 RE-EXECUTE DRIVE ONLINE ROUTINE 
56 007465 116001 CLR R1 :; IMMIDATE CALL TO DRIVE ONLINE 


57 007466 003127 DRVEXT: BR JMPRE T 3 RETURN TO SEQUENCER 


| 
| 
| 
| 
| 
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UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 88 SEQ 0382 
GMPARM = GET MASTER PARAMETERS (PATTERN 16) AND SET UP OVERLAY 


1 .SBTTL GMPARM = GET MASTER PARAMETERS (PATTERN 16) AND SET UP OVERLAY ADDRESSES 
¢ 007467 GMP ARM : 

: ; GET MASTER PARAMETERS 

6 007467 104302 007774 MOV OVSTRT,R2 ; GET STARTING ADDRESS OF OVERLAY (LO) 
7 007471 104303 007775 MOV OVSTRT+1,R3 : GET STARTING ADDRESS OF OVERLAY (HI) 
8 007473 104020 002362 MOV R2,0TABLE+2 ; MOVE STARTING ADDRESS INTO OVERLAY TABLE 
9 007475 104207 000011 MOV #NUMOVL -1,RO ; RO HAS NUMBER OF OVERLAYS 

10 007477 104205 002360 MOV #OTABLE ,R5 ; RS POINTS TO OVERLAY TABLE 

11 007501 104651 000003 MORE : MOV 3(R5), Ri ; R1 HAS OVERLAY LENGTH 

12 007503 110601 ROR R1 ; SHIFT TO MAKE BYTES 

13 007504 103201 100001 BIC #100001,R1 : CLEAR UNUSED BITS 
14 007506 105012 ADD R1,R2 ; FIND ADDRESS OF NEXT OVERLAY 

15 007507 047511 BCC 1$ ; IF NO CARRY, BRANCH 

16 007510 115403 INC R3 : PROPOGATE CARRY 

17 007511 100652 000006 1$: MOV R2,6(R5) ; STORE STARTING ADDRESS OF NEXT OVERLAY 
18 007513 104651 000007 MOV 7(R5). R1 : GET OVERLAY LENGTH (<<2) 

19 007515 101031 BIS 5,R1 ; SET HI ORDER OVERLAY ADDRESS 
20 007516 1090651 000007 MOV aT 7(R5) 3; SAVE 
21 007520 105205 000004 ADD #4.R5 : POINT TO NEXT OVERLAY AREA , 

2 007522 117407 DEC RO ; DECREMENT COUNT 
23 007523 057501 BNE MORE ; IF ALL OVERLAYS NOT SET UP, BRANCH 
24 007524 104207 000003 MOV #AT4SMPRM,RO ; RO CONTAINS HOST tt mes 
25 007526 020751 CALL HOSTRQ ; INITIATE HOST REQUES 
26 007527 104207 007045 MOV #IN.01,R0 ; RO POINTS TO PATTERN INF ORMAT ION 
27 007531 104272 MOV (RO) +,R2 : R2 HAS LENGTH OF PATTERN 
28 007532 017542 BEQ 3$ : IF NO PATTERN, BRANCH 
29 007533 104201 002515 MOV #PATO,R1 ; R1 POINTS TO PATTERN 16 AREA 

30 007535 100212 MOV R2,(R1)+ ; MOVE PATTERN LENGTH TO PATO AREA 

31 007536 104273 2s: MOV (RQ) +,R3 ; GET WORD OF PATTERN 

32 007537 100213 MOV R3,(R1)+ : MOVE TO PATTERN 16 AREA 

33 007540 117402 DEC R2 ; DECREMENT COUNT 

34 007541 057536 BNE 23 : IF COUNT UNEXHAUSTED, BRANCH 

35 007542 000000 3$: RETURN — ; RETURN TO CALLING PROGRAM 


rn ere re a oe ee + + 
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| UDATG DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 89 
GETU = POLL ALL PORTS, THEN GET UNITS TO TEST 


1 .SBITL GETU = POLL ALL PORTS, 
| . 007543 ETU: 
: : POLL ALL PORTS AND FILL 
| 6 007543 104205 000001 MOV —s- #1, RS 
| 7 007545 104204 004514 MOV — AUNITSRG 
8 007547 1$: PUSH ~— RS 
007547 100464 
| 9 007550 104052 MoV — R35, R2 
| 10 007551 060011 XFC DINIT 
| 11 007552 104207 040000 MoV —-#40000,RO 
| 12 007554 020720 14$: CALL _—_—-RDSTAT 
13 007555 102201 010000 BIT #10000,R1 
14 007557 057563 BNE 3$ 
15 007560 102201 000001 BIT #RCVRDY RI 
16 007562 057566 BNE 5$ 
17 007563 117407 3$: DEC RO 
18 007564 057554 BNE 14$ 
19 067565 007641 BR 6$ 
20 007566 104203 001501 S$: MOV _—s #CR.. GST ,R3 
21 007570 104237 MOV (R3)+,RO 
22 007571 104231 MOV (R3)+-R1 
23 007572 060004 XFC SEND 
24 007573 115001 TST RI 
25 007574 057641 BNE 6$ 
26 007575 PUSH RG 
007575 100464 
27 007576 104204 000012 MoV —s- #10... R& 
28 007600 104137 11$: MOV (R3) -RO 
29 007601 104631 000001 MoV 1(R3),R1 
30 007603 060005 KFC RCV 
31 007604 115001 TST RI 
32 007605 017615 BEQ 13$ 
33 007606 106201 000001 (MP #1, RT 
34 007610 057613 E 12$ 
35 007611 117404 DEC R4 
36 007612 057600 BNE 11$ 
37 007613 128: POP = RG 
007613 104264 
38 097614 007641 BR 6$ 
| 


THEN GET UNITS TO TEST 


IN A UDA PORT INFORMATION TABLE (UNITS) 


; MOVE INITIAL MASK TO R5 
; R4 POINTS TO UNIT TABLE 
; SAVE R4 


MOV R4,=(SP) 


; MOVE MASK TO R2 


; INITILIZE THE DRIVE 


; MOVE TIMEOUT TO RO 


; GET STATUS 

; SEE IF STATUS IS VALID 

; IF NOT, BRANCH 

; See SF athe READY ASSERTED 
; IF SO, BRAN 

: DECREMENT COUNT 


IF INCOMPLETE, BRANCH 
NO VALID STATE 
R3 POINTS TO GET STATUS COMMAND 
SET ADR OF SDI COMMAND BUFFER 
SET BUFFER LENGTH 
SEND COMMAND 
DID UNIT ACCEPT COMMAND 
A SO, BRANCH 

AVE R4 

MOV R4,-(SP) 


; SET UP SHORT TIMEOUT 


SET DATA BUFFER ADDRESS 


; SET BUFFER LENGTH 


; SEND RECEIVE SDI COMMAND 


; DID ERROR OCCUR 
; IF NOT, BRANCH 


SEE IF TIMEOUT 

IF NOT, BRANCH 

DECREMENT TIMEOUT VALUE 
IF NOT TIMEOUT, BRANCH 


; RESTORE R4 


MOV (SP)+,R4 
BRANCH TO EXIT 


SEQ 0383 


---- a re a - _——- a ee — —_— -— ---— 


j 


UDATS DISK EXERCISER MACRO xX04.00 9=JUL=81 01: s* 03 PAGE 90 SEQ 0384 
~GETU - POLL ALL PORTS, THEN GET UNITS TO TES 


1 : 
‘ : VALID UNIT FOUND, FILL IN TABLE 
} . 
| 4 007615 13$: POP R4 ; RESTORE R4 
007615 104264 MOV (SP)+,R4 
5 007616 104307 001570 MOV ST,RO ; RO HAS UNIT NUMBER 
| 6 007620 104072 MOV RO,R2 ; COPY RO TO R2 
7 007621 103207 170000 BIC #*CHBHINB,RO = ;- RO_HAS UNIT _N 
8 007623 101207 040000 BIS #40000,RO > FLAG UNIT AS NOT TESTED 
9 007625 110702 SWAB sR > SWAP R2'S BYTES 
10 007626 110602 ROR Re ; MOVE SUBUNIT MASK TO LO NIBBLE 
11 007627 110602 ROR Re ; MOVE SUBUNIT MASK TO LO NIBBLE 
12 007630 110602 ROR Re ; MOVE SUBUNIT MASK TO LO NIBBLE 
13 007631 110602 ROR R2 > MOVE SUBUNIT MASK TO LO NIBBLE 
14 007632 103202 177760 BIC #LBLONB ,R2 ; CLEAR ALL BUT SUBUNIT BITS 
15 007634 110602 4$: ROR R2 ; MOVE SUBUNIT BIT TO CARRY 
16 007635 047641 BCC 6$ ; IF NO MORE SUBUNITS, BRANCH 
17 007636 100247 MOV RO, (R4)+ ; MOVE SUBUNIT NUMBER TO TABLE 
18 007637 115407 INC RO > INCREMENT SUBUNIT NUMBER 
19 0C7640 007634 BR 4$ ; BRANCH 
20 007641 6$: PoP R4 ; R4 POINTS TO START OF UNIT JUST HANDLED 
007541 104264 MOY (SP)+,R4 
21 007642 105204 900004 ADD #4 RG ; R4 WILL POINT TO NEXT UNIT (CLEAR CARRY FOR ROL) 
22 007644 110205 ROL RS ; R5 HAS NEXT UNIT PORT MASK 
23 007645 106205 000020 CMP #20,R5 ; SEE IF ALL PORTS TESTED 
24 007647 057547 BNE 1$ > IF NOT, BRANCH 





[- 
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“UDA DISK EXERCISER MACRO X04.00 9=JUL-81 13 ai 03 PAGE 91 
THEN GET UNITS TO TEST 


~GETU 


007650 


DWNAWESWN—ODODNANE WY 
g 
— 


a a ad +) od od + 


19 
20 
21 
22 
23 007721 
24 
25 
26 
7 


2 26 
28 007727 
29 007730 
30 007731 


= POLL ALL PORTS, 


104207 
020751 


057657 
104200 


000012 
001045 
004514 


170000 


004534 


010365 


001011 
000014 


000016 


001012 
001010 
001010 
001007 


9$: 


10$: 


NOW GET THE PLUG NUMBERS TO TEST AND FIND THEM IN THE TABLE 


BN 
DEVFTL 


RETURN 


#MUTOTST RO 
HOSTRQ 
#1N.01,RO0 
MUNITS ,R1 
(R1) ,Re 


9$ 
#*CHBHINB,R2 
(RO) ,R2 


9$ 

R2,(R1) 

10$ 

R1 

MUNI TS+16.,R1 
8$ 

80, 


(RO) ,R2 
R2,0UT.03 


GET WHAT SUBUNIT NUMBERS TO TEST REQUEST 
GET THE PLUG NUMBERS 

RO POINTS TO UNIT NUMBERS TO TEST 

R1 POINTS TO UDA PORT INFORMATION 

R2 HAS UNIT 

IF NONE, BRANCH 

CLEAR THE 'NOT TESTED BIT’ FOR COMPARISON 
SEE IF IT IS A UNIT TO TEST 

NO MATCH 

SAVE UNIT AS ONE TO TEST 

LOOK FOR THE NEXT ONE 

LOOK AT NEXT UNIT 


; SEE IF ENTIRE TABLE SEARCHED 


IF NOT, BRANCH 
REPORT FATAL ERROR 
MOV #ER80,OUT.04 


MOV #80,0UT.02 
BIS # TLDEV,OUT.02 
MOV #.,O0UT.01 

MOV MERRMC ,R2 

MOV R2,OUT.RQ 


SEND END-OF - TEST TO HOST 
TERMINATE DM 
ERROR eeeeeene 

POINT TO NEXT °° TO TEST 
CHECK NEXT UNI. 

FIND IN UDA ‘PORT INF ORMAT [ON 
RETURN TO CALLING PROGRAM 


SEQ 0385 


| uid beivincanipnntihinnipuinitaesiaadpbln iin 
L 14 

|UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 Hh 12:03 PAGE 92 SEQ 0386 
eeeeeeeeee NON-LOADED OVERLAY, ERROR MESSAGES 


} 
| 1 JSBTTL *#eeeeeee® NON=LOADED OVERLAY, ERROR MESSAGES 
2 FERRARA RA AAR AAA RAAAAAREREREARARAARAEE RARER EAKA ERE EREAE EERE RRA eh 
} 3 FERRARA AARRERAARRRAARARRERE REAR EEE EERERA RARER ERER HEE 
i 4 FRTAAAAARAEAAAAEREAERERA REE REE EEEERAEEEEREERAEEEEEEE EEK EREREEAEREAEE ARERR REE S 
5 a i pan a i et ih ri ha ce octal cm tae tae ip 
6 : 
: : ERROR MESSAGE FORMAT BLFFERS (NEVER LOADED INTO UDA) 
9 007732 DMOVLY ™MS,O ; ERROR MESSAGE OVERLAY 
a 007732 025207 -WREDC Hei ;OUTPUT EDC FOR THIS OVERLAY 
11 042 124 110 “ASCII \"THIS ERROR SHOULD NEVER APPEAR, IF IT DOES, CONTACT’ N\ 
12 000033 042 104 111 “ASCII \"'DIAGNOSTIC ENGINERRING <<SAVE PRINTOUT>>’ N\ 
13 000061 000 “BYTE 0 
14 000062 042 117 125 ER1:  :ASCII_ \‘'QUTSTANDING RESPONSE FROM DRIVE"'\ 
15 000102 042 122 105 “ASCII \''RESPONSE FOUND: SBN 
16 000115 042 106 111 “ASCII \'FIRST SEVEN WORDS PONSE :‘'N\ 
17 000135 042 040 042 “ASCII \'" #91653016520168201652016S201 65201 6N\ 
18 000160 042 122 105 “ASCII \"'REAL TIME DRIVE STATE "H16N\ 
19 000176 042 123 124 “ASCII \"'STATUS: "H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
20 000224 000 “BYTE 0 
21 000225 042 105 122 ER2:  .ASCII_ \''ERROR IN DBN/RBN/LBN TO CYLINDER CONVRSION'N\ 
22 000253 042 040 040 ASCII \"" L/R/DBN BEGIN COMPUTED “D24N\ 
23 000275 042 040 040 ASCII \"' L/R/DBN PER TRACK \ 
24 000317 042 040 040 ASCII \" LBNS PER TRACK IF RBN ‘D8N\ 
2 340 042 040 040 “ASCII \"" STARTING CYLINDER D32N\ 
26 000362 000 “BYTE 0 
27 000363 042 123 105 ER3:  .ASCII \''SEEK DID NOT COMPLETE, NEITHER ATTENTION OR‘ N\ 
28 000412 042 122 105 “ASCII \''READ/WRITE READY WAS ASSERTED BEFORE TIMEOUT’ N\ 
29 000441 042 123 105 “ASCII \"'SEEK FROM cYL "'D28'' GROUP "D8N\ 
30 62 042 040 040 “ASCII \"" TO CYL 'D28"" GROUP DENA 
31 000502 042 122 105 "ASCI? \"REAL TIME DRIVE STATE “HI6N\ 
32 000320 040 123 124 ASCII \" STATUS: "'16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
000547 042 101 126 ERS: ASCII \''ATTENTION ASSERTED AFTER SEEK INITIATED’ N\ 
35 000574 042 123 105 “ASCII \"'SEEK FROM CYL ‘D28'' GROUP ‘D8N\ 
36 000614 042 040 040 “ASCII \"" TO L ‘D28'' GROUP ‘D8N\ 
37 000635 042 111 115 “ASCII \ ‘IMMIDATE ORI Ve STATE ‘DI6N\ 
38 000653 042 122 105 “ASCII \"REAL TIME DRIVE STATE "H16N\ 
39 000671 042 123 124 “ASCII \"'STATUS: 'H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
40 000717 000 “BYTE 0 
41 000720 042 110 105 ERS: ASCII \'HEADER COMPARE FAILURE DURING WRITE’ N\ 
42 000763 042 127 122 “ASCII \'WRITE ATTEMPT RETRIES: ‘D3N\ 
43 000761 042 114 057 “ASCII \"'L/DBN NUMBER =“ D24N\ 
44 000774 042 101 103 “ASCII \"'ACTUAL_L/R/DBN  ''D24N\ 
45 001007 042 124 122 “ASCII \""TRK "D8" = GRP "D8" CYL “D28N\ 
46 001027 042 117 122 ASCII \"'ORIGIN OF LAST SEEK WAS CYL "D28"' GROUP *D8N\ 
47 001056 042 122 105 ASCII] \"REAL TIME DRIVE STATE ‘H16N\ 
48 001074 042 123 124 “ASCII \"'STATUS: ''H16S2416S2H16S2H16S2H16S2H16S2H16N\ 
49 001122 000 -BYTE 0 
50 001123 042 124 111 ER6: ASCII \''TIMEQUT OF DRIVE DURING WRITE ATTEMPT’ N\ 
51 001147 042 127 122 “ASCII \'WRITE ATTEMPT RETRIES: “D3N\ 
52 001165 042 114 057 “ASCII \"'L/DBN NUMBER =“ D24N\ 
53 001200 042 101 103 “ASCII \"ACTUAL {/R/DBN “DO4N\ 
54 001213 042 124 122 ASCII] \"'TRK "D8" P ‘D8’ CYL "D28N\ 
55 001233 042 117 122 “ASCII \' ORIGIN OF LAST SEEK WAS CYL "D28'* GROUP "D8N\ 
56 001262 042 122 105 "ASCII © \"REAL TIME DRIVE STATE “HION\ 





roe - Oe eee 


_weeeeeeeee NON-LOADED OVERLAY, ERROR MESSAGES 
57 001300 042 123 124 


| 
| 
| 59 001327 042 105 103 ER7: 
1341 042 122 105 
| 61 001347 042 114 057 
2 001362 042 101 103 
| 63 001375 042 124 122 
| 64 001415 Que 165 104 
65 001430 042 105 104 
66 001443 000 
67 001444 042 105 103 ERB: 
68 001472 042 122 105 
69 001500 042 116 057 
70 001513 042 101 103 
71 001526 042 124 122 
72 001546 000 
73 001547 042 105 103 ERS: 
74 001605 042 122 105 
75 001613 042 114 057 
76 001626 042 101 103 
77 001641 042 126 122 
78 001661 000 
001662 042 105 103 ER10: 
80 001722 042 122 105 
81 001730 042 114 057 
82 001743 042 101 103 
83 001756 042 124 122 
84 001776 042 105 104 
85 002011 042 105 104 
86 002024 000 


87 002025 042 105 122 ER11: 
000 


89 002057 042 104 101 ER12: 
90 002106 042 114 057 
91 002121 042 101 103 
92 002134 042 126 122 
93 002154 042 120 101 
9% 002167 042S—éi27 106 
95 002210 042 117-106 
002236 123 064 117 
97 002257 —s «123—t—té« 117 
8 002301 000 
99 002302 —- 042 125 116 ER16: 
100 002334 042 123 105 
101 002355 042 040 040 
102 002375 = 042 122 105 
103 002413 042 123 124 
104 002441 
125 116 ERI7: 


ER18: 


ER19: 


M 14 


| UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 92-1 SEQ 0387 
arte  Prrnacne ""H16S2''16S2H16S2H16S2H16S2H16S2H16N\ 
-BY 
ASCII \'ECC aa” Mean ERROR’ N\ 

-ASCII \'RETR N\ 

-ASCII \"L7DBN NUMBER "D24N\ 

eASCII \"'ACTUAL int *“D24N\ 

-ASCII \"'TRK *'D8"' P'*D8'* CYL *D28N\ 

-ASCII \'EDC COMPUTED “O16N\ 

-ASCII \"EDC ""O16N\ 

-BYTE 0 

-ASCII ne he He ERROR, BUT CORRECTION FAILED’ N\ 
ASCII \'RETRY ‘D4N 

-ASCII \''L/DBN BN NUMBER “D24N\ 

-ASCII \"'ACTUAL _L/R/DBN  * D24N\ 

ay — "D8" GRP 'D8’ CYL *D28N\ 

-BY 

at dete aly SH 5 ERROR, BUT CORRECTIONS EXCEED UNIT THRESHOLD’ N\ 
-ASCII \''L/DBN NUMBER "D24N\ 

eASCII \"‘ACTUAL_L/R/DBN 'D24N\ 

"5 Dees K ‘D8"* GRP ‘D8’ CYL *D28N\ 

RY 

ASCII \'ECC ae Taree ERROR, CORRECTED IT, BUT EDC STILL DETECTS ERROR’ N\ 
ASCII \'RETRY ‘D4N\ 

-ASCII \"L/DBN NUMBER "D24N\ 

eASCII \"‘ACTUAL L/R/DBN ‘D24N\ 

eASCII \"'TRK D8" GRP ‘D8 CYL "D28N\ 

-ASCII \'ED * Pha *‘016N\ 

may ; *“O16N\ 

yoo hommes RECOVERY TRIED ALL LEVELS WITHOUT SUCCESS’ N\ 
-ASCII By COMPARISON AGAINST KNOWN PATTERN FAILED’ N\ 
-ASCII \''L/DBN NUMBER *D24N\ 

-ASCII \ ACTUAL iat *D24N\ 

-ASCII \''TRK ‘D8" P ‘D&S’ CYL 'D28N\ 

-ASCII \' PATTERN NUMBER *'D4N\ 

-ASCII \'‘OFFSET OF ERROR WITHIN BUFFER *D8N\ 

-ASCII \"'‘OFFSET OF ERROR WITHIN DISPLAYED LIST “D8N\ 
-ASCII \S4016S4016S4016S4016S4016S4016S4016\ 

rly "acta aiaemtdrertaniiarcin coining 

-BY 

-ASCII \"UNABLE TO RECEIVE REAL TIME peive STATE AFTER SEEK’ N\ 
-ASCII \''SEEK FROM be "D28"' GROUP ‘D8N\ 

ASCII \"' TO ae: i sr *D8N\ 

eASCII \’REAL TIME DRIVES ATE "HI16N\ 

)% 7, are Fy OSoHTGSOHT6SOH1682H16S2H16S2HT6N\ 
-BY 

mai yy \"' UNABLE TO RECEIVE REAL TIME DRIVE STATE’ N\ 
-ASCII \"'ATTEMPT TO WRITE ON WRITE PROTECTED DRIVE’ N\ 
-ASCII \'REAL TIME DRIVE STATE *HI6N\ 

a 5 aN "'H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
-ASCII_ \''HEADER COMPARE FAILURE DURING READ’ N\ 

-ASCII \'READ ATTEMPT RETRIES: “D3N\ 

-ASCII \"'L/DBN NUMBER “D24N\ 





——_ 


-—— -- 


N 14 
|UDAT4 DISK EXERCISER MACRO X04.00 9=JUL=81 Ot: 12:03 PAGE 92-2 SEQ 0388 
| teeeeeeee® NON-LOADED OVERLAY, ERROR MESSAGES 
114 002636 2 101 103 -ASCII \V ACTUAL L/R/DBN | ‘D24N\ 
| 115 002651 042 124 122 ASCII \\"TRK "D8" GRP ‘D8 CYL _‘D28N\ 
116 71 042 117 122 ASCII \' ORIGIN OF LAST SEEK WAS CYL "D28°' GROUP ‘D8N\ 
117 042 122 105 -ASCII \'REAL TIME DRIVE STATE ‘'H16N 
118 Que 123 124 “ASCII \STATUS: "'16S2H16S2H16S$2H16S2H16S2H16S2H16N\ 
120 042 124 111 ER20: ASCII \\"TIMEOUT OF DRIVE DURING READ ATTEMPT’ N\ 
121 042 122 105 -ASCII \'READ ATTEMPT RETRIES: ‘D3N\ 
122 042 114 057 .ASCII \''L/DBN NUMBER “DDAN\ 
123 042 101 103 ASCII \'ACTUAL _L/R/DBN  'D24N\ 
124 042 124 122 -ASCII] \"‘TRK “D8"' GRP ‘D8 CYL _‘D28N\ 
125 042 117 122 -ASCII \‘ORIGIN OF LAST SEEK WAS CYL ‘D28"' GROUP ‘D8N\ 
126 042 122 105 -ASCII \'REAL TIME DRIVE STATE ‘H16N\ 
? O42 123 124 ASCII \"'STATUS: yn eSoHeeon 6S2H16S2H16S2H16S2H16N\ 
1 O42 125 116 ER21: ASCII \" UNABLE TO BRING DRIVE ONLINE/CHANGE MODE/CLEAR ERRORS FOR TEST’ N\ 
1 042 105 103 ER23: ASCII \'ECC DETECTED ERROR IN BUFFER AND CORRECTED IT'N\ 
1 042 122 105 ASCII \'RETRY ‘D4N 
1 042 114 057 -ASCII \''L/DBN NUMBER 'D24N\ 
i 042 101 103 ASCII \"‘ACTUAL | /R/DBN ‘D24N\ 
1 042 124 122 ASCII \''TRK ‘D8"' P ‘D8’ CYL *D28N\ 
1 000 BYTE 0 
1 042 105 104 ER24: .ASCII \'EDC DETECTED ERROR IN BUFFER BUT ECC DID NOT'N\ 
1 042 122 105 -ASCII \'RETRY ‘D4N\ 
042 114 057 -ASCII \"'L/DBN NUMBER 'D24N\ 
042 101 103 -ASCII \'‘ACTUAL L/R/DBN 'D24N\ 
042 124 122 -ASCII \''TRK ‘D8’ GRP ‘D8’ CYL ‘D28N\ 
042 105 104 ASCII \ EDC COMPUTED “O16N\ 
042 105 104 -ASCII \'EDC READ “O16N\ 
000 .BYTE 0 
042 101 124 ER25: ASCII \, ATTEMPTED WRITE MAXIMUM NUMBER OF TIMES'N\ 
942 114 057 -ASCII \''L/DBN NUMBER 'D24N\ 
O42 101 103 “ASCII \*ACTUAL L/R/DBN ‘"D24N\ 
-BY 
042 101 124 ER26: .ASCII \‘'ATTEMPTED READ MAXIMUM NUMBER OF TIMES’ N\ 
042 114 057 -ASCII \''L/DBN NUMBER *D24N\ 
O42 101 103 “ASCII \ACTUAL L/R/DBN *D24N\ 
042 123 105 €R27: ASCII \*''SEEK COMMAND RECIEVED UNSUCCESSFUL RESPONSE" N\ 
042 101 103 ASCII \'ACTUAL _L/R/DBN | ‘'D24N . 
042 124 122 -ASCII \''TRK ‘D8°’ GRP ‘D8 Lo D28N\ 
042 122 105 ASCII \ REAL TIME DRIVE STAT 
042 123 124 “ASCII \"'STATUS: TUR GS OTS oIGSONT OS 2H16S2HI6SOMTON\ 
042 122 105 ER28: .ASCII \'RECEIVER READY NEVER ASSERTED AFTER INIT’ N\ 
Oe 122 105 “ASCII \"REAL TIME DRIVE STATE ‘'016N\ 
042 125 116 ER29: ASCII \" UNABLE TO GET REAL TIME DRIVE STATE AFTER DRIVE INITIALIZE’ N\ 
042 122 105 ER30: .ASCII \'READ/WRITE READY DROPPED, BEF ORE WhITE’N\ 
042 127 122 ASCII] \'WRITE ATTEMPT RETRIES: ‘T3N 
042 114 057 -ASCII \''L/DBN NUMBER N\ 
042 107 122 -ASCII \''GRP ‘DB’ =CYL "'D2BN\ 
042 117 122 -ASCII \'ORIGIN OF LAST SEEK WAS CYL ‘D28'* GROUP *D8N\ 
042 111 115 -ASCII \"‘IMMIDATE STATE "O16N\ 
042 122 105 ASCII \"REAL TIME DRIVE STATE *H16N\ 





seneniatniieminiapenntitisiiemmbinienmmmininmmiens ———+ 
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B15 | 
“UDAT4 DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 92-3 SEQ 0389 r 
teaaeeseex NON-LOADED OVERLAY, ERROR MESSAGES A 


| 
| 
171 004220 42——i—si123—s«*i1H LASCII\"'STATUS: ''H16S2H16S2H16S2H16S2H1652H16S2H16N\ | 
| 172 006246 ~=—_:000 “BYTE 0 | 
| 173. 004247—s«42——(‘é‘éi22+~S*é«*0SsS*ER'31: CASI \"'READ/WRITE READY DROPPED BEFORE READ'N\ | 
| 174 006272 = 42st?‘ "ASCII \'READ ATTEMPT RETRIES: ‘D3N\ | 
| 175006310 042 114 057 ASCII \"'L/DBN NUMBER 24 
| 126 006323 (O42 —(isid07—~S—S—é«*CT ASCII \''GRP "D8 CYL 'D2BN\ | 
| 477 OO6S%HCR CC TIP Ne ASCII \‘'ORIGIN OF LAST SEEK WAS CYL ‘D28'' GROUP "D8N\ | 
| 178 004365 = (062s 115 TASCII \"IMMIDATE STATE "D1ON | 
| 179004377, (042———iéia22?SSs«*2088 ASCII \'REAL TIME DRIVE STATE ‘H16N\ 

180 004415 042 = 123—Ss«*1:26 ASCII \"'STATUS: ''H16S2H16S2H16S2H16S2H16S2H16S2H16N\ | 
| 181 004443 = (000 “BYTE 0 

182 004444 042 11 116 ER32: “ASCII \"INSUFFICIENT BUFFER MEMORY FOR READ/WRITE BUFFERS''\ | 

183 004475 042 124 110 "ASCII \''THIS ERROR SHOULD NEVER APPEAR, CONTACT DIAGNOSTIC’ 

004527 042 mw 43 "ASCII \"'SUPPORT <<SAVE PRINTOUT>>''\ 

185 004545 000 “BYTE 0 

186 004546 042 103 110 €R33:  -ASCII \''CHECKSUM ERRORS WHEN READING OVERLAYS FROM HOST MEMORY’ N\ 

187 004602 042~—Ss122-—Sst«~228S “ASCII \"RUN TEST 1 TO INVESTIGATE PROBLEM’ N\ 

188 004624 600 "BYTE 0 

189 004625 042 101 114 ER40: ASCII \‘'ALL COPIES OF RCT READ WITH ERROR, UNABLE TO FIND RBN TO'N\ 

190 004663 042——(iéid?S—s«é1088 "ASCII \'' REPLACE REVECTORED LBN'N\ 

191 004677 (42t—«éi01*2 103 "ASCII \''LAST RCT LBN SEARCHED: ‘D24N\ 

192 004716 042 123 195 “ASCII \"'SEARCING FOR LBN: “D24N\ 

193 004734 000 “BYTE 0 

194 004735 042 101 114 ERG1: .ASCII \'‘ALL COPIES OF RCT READ WITH ERROR, UNABLE TO FIND RBN TO'N\ 

195 004773 042 122 105 "ASCII \"'REPLACE _LBN WITH HEADER COMPARE ERROR’ N\ 

196 005017 (042——«éd1*2048 101 TASCII \"'LAST RCT LBN SEARCHED: ‘D24N\ 

197 005035 042 123 105 “ASCII \"'SEARCING FOR LBN: “D2GN\ 

198 005054 000 "BYTE 0 

199 005055 042 101 114 ER42: ASCII \'‘ALL COPIES OF RCT READ WITH ERROR, UNABLE TO FIND RBN TO'N\ 

200 005113 042 122 105 -ASCII \''REPLACE LBN WITH TIMEOUT ERROR’ N\ 

201 005133 = 042—iéi2CG 101 TASCII \''LAST RCT LBN SEARCHED: ‘D24N\ 

202 005152. (042—Ss—i(ié‘d123~C—=C*é‘«‘NS ASCII \''SEARCING FOR LBN: ‘D24N\ 

203 005170 000 “BYTE 0 

204 005171 042 105 116 ER43: ‘ASCII \"ENTIRE RCT AREA SEARCHED, COULD NOT FIND RBN TO REPLACE’ N\ 

205 005226 042 122 105 TASCII  \"'REVECTORED LBN'N\ 

206 005236 042 123 105 "ASCII \"'SEARCING FOR LBN: “D24N\ 

207 005255 000 “BYTE 0 

208 005256 042 105 116 ER44: “ASCII \"'ENTIRE RCT AREA SEARCHED, COULD NOT FIND RBN TO REPLACE’ N\ 

209 005313 = «042—i—i‘é‘z0*2CG 102 "ASCII \"'LBN WITH HEADER COMPARE ERROR’ N\ 

210 00533 042 123 105 "ASCII \"'SEARCING FOR LBN: =. “'D24N\ 

211 005351 000 “BYTE 0 

512 005352. (O42—i(‘é‘z;OS;) =O EGS: ~—- ASCII. \"ENTIRE_RCT AREA SEARCHED, COULD NOT FIND RBN TO REPLACE’ N\ 

213 005407 © 042—t—é«~2'4 102 "ASCII \"'LBN WITH TIMEOUT ERROR’ N\ 

214 005423 = 042—(‘é‘z12B;~C~*«é«C2S "ASCII \"'SEARCING FOR LBN: 

215 005442 000 “BYTE 0 

516 005443 042 102 105 ERSO: ASCII \'BEGIN/END SET STA TINS BLOCK NUMBER GREATER THAN’ N\ 

217 005474 O42 105 116 “ASCII \"'ENDING BLOCK NUMBER’ N\ 

218 005507 ~—-000 “BYTE 0 

519 005510 042 102 105 ER51: ASCII \'BEGIN/END SET STARTING BLOCK NUMBER LESS THAN OR'N\ 

220 005541 062 105 ~~ 121 "ASCII \"EQUAL TO THE PREVIOUS ENDING BLOCK NUMBER (GVERLAP)‘N\ 

221 005574  —-000 ‘BYTE 0 

222 005575 042 114 101 ERS2: ‘ASCII \‘LAST BEGIN/END SET ENDING BLOCK NUMBER GREATER THAN’ N\ 

223 005630 042 115 101 ASCII \'MAXIM 

224 005635 042 115 101 "ASCII \"MAXIMUM POSSIBLE BLOCK NUMBER: "D24N\ 

225 00565 000 BYTE 0 

66 042 104 125 €R53: ASCII \'DUPLICATE BAD BLOCKS'N\ 


226 005660 . 
227 005673 000 BYTE 0 





C 15 
“uDAT4 DISK EXERCISER MACRO xX04.00 9=JUL=81 01:12:03 PAGE 92-4 SEQ 0390 
| weeeeeeeee NON=LOADED OVERLAY, ERROR MESSAGES 


228 005674 042 114 101 R54: ASCII \‘'LAST BAD BLOCK NUMBER EXCEEDS MAXIMUM’ N\ 
229 005720 042 115 101 .ASCII \'MAXIMUM POSSIBLE BLOCK NUMBER: "De4n\ 
230 005742 000 .BYTE O 
| 231 005743 042 125 116 ER55: ASCII \"UNABLE TO RECEIVE REAL TIME DRIVE STATE BEFORE WRITE’ N\ | 
2 5776 042 127 122 ASCII \' WRITE ATTEMPT RETRIES: 3N\ 
233 006015 042 114 057 -ASCII \7L/DBN NUMBER 24 
234 006030 042 107 122 -ASCII \''GRP ‘D8’ = CYL “D28N' 
235 042 042 117 122 .ASCII \''ORIGIN OF LAST SEEK WAS CYL 'D28'' GROUP ‘D8N\ 
236 006071 042 122 105 -ASCII \'REAL TIME DRIVE STATE ‘'H16N\ | 
237 107 042 123 124 -ASCII. \''STATUS: F449 GSOH1 5241 6S2H16S2H16S2H16S2H16N\ | 
238 006135 000 .BYTE 0 
239 006136 042 125 116 ER56: ASCII "UNABLE TO RECEIVE REAL TIME DRIVE STATE BEFORE READ’ N\ 
240 006171 042 122 105 ASCII \''READ ATTEMPT RETRIES: ‘D3N\ 
241 006207 042 114 057 ASCIJ \''L/DBN NUMBER pogeN \ 
242 006222 042 107 122 -ASCIL \''GRP ''DB"' L 'D28N\ 
243 00623 042 117 122 -ASCI: \'ORIGIN OF LAST SEEK WAS CYL. 'D28'' GROUP ‘D8N\ 
244 006263 042 122 105 -ASCII \'REAL TIME DRIVE STATE ‘H1 
245 006301 042 123 124 .ASCII. \''STATUS: FCS oH ISOM 6SoH1682H1652H16S2H16N\ 
246 006327 000 .BYTE 0 
247 006330 042 117 126 ER57: ASCII \''OVERFLOW WHEN CALCULATING THE STARTING/ENDING L/DBN' N\ 
24 042 106 122 ASCII \''FROM THE GIVEN STARTING/ENDING CYLINDER’ N\ 
249 006410 042 103 131 .ASCII \''CYLINDER TOO LARGE’ N\ 
250 006422 000 .BYTE O 
251 006423 042 115 101 ER5S8: ASCII \' MAXIMUM TRACK/GROUP, GIVEN EXCEEDS MAXIMUM FOR DEVICE’ N\ 
252 006456 2 124 122 -ASCII \''TRACK/GROUP GIVEN: ‘D8N\ 
253 006472 042 115 101 -ASCII. \' MAXIMUM TRACK/ GROUP ON DEVICE: ‘D8N\ - 
254 006514 000 BYTE 0 
255 006515 042 124 127 ERS9:  . ASCII \''TWO IDENTICAL TRACKS/GROUPS GIVEN’ N\ 
256 006537 000 .BYTE 
257 006540 042 105 116 ER61:  .ASCII  \''ENDING LBN COMPUTED FROM ENDING CYLINDER GIVEN EXCEEDS’ N\ 
258 006574 042 115 101 -ASCII \'MAXIMUM LBN NUMBER ON DEVICE. IF YOU SPECIFIED THE LAST’ N\ 
259 006632 042 103 131 -ASCII \''CYLINDER ON THE DEVICE, THE REVECTOR TABLE STARTS WITHIN’ N\ 
260 006667 042 124 110 -ASCII \''THE CYLINDER SPECIFIED. IF SO, THE MAXIMUM CYLINDER YOU CAN’ N\ 
261 727 042 124 105 -ASCII. \'‘TEST IS ONE LESS THAN THE MAXIMUM, OR TEST THE ENTIRE AREA’ N\ 
262 006765 000 .BYTE 0 
263 0067 042 105 116 ER62:  .ASCII \''ENDING DBN COMPUTED FROM ENDING CYLINDER GIVEN EXCEEDS’ N\ 
264 007022 042 115 101 -ASCII \'MAXIMUM DBN NUMBER ON DEVICE. IF YOU SPECIFIED THE LAST’ N\ 
265 00706 042 103 131 -ASCII \''CYLINDER IN THE DIAGNOSTIC AREA, THE READ ONLY GROUPS START’ N\ 
66 007117 042 127 111 ASCII \'WITHIN THE CYLINDER SPECIFIED. IF SO, THE MAXIMUM CYLINDER’ N\ 
267 007156 042 131 117 "ASCII \"'YOU CAN TEST IS ONE LESS THAN THE MAXIMUM, OR TEST THE’ N\ 
268 097212 042 105 116 -ASCII \''ENTIRE DIAGNOSTIC AREA’ N\ 
269 007227 000 .BYTE 0 
270 007230 042 124 111 ER70: ASCII \''TIMEOUT OF UDA SEND'N\ 
271 007243 122 061 eASCII \R1\ 
272 007244 042 122 105 ASCII \''REAL TIME DRIVE STATE ‘H16N\ 
273 007262 042 123 124 -ASCII \''STATUS: ''H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
274 007310 000 BYTE O 
275 007311 042 124 111 ER71: ASCII \"'TIMEOUT OF UDA RECEIVE’ N\ 
276 007325 122 061 -ASCII \R1\ 
277 007326 042 122 105 -ASCII \'REAL TIME DRIVE STATE ‘'H16N\ 
278 007344 042 123 124 ASCII. \''STATUS: ''H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 
279 007372 000 BYTE O 
280 007373 042 106 111 ER72: ASCII \'FIRST WORD RECEIVED BY UDA WAS NOT A START FRAME'N\ 
281 007424 122 061 -ASCII \R1\ 
282 007425 042 122 105 ASCII \''REAL TIME DRIVE STATE ‘'H16N\ 
283 007443 042 123 124 -ASCII \"'STATUS: "H16S2H16S2H16S2H16S2H1652H16S2H16N\ 
284 007471 000 .BYTE O 
{ 





a 
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| UDATS DISK EXERCISER MACRO X04.00 9=-JUL=81 01:12:03 PAGE 92-5 
| weeeweeeee NON-LOADED OVERLAY, ERROR MESSAGES 


285 007472 
286 007514 


306 010054 


WNWNWAWAWGW 
ah eed ach al a eld ead cad cad 
WON WR 

oO 

= 

oO 

N 

= 

N 


33 
333 010572 


106 
061 


ie ——t Ooms 
OO MMMANM MMAM NMMAO hr 
WRM—NM WM WR AWW Wl 


~ _— sO — 3 


— 


101 


122 


105 
124 


110 


105 
124 


105 


ER73: 


ER74: 


ER75: 


ER76: 


SERO: 
SER1: 
SER2: 
SER3: 
SER4: 
SERS: 
SER6: 
SER7: 
SERB: 
SER9: 
ER80: 


ER100: 





a ERROR ON SDI LEVEL 0 READ'N\ 


\"REAL TIME DRIVE STATE ‘'H16N\ 
\''STATUS: ''H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 


a ERROR ON SDI LEVEL 0 READ'N\ 


REAL TIME DRIVE STATE ‘'H16N\ 
"STATUS: ''H16S2H16S2H16S2H16S2H16S2H16S2H16N\ 


oe BUFFER SIZE SMALLER THAN RESPONSE’ N\ 
\"'REAL TIME DRIVE STATE ‘'H16N\ 
“STATUS: ''H16S2416S2H16S2H16S2H16S2H16S2H16N\ 


a OF SDI COMMAND NOT AS EXPECTED’ N\ 
\" RESPONSE RECEIVED : 


-- 


Orrz7-7O 


o-7 


\""ATTEMPTING TO DO GET STATUS COMMAND’ N\ 

\"'ATTEMPTING TO DO DRIVE CLEAR COMMAND’ N\ 

\""ATTEMPTING TO DO ONLINE COMMAND’ N\ 

\"'ATTEMPTING TO DO CHANGE MODE COMMAND’ 'N\ 

\"‘ATTEMPTING TO DO ERROR RECOVERY COMMAND’ N\ 

\""ATTEMPTING TO DO GET SUBUNIT CHARACTERISTICS COMMAND’ N\ 
\"‘ATTEMPTING TO DISCONNECT DRIVE’ N\ 

\"‘ATTEMPTING TO RECALIBRATE DRIVE’ N\ 

\""ATTEMPTING TO GET COMMON CHARACTERISTICS’ N\ 
\"'ATTEMPTING TO INITIATE SEEK'N\ 


\"'UNABLE TO FIND ALL UNITS REQUESTED FOR TESTING. RUN'N\ 
\"'TEST 3 TO FIND WHAT IS VISIBLE ON THE FOUR UDA PORTS'N\ 


0 
\"'SUBUNIT DROPPED FROM TESTING’ N\ 

\"'RUN OR PORT roe OUT, OR SPINDLE DROPPED READY’ N\ 
\"'REAL TIME DRIVE STATE “O16N\ 

2 Fares "'016S2016S2016S2016S2016S2016S2016N\ 


SEQ 0391 


Gees pani sininia PF ASHE NR AS SO oe So oe a 
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“UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 93 

_TNFORMATIONAL MESSGES 
| t .SBTTL INFORMATIONAL MESSGES 
| 3 : : MESSAGES 
5 010573 116 042 117 MST: JASCIZ. \NINITIAL WRITE COMPLETE’ N\ 
| 6 010610 —«000 "BYTE 

? 010611 116 042 101 MS2: [ASCII \N''ALL INITIAL WRITES COMPLETE. 

B 010642 000 "BYTE 0 


TESTING HAS BEGUN’ N\ 


SEQ 0392 


—— _ ae = - _ ee 


-UDATS DISK EXERCISER MACRO K04.00 9=JUL=81 01:12:03 PAGE 94 SEQ 0393 
INFORMATIONAL MESSGES 
1 010643 DMOVLY ST, AREAO 
010643 130743 ~WRoOC ;OUTPUT EDC FOR THIS OVERLAY 
| 2 LSBITL «xeeeneeee OVERLAY 1 - SETUP OPERATION TO BE DONE THIS PASS 
3 PERRET RARER ERE EERE EERE EE EEE 
4 PERERA RRR RAE TEER EERE ERE EEEEEREREEEEEEEEE E EE e 
5 PERE EERE EERE EERE EERE EEE EEE EES 
| 6 RARER ERR EEE EER EERE EERE EERE EERE EEE EER EERE EEE EEE 
i 7 r 
: ; 
| 10 000001 SETUP = 1. ; SETUP OVERLAY 
j " 
| 12 “3 SETUP CLEARS ALL ERROR BITS, THE ERROR COUNT, FINDS THE NEXT 
13 -y LBN TO BE READ OR WRITTEN, DESIDES TO READ OR WRITE, CALCULATES 
| 3 : ey CYLINDER, TRACK AND GROUP THE LBN RESIDES ON; THEN CALLS 
bs K. ; 
16 ; 
17 004515 DIAG$$ pO ot itt 
006515 115000 002766 TST $$D JAG+$D 1 AG$ 
004517 014525 BEQ -+6 
004520 104207 060090 MOV #60000 ,RO 
004522 100707 176242 MOV RO, a$$D IAG+$D [AGS 
004524 004525 BR a*t 
18 004525 104657 000021 MOV U.CSEC (RS) ,RO : GET TOTAL NUMBER OF SECTORS ALLREADY R/W 
19 004527 105657 000016 ADD U.NSEC (RS) ,RO ; ADD HOW MANY R/W THIS PASS 
20 004531 106657 000020 CMP U.TSEC(R5) ,RO ; SEE IF ALL DONE 
21 004533 014565 BEQ 2s ; IF SO, BRANCH (NEW OPERATION) 
22 004534 100657 000021 MOV RO,U.CSEC(R5) ; SAVE CURRENT COUNT 
23 004536 104657 000037 MOV U. CBN(R5) ,RO ; GET LBN 
24 004540 105657 000016 ADD U.NSEC(R5) ,RO ; ADD NUMBER OF SECTORS R/W THIS PASS 
25 004542 100657 000037 MOV RO,U. CBN(R5) : SAVE 
26 004544 044552 BCC 1$ : IF NO CARRY, BRANCH 
27 004545 104657 000040 MOV U.CBN+1(R5),RO ; GET HI LBN 
28 004547 115407 INC R ; PROPOGATE CARRY 
29 004550 100657 000040 MOV RO,U.CBN+1(R5) ; SAVE 
30 004552 114002 1$: CLR R2 ; NO ERRORS 
31 004553 104651 000033 MOV U.PARM(R5) ,R1 ; GET UNIT PARAMETERS 
32 004555 102201 000224 BIT #RBNBN ' DATERR! RETRY R1 ; SEE IF REVECTORED BLOCK OR DATA ERROR 
33 004557 014650 BEQ ay ; IF NOT, BRANCH 
34 004560 104207 000001 MOV -RO : ONLY READ/WRITE ONE SECTOR 
35 004562 100657 000017 MOV ROU. MSEC(RS) 3; SAVE 
36 004564 004702 BR 3 ; EXIT -- SEEK 
37 004565 104657 000033 2$: MOV U.PARM(R5),RO 3; GET UNIT PARAMETERS 
38 004567 102207 000010 BIT MWCHECK RO : SEE IF WRITE CHECK IS TO BE DONE 
39 004571 014577 BEQ 5$ IF NOT, BRANCH 
40 004572 103207 000114 BIC MWCHE CK !REDWRT !RETRY, RO ; CLEAR WRITE CHECK, MAKE OPERATION READ 
41 004574 100657 000033 MOv RO,U.PARM(RS) 3; SAVE 
42 004576 004635 BR 6$ ; BRANCH 
43 004577 104641 00G000 5$: MOV S.PARM(R4) ,R1 ; GET SUBUNIT PARAMETERS 
44 004601 102201 040100 BIT #SEQSEK! INI TW, R1- : SEE IF SEQUENTIAL SEEKS 
45 004603 054615 BNE 7$ ; IF SO, BRANCH 
46 004604 102207 004000 BIT #NEWSUB , RO : SEE IF NEW SUBUNIT 
47 004606 054615 BNE 7$ 3; IF SO, BRANCH 
48 004607 101207 004000 BIS #NEWSUB , RO 3 FLAG AS NEW SUBUNIT 
49 004611 100657 000033 MOV RO,U.PARM(RS) 3 SAVE 
50 004613 114002 CLR R2 : NO ERRORS 
51 004614 004625 isi 11$ ; EXIT 


eee CC CC CC CC CL LL 


G 15 


UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 94-1 
eeeneneeee OVERLAY 7 = SETUP OPERATION TO BE DONE THIS PASS 


52 004615 


VRARAVLS SHVSRARAVVSSSVEALARTISSSVRAL 
2 
R 
ao 
RK 
oOo 


88 004705 


02470€ 


003127 


000033 
004000 


000001 


000035 
000037 
000036 
000040 


000021 


000100 
002353 
002353 
002354 
002354 


000017 
000002 


7$: 


11$: 
19$: 


6$: 


15$: 


NXTSEC 
Re 


11$ 
U.PARM(R5S) ,R1 
A#NEWSUB ,R1 


10$ 
ASETUP,RO 
4$ 


DCOMP 
U.MBN(R5) ,RO 
RO,U.CBN(R5) 
U.MBN+1(R5) ,RO 
"ae mmbai amt 


R2,U.CSEC(R5) 
R2,U.RBN(R5) 
R2,U.RBN+1(R5) 
U. TSEC (RS) ,RO 
U.CSEC(R5) ,RO 
U.PARM(R5) ,R1 
#MREDWRT,81 

13$ 


SECMAX ,RO 
14$ 
SECMAX ,RO 
14$ 
CHNMAX , RO 
14$ 
CHNMAX , RO 
RO,U.MSEC(R5) 
A#SEEK,RO 
R1 

JMPRE T 


GET NEXT LBN 

SEE IF AN ERROR OCCURRED 

IF SO, BRANCH 

GET UNIT PARAMETERS 

SEE IF NEW SUBUNIT 

IF NOT, BRANCH 

eat iS NEXT MODULE CALLED 


x] 
CLEAR ERROR COUNT AND VARIOUS PARM BITS 
SEE IF READ OR WRITe 
FIND PATTERN TO WRITE 
SEE IF WRITE CHECK WILL BE DONE 
SEE IF DATA COMPARE WILL BE DONE 
GET LO LBN 


SAVE 

GET HI LBN 

SAVE 

NO ERRORS 

SECTORS R/W IS ZERO 

ZERO RBN NUMBER 

axakeeeee TAKE OUT AFTER ROUTINE 3 IS IMP. 
GET TOTAL NUMBER OF SECTORS TO R/W 
SUBTRACT HOW MANY DONE 


GET UNIT PARAMETERS 
SEE IF WRITE IS IN PROGRESS 


IF SO, BRANCH 
SEE TF jit. TO READ MORE THAN POSSIBLE 
ae _ TO MAXIMUM POSSIBLE SECTORS TO READ 


BRAN 
SEE IF TRYING TO WRITE MORE THAN POSSIBLE 
IF NOT, BRANCH 

SET RO TO MAXIMUM POSSIBLE SECTORS TO WRITE 
SAVE_IN NUMBER OF SECTORS TO R/W THIS PASS 
POINT TO ae AS NEXT OPERATION 

IMMIDATE CAL 


; RETURN TO SEQUENCER 


SEQ 0394 


H 15 
| UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 95 SEQ 0395 
ONXTSEC = FIND THE NEXT STARTING SECTOR TO READ/WRITE 


1 .SBTTL NXTSEC = FIND THE NEXT STARTING SECTOR TO READ/WRITE 
| 2 004706 NXTSEC: 
| 4 : NXTSEC WILL SEE IF THE SECTORS ARE COMPUTED LIMITED BY BEGIN/END 
5 ; SETS OR TRACK/GROUP SETS, AND CALL THE CORRECT MODULE TO COMPUTE THE 
| g : NEXT SECTOR 
| 8 004706 104647 000000 MOV S.PARM(R4),RO _; GET SUBUNIT PARAMETERS 
9 004710 102207 040100 BIT #SEQSEK! INI TwW,RO ; SEE IF BN'S ACCESSED SREQUENTIALLY 
10 004712 054730 BNE 2$ ; IF _SO, BRANCH 
11 004713 104651 000033 MOV U.PARM(R5).R1 ; GET UNIT PARAMETERS 
| 12 004715 103201 004000 BIC #NEWSUB R11 : CLEAR NEW SUBUNIT FLAG 
| 13004717 100651 000033 MOV R1,U.PARM(R5) : SAVE 
| 14 004721 102207 000040 BIT #BEUSED ,RO > SEE IF BEGIN/END SETS USED 
15 006723 014726 BEQ 1$ : IF NOT, BRANCH 
16 004724 024741 CALL RNDBE : GET A RANDOM BLOCK NUMBER (BEGIN/END SETS) 
17 004725 004737 BR 5$ : EXIT 
18 004726 025475 1$: CALL —_- RNDTG : GET A RANDOM BLOCK NUMBER (TRACKS/GROUPS) 
19 004727 004737 35 > BRANCH 
20 004730 102207 000040 2$: BIT #BEUSED RO > SEE IF BEGIN/END SETS USED 
21 004732 014736 BEQ 3$ : IF _NOT, BRANCH 
2 004733 025117 CALL  SEQBE > GET A SEQUENTIAL BLOCK NUMBER (BEGIN/END SETS) 
23 004734 114002 CLR Re > NO ERRORS *xeeene 
24 004735 004740 BR 4$ : EXIT (SHOULD BRANCH TO 7$) **##00«* 
25 004736 025641 3$: CALL  SEQTG > GET A SEQUENTIAL BLOCK NUMBER (TRACKS/GROUPS) 
26 004737 114002 5$: CLR Re : NO_ERRORS 
27 004740 000000 4$: RETURN ; RETURN TO CALLING PROGRAM 





I 15 
“WOATs DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 96 SEQ 0396 
RNDBE = FIND A RANDOM STARTING SECTOR USING BEGIN/END SETS 


1 .SBTTL RNDBE = FIND A RANDOM STARTING SECTOR USING BEGIN/END SETS 
; 004741 RNDBE : 
‘ : RNDBE GETS A RANDOM LBN NUMBER 
| ° 
§ . GET A RANDOM BEGIN/END SET FROM THE SUBUNIT'S B/E SETS 
| ° 
8 004741 114007 CLR RO : INITILIZE COUNTER 
9 004742 104203 000014 MOV #S.BESS+3,R3 + R3 POINTS TO FIRST B/E SET 
10 004744 105043 ADD R4,R3 + R3 POINTS TO FIRST B/E SET 
11 004745 104132 CNTLOP: MOV (R3) ,R2 : MOVE EOL FLAG WORD TO R2 
12 004746 074753 BM! COUNTD : IF END-OF=-LIST, BRANCH 
| 13 004747 105203 000004 ADD #4,R3 : POINT TO NEXT EOL WORD 
14 004751 115407 INC R > INCREMENT COUNT 
15 006752 004745 BR CNTLOP + IF NOT, TRY AGAIN 
16 004753 115007 COUNTD: TST RO ; SEE IF COUNT = 0 
17 004754 014775 BEQ GOTOFS ; IF SO, BRANCH 
18 004755 026475 TRYAGN: CALL RANDOM : GET A RANDOM NUMBER 
19 004756 103201 177774 BIC #177774,R1 ; MASK OUT ALL BUT 2 LOWEST BITS 
20 004760 106207 000002 CMP #2,R0 ; TEST HOW COUNT RELATES TO 
21 004762 074772 BMI GOT OBE : IF COUNT IS 3, BRAN CH 
004763 014767 BEQ HREBE : IF COUNT IS 2, BRANCH 
23 004764 103201 177776 BIC r137776.R1 > MASK OUT ALL BUT LOWEST BIT 
24 004766 004772 BR GOTOBE : BRANCH 
25 004767 106201 000002 THREBE: CMP #2,R1 : SEE IF RANDOM NUMBER OVER 2 
26 006771 074755 BMI TRYAGN : IF SO, GET ANOTHER NUMBER 
27 004772 104017 GOTOBE: MOV R1,RO : MOVE RANDOM NUMBER TO RO 
28 004773 105077 ADD RO,RO : ROX 2 
29 004774 105077 ADD 0,R0 : ROX 2 
30 004775 105207 000011 GOTOFS: ADD #S.BESS,RO : POINT TO RANDOM BEGIN/END SET 
31 004777 105047 ADD RO : POINT TO RANDOM BEGIN/END SET 


— oes sirens 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 97 
| RNDBE = FIND A RANDOM STARTING SECTOR USING BEGIN/END SETS 


MAS wN— 


005000 100464 


117407 
005014 100467 


ee etd ot 


106053 
005025 045027 


hor ti-——-—-— 
WN —OOCONA NWFWRY-COMOND 
So oooo Oo 
8 8 888s 83888888888888888 
Leal Fa) wv wi wu SW 
oO lelelelele) 
NN =_— — 
+ AUIS LW 
— o— 
oO _ 
W ww 
Oo oo 
N NO 
Ww mw 


39 005046 115403 
40 005047 104171 
41 005050 103201 
42 005052 105013 
43 005053 

005053 104265 

005054 104264 
44 005055 107207 
45 005057 104271 
46 005060 104177 
47 005061 107021 


170000 


170000 


000003 


NOBORO : 


RNDLPO: 


ONEREG: 


ONCE A RANDOM B/E SET HAS 


WITHIN THAT B/E SET 


PUSH 


MASKLO: MOV 


RNDLP1: 


CLCLBN: 


NOCARY: 


<R4,R5> 


(RO) +,R4 
(RO) +,R5 
(RO) +,R4 
SS 


(RO), 
#170600, R1 


RO 


RNDLP1 
R1,R2 
RO 


(RO) +,R2 
NOCARY 

R3 

(RO), 
#170600, Rl 


Vy R4> 
#3,R0 
(RO)+,R1 


(RO) ,RO 
R2,R? 


SEQ 0397 


BEEN FOUND, FIND A RANDOM LBN 


; SAVE R4& AND R5 


MOV R4,=-(SP) 
MOV R5,=-(SP) 
R4 GETS LO ORDER ENDING LBN 
RS GETS HI ORDER ENDING LBN 
SUBTRACT LO ORDER  Miggesl ag LBN 


ADJUST FOR BORROW 
GET HI WORD 

STRIP OFF EOL FLAG (IF ANY) 
SUBTRACT HI ORDER STARTING LBN 
POINT iy LO ORDER STARTING LBN 


SAVE R 
MOV RO,-(SP) 
SEE IF R5 S _— 
IF SO, BRAN 
MOVE RS TO RO TO COMPUTE MASK 
COMPUTE RANDOM + foe MASK 


MASK OUT HIGH BITS 
COMPARE MAXIMUM RANDOM NUM TO RANDOM NUMBER 
IF MAX RND NUM < RANDOM eel tens > 
.+ 
tf nares BR RNDLPO 
GET ANOTHER RANDOM NUMBER 
BRANCH 
ZERO R3 
MOVE R4 TO RO TO COMPUTE MASK 
COMPUTE MASK 
GET A RANDOM NUMBER 
MASK OUT HIGH BITS 
SEE IF MAX RND NUM < RANDOM NUMBER 
IF MAX RND NUM < RANDOM ecotwnge OS prs: 


BR RNDLP1 
MOVE RANDOM NUMBER TO R2 
RESTORE RO 

MOV (SP)+,RO 
ADD LO ORDER Can BLOCK TO RANDOM NUM 


IF NO CARRY, BRAN 
ADJUST HIGH ORDER FOR CARRY 
MOVE HI ORDER LBN TO R1 
STRIP OFF EOL FLAG IF ANY 
ADD HI ORDER LBN 
RESTORE RS, RS 
MOV (SP)+,R5 
MOV (SP)+,R4 
RQ POINTS TO ENDING 
R1 HAS LO ORDER END 
RO HAS HI] ORDER END 


SUBTRACT LO L8N FROM LO ENDING LBN 


48 005062 


61 005101 





UDATS oy Ege bea MACRO X04.00 9=JUL=81 01:12:03 PAGE 97=1 
_ RNDBE IND A 


ANDOM STARTING SECTOR USING BEGIN/END SETS 


075067 I 4$ 

5065 BCC 1$ 
117407 DEC RO 
107037 1$: SUB R3,RO 
015071 BEQ 
104201 077776 S$: MOV #77776,R1 
175401 2$: INC ? 
104017 MOV R1,RO 
026534 CALL MAXMUM 
104207 000035 MOV #U.MBN,RO 
105057 ADD R5,RO 
100272 MOV R2, (RQ)+ 
100175 MOV R3,(RO) 
000000 RETURN 


K 15 


Se Be Se Se Be Be Be Fe Fe 


SEQ 0398 


IF RESULT IS NEGATIVE, BRANCH 
IF NC CARRY, BRANCH 

DECREMENT Hi ENDING LBN 

SUBTRACT HI LBN FROM HI ENDING LBN 

IF HI WORD IS ZERO, BRANCH 

MOVE MAXIMUM COUNT TO R1 

INCRCMENT MAXIMUM SECTOR COUNT 

COPY TO RO FOR MAXMUM 

SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
RO POINTS TO LBN AREA 

RO POINTS TO LBN AREA 

MOVE LO ORDER TO LBN AREA 

MOVE HI ORDER TO LBN AREA 

RETURN TO RNDBLK 


——_-———---- 


| 


' 


\ 
| 


005102 


~~ 
NM—-OODO NOutwn 
ee ahs bh Re 


QOUMNENM—-OONW 


000001 


177777 


.SBTTL 
MASK: 


L 15 


| UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 98 
MASK = FIND MASK FOR RANDOM NUMBER 


MASK = FIND MASK FOR RANDOM NUMBER 


MASK MASKS OUT HIGHER BITS OF A RANDOM NUMBER, SO THE PROB. OF THE 


RANDOM NUMBER EXCEEDING 
PUSH R1 


CLR R1 

: ADD R1,R1 
BIS #1 ,R1 
CMP R1,R0 


BCS MASKiP 


MOV #=-1,R0 
BIC RT,RO 
R1 


RE TURN 


THE MAXIMUM DESIRED IS LESSENED 
; SAVE R1 


MOV R1,-(SP) 
; ZERO 1 
; ROTATE R1 ONE BIT LEFT 
; TURN ON BIT 0 
; SEE IF R1 IS GREATER THAN RO 
; IF NOT, BRANCH 
BCC -+2 
BR MASKLP 


; SET UP FOR COMPLEMENT 
; COMPLEMENT R1 
RESTORE R1 


; RETURN TO RNDLBN 


MOV (SP)+,R1 


SEQ 0399 


rofl ———-—— -_--+- — ee —-——--- —— + 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 99 SEQ 0400 
/SEQBE = FIND NEXT SEQUENTIAL STARTING SECTOR USING BEGIN/END 


1 -SBTTL SEQBE = FIND NEXT SEQUENTIAL STARTING SECTOR USING BEGIN/END SETS 
¢ 005117 SEQBE : 
: : SEQBE FINDS THE NEXT SEQUENTIAL LBN 
| 6 005117 104657 000033 MOV U.PARM(R5),RO ; MOVE UNIT PARAMETERS TO RO 
7 005121 102207 010000 BIT ADIREC,RO ; TEST DIRECTION 
8 005123 015223 BEQ UP ; IF SEQUENTIAL UP, BRANCH 
9 005124 102207 004000 BIT ANEWSUB ,RO > SEE IF FIRST TIME ON THIS SUBUNIT 
10 005126 015155 BEQ 5% ; IF NOT, BRANCH 
11 005127 103207 004000 BIC #NEWSUB , RO Z ahot AS NEW SUBUNIT UNNEDED 
12 005131 100657 000033 MOV RO,U.PARM(R5) =; 
13 005133 104201 000011 MOV #S.BESS,R1 Z RO WILL POINT TO BEGIN/END SETS 
14 005135 105041 ADD R4,R1 ; RO POINTS TO BEGIN/END SETS 
15 0051 104617 000003 6$: MOV 3(R1),RO : SEE IF END-OF-LIST 
16 005140 075144 BMI 8$ : IF SO, BRANCH 
17 005141 105201 000004 ADD #4 ,R1 : — TO NEXT BEGIN/END SET 
18 005143 005136 BR 63 : 
19 005144 104202 000035 8$: MOV #U.MBN,R2 : RO” WILL POINT TO MASTER BN 
20 005146 105052 ADD R5,R2 ; R2 POINTS TO MASTER BN 
| 21 005147 104217 MOV (R1)+,RO : GET LO ORDER ENDING SET 
22 005150 100127 MOV RO, (Re) : SAVE 
23 005151 104217 MOV (R1)+,RO ; GET Hi ORDER ENDING SET 
24 005152 100627 000001 MOV me 1(R2) ; SAVE 
25 005154 005163 BR : BRANCH 
26 005155 025275 5$: CALL FNDBES ; FIND BEGIN/END SET THAT LBN IS IN 
27 005156 105201 000002 ADD #2,R1 ; POINT TO BEGIN SET 
28 005160 021645 CALL CMP2 3s SEE 'y LBN = BEGINNING LBN 
29 005161 015203 BEQ BE SDWN ; IF SO, BRANCH 
30 005162 025445 CALL DEC2 : POINT’ TO NEXT LBN TO BE READ/WRITTEN 
31 005163 104227 7$: MOV (R2)+,RO ; MOVE LO ORDER BN TO RO 
164 104223 MOV (R2)+,R3 ; MOVE HI ORDER BN TO R3 
33 005165 107217 SUB (R1)+,RO ; SUBTRACT BEGIN BN FROM BN 
166 075176 I : IF RESULT IS NEGATIVE, BRANCH 
35 005167 045171 BCC 1$ : IF NO BORROW, BRANCH 
36 005170 117403 DEC : PROPOGATE BORROW 
7 005171 =104111 1$: MOV (R1),R1 ; GET BEGINNING BN 
38 005172 103201 170000 BIC #*CHBHINB,R1 ; CLEAR EOL FLAG, IF 
39 005174 107013 SUB R1,R3 > SUBTRACT HI ORDER aN FROM HI BN 
40 005175 015200 BEQ 2$ ; IF EQUAL, BRANCH 
41 005176 104207 077776 4$: MOV #77776,RO0 > MOVE MAXIMUM COUNT TO RO 
42 005200 115407 2$: INC RO ; MAKE SUBTRACTION INCLUSIVE 
43 005201 026534 3$: CALL MAXMUM ; SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
44 005202 005204 BR NLBEXT ; BRANCH 
45 005203 025314 BESDWN: CALL PRE VBE :; FIND PREVIOUS B/E SET OR UNIT 
46 005204 104651 000020 NLBEXT: MOV U.TSEC(R5),.R1  ; GET TOTAL NUMBER OF SECTORES TO READ/WRITE 
47 005206 117401 DEC R ; DECREMENT SECTOR COUNT 
48 005207 104653 000035 MOV U.MBN(R5) ,R3 : GET LO ORDER MASTER BN 
49 005211 107013 SUB R1,R3 ; SUBTRACT SECTORS TO READ/WRITE 
50 005212 1 000035 MOV R3.U.MBN(R5) : SAVE 
51 005214 045222 BCC 1 : IF NO CAR BRANCH 
52 005215 104653 000036 MOV U.MBN+1(R5),R3  ; GET HI ORDER MASTER BN 
53 005217 117403 DEC R ; PROPOGATE CARRY 
54 005220 100653 000036 MOV R3,U.MBN+1(R5) ; SAVE 
55 005222 005274 1$: BR BEEXT ; BRANCH 
56 005223 102207 004000 UP: BIT #NEWSUB , RO ; SEE IF FIRST TIME ON THIS SUBUNIT 
015 BEQ 5$ ; IF NOT, BRANCH 





N 15 


| UDAT4 DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 99-1 
- FIND NEXT SEQUENTIAL STARTING SECTOR USING BEGIN/END 


SEQBE 


58 005226 


87 005274 


103207 


004000 


600003 
170000 
000001 


077776 





ANE WSUB , RO 
MOV RO,U.PARM(R5) 


MOV #S5.BESS,R1 
ADD R4,R1 

MOV #U.MBN,R2 
ADD R5,R2 

MOV 2(R1) RO 
MOV RO, (R2) 


BR 

5$: CALL UPLI3N 
CALL FNDBES 
BEQ BE SUP 
CALL INC2 

7$: MOV (R1)+,RO 
MOV (Ri) ,R3 
SUB (R2)+,RO 

I 4$ 

BCC 1$ 
DEC R3 

1$: SUB (R2) ,R3 
BEQ 

4$: MOV #77776,RO 

c$: INC RO 

3$: CALL MAXMUM 
BR BEEXT 


BESUP: CALL NE XTBE 
BEEXT: RETURN 


Ae AS NEW SUBUNIT UNNEDED 


AV 
RQ WILL POINT TO wien sete SETS 
RQ POINTS TO BEGIN/END SETS 

R2 WILL POINT TO MASTER BN 

R2 POINTS TO MASTER BN 

GET .O ORDER STARTING SET 


SAVE 
GET HI ORDER STARTING SET 
we EOL FLAG IF ANY 


BRANCH 
; INCREMENT LBN 
; FIND BEGIN/END SET THAT ata IS IN 


IF LBN = ENDING LBN, 


: POINT TO NEXT LBN TO BE READ/WRITTEN 
; RO HAS LO ENDING LBN 

; R3 HAS HI ENDING LBN 

; SUBTRACT LO LBN FROM LO ENDING LBN 

; IF RESULT IS NEGATIVE, BRANCH 

; IF NO CARRY, — 

: PROPOGATE CARRY 

; SUBTRACT HI LBN FROM ENDING LBN 

; IF ZERO, BRANCH 

: MOVE MAXIMUM COUNT TO RO 

; MAKE SUBTRACTION INCLUSIVE 

; SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 


BRANCH 
; FIND NEXT B/E SET OR UNIT 


SEQ 0401 


vas PN 


DBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 
FNDBES = FIND THE BEGIN/END SET CURRENT BN RESIDES IN 


8 
Vwi 
~m 
N 
vi 


AUOEWWR OO DOONANE Wr 
elelelelelelele\ele!2) 
S88S8Ss8sss oO 

wm Dan 

WWG w Mm 

-O ~N 

On wu 


: 
1 
1 
1 
1 
1 


104203 
104201 


177777 
000005 


000035 
000004 





FNDLOP: 


OUTO: 


~SBTTL 
NDBES: 


UDATG DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 100 


B 16 


FNDBES FINDS THE BEGIN/END SET THAT THE CURRENT LBN RESIDES IN 


B 
RE TURN 


#=-1,R3 
ag ha 


Py 
° 
Py 
. 
’ 
Pj 
. 
Py 
° 


START COUNTER (ADJUSTED) 
POIN; TO B/E SETS 
POINT TO B/E SETS 


; POINT TO LBN 
; POINT TO LBN 


INCREMENT B/E SET POINTER 
INCREMENT COUNT 

COMPARE LBN me ENDING LEN 
IF = TO, BRAN 


; IF LBN > ENDING LBN, BRANCH 
; RETURN TO CALLING PROGRAM 


SEQ 0402 


—_——__—_——_—_ + 
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| 
| 


PREVBE = MOVE TO PREVIOUS BEGIN/END SET 


005314 


005314 115003 


000033 
004000 
000033 


000006 


NON @ 9 SS Ss Ss Ss a Ss 
WHO OWNAUEWWNR OO OONAWFWNR 
Oo 
oO 
Ww 
Ww 
oul 
Ww 


170000 


077776 


BeBe Be Be Be Se Be Be vU 


5$: 
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-SBTTL PREVBE = MOVE TO PREVIOUS BEGIN/END SET 
REVBE : 


PREVBE IS CALLED IF THE LBN'S ARE DECREASING, AND THE LAST LBN 


WAS THE FIRST LBN WITHIN A B/E SET. 


PREVBE FINDS THE PREVIOUS 


B/E SET, OR, IF IT IS THE LAST ON THE SUBUNIT, FINDS THE LAST B/E 
SET OF THE PREVIOUS UNIT. 
Oe tat DIRECTION OF THE LBN'S ARE REVERSED (THEY SEGIN GOING UP 
H ; 


CALL 
RE TURN 


R3 


5$ 
U.PARM(R5) ,RO 
ANEWSUB , RO 
ati 


(R1)+,R2 
(R1)+,R0 
4$ 
1$ 


Re 
(R1),R1 
#*CHBHINB,R1 


o 


#77776,R0 
RO 
MAXMUM 


IF iT IS THE FIRST BE SET OF THE FIRST 


SEE IF ALLREADY ON 1ST B/E SET 

IF NOT, BRANCH 

GET UNIT PARAMETERS 

Apa AS GOING ON TO THE NEXT UNIT 
V 


EXIT 
POIN? TO PREVIOUS ENDING SET 
MOVE ENDING SET TO LBN 


SUBTRACT LO BEGINNING LBN FROM LO ENDING 
IF RESULT IS NEGATIVE, BRANCH 
IF NO CARRY, BRANCH 


; PROPOGATE CARRY 


; GET BEGINNING BN 


CLEAR EOL FLAG, IF ANY 

SUBTRACT HI ORDER BN FROM HI BN 

IF ZERO, BRANCH 

MOVE MAXIMUM COUNT TO RO 

TO MAKE IT AN INCLUSIVE SUBTRACT 

SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
RETURN TO CALLING PROGRAM 


SEQ 0403 


—--——_———- --- - — 
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_NEXTBE = MOVE TO NEXT BEGIN/END SET 


SEQ 0404 


| 1 .SBTTL NEXTBE = MOVE TO NEXT BEGIN/END SET 
| g 005350 NEXTBE : 
} Py 
| 4 ; NEXTBE 1S CALLED WHEN THE CURRENT LBN IS THE LAST OF ITS B/E SET. 
5 3 NEXTBE GOES TO THE NEXT B/E SET FOR THE NEXT LBN. IF THE LBN IS 
é ; THE LAST ON THE SUBUNIT, IT GOES TO THE FIRST B/E SET OF THE NEXT 
7 : UNIT. IF IT IS THE LAST B/E SCT ON THE LAST UNIT, THE DIRECTION IS 
x : CHANGED (DOWN), AND THE INITIAL WRITE BIT IS CLEARED IN CASE AN 
3 : INITIAL WRITE {S IN PROGRESS 
11 005350 104617 000003 MoV —-3(R1), RO ; SEE IF THIS IS LAST B/E SET ON THIS UNIT 
12 005352 035362 BPL 1$ ; IF SO, BRANCH 
13 005353 104657 000033 MOV —«J.PARM(RS),RO ; GET SUBUNIT PARAMETERS 
14 005355 101207 004000 BIS #NEWSUB,RO ; MARK AS GOING ON TO A NEW SUBUNIT 
15 005357 100657 000033 MOV -—«RO,U.PARM(R5) =; SAVE 
16 005361 005406 BR 7$ : EXIT 
17 005362 105201 000006 1$: ADD #6, R1 ; POINT TO NEXT BEGINNING LBN 
18 005364 025462 CALL.  MOV2 ; MOVE BEGINNING LBN TO LBN 
19 005365 107201 900002 SUB #2, ; Ri POINTS TO END SET 
20 005367 104217 Mov (R1)+,RO ; RO HAS LO ENDING LBN 
21 005370 104213 MOV (R1)+,R3 ; R3 HAS HI ENDING SET 
5371 107217 SUB (R1)+,RO ; SUBTRACT BEGINNING LBN 
23 005372 075402 BM! 5$ ; IF RESULT IS NEGATIVE, BRANCH 
24 005373 045375 BCC 2$ : IF NO CARRY, BRANCH 
25 005374 117403 DEC R3 ; PROPOGATE CARRY 
26 005375 104111 28: MOV (R1) ,R1 : GET BEGINNING 
27 005376 103201 170000 BIC  #*CHBHINB,R1 =; CLEAR EOL FLAG, IF ANY 
28 005400 107013 SUB R13 ; SUBTRACT HI ORDER BN FROM HI BN 
29 005401 015404 BEQ ; IF ZERO, BRANCH 
30 005402 104267 077776 5$: MOV «#77776, RO > MOVE MAXIMUM COUNT TO RO 
31 005404 115407 33: INC R ; INCREMENT RO (INCLUSIVE SUBTRACT) 
32 005405 026534 4$: CALL MAXMUM : SET MAXIMUM COUNT (U.TSEC AND U.MSEC) 
33 005406 000000 7§: RE TURN ; RETURN TO CALLING PROGRAM 


cc 


| 
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UPLBN = IF GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTE 


oo aes UPLBN = IF GOING UP, UPDATE CURRENT BN TO LAST BN READ/WRITTEN 


| 


spl Dh al il lh cl cl 
CONAUS WO O00 

i>) 

oO 

vi 

* 

~ 

oO 


005426 
19 005427 


100467 


100127 


104262 
104267 
G00000 


000035 
000020 


UPEXT: 


E 16 


UPLBN UPDATES U.MBN TO POINT TO THE LAST LBN READ/WRITTEN 


CINCREASING LBN) 


PUSH 


RE TURN 


<RO,R2> 


#U.MBN,R2 
R5,R 
U.TSEC(R5) ,RO 
RO 


R 
RO, (R2) 
<R2,R0> 


za 
oO 
. 
~ 
»D nm 
mM 
~~ 
+ 
Be Be Be Be Be Ba Be Be Be B® 


SAVE RO,R2 
MOV RO,-(SP) 
MOV R2,-(SP) 


; R2 POINTS TO LAS? LBN 

; R2 POINTS TO LAST LBN 

; GET NUMBER OF SECTORS WRITTEN 
; SUBTRACT ONE 

; ADD LOW ORDER LBN 10 RO 

; SAVE LOW ORDER WORD, POINT TO HIGH ORDER 
; IF NO CARRY, BRANCH 

; GET HIGH ORDER WORD 

; INCREMENT 

; SAVE HIGH ORDER WORD 

; RESTORE RO,R2 


MOV (SP)+,R2 
MOV (SP)+,RO 
RETURN TO CALLING PROGRAM 


SEQ 0405 


ee Oe eee eee eee 
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| INC2 = 24 BIT INCREMENT 


| 1 .SBTTL INC2 = 24 BIT INCREMENT 
2 005430 iNC2: 
| 4 : INC2 INCREMENTS A TWO WORD. NUMBER (SAME FMT AS CMP2) BY ONE 
| 6 005430 PUSH RO ; SAVE RO . 
005430 100467 MOV RO,=(SP) 
7 005431 104127 MOV (R2),RO : MOVE LOW ORDER WORD TO RO 
8 005432 105207 000007 ADD #1,R0 ‘ INCREMENT RO 
| 9 005434 100127 MOV RO. (R2) : SAVE RO 
10 005435 045443 BCC CARYNO ‘ IF NO CARRY, BRANCH 
11 005436 104627 000001 MOV 7(R2),RO ‘ MOVE HIGH ORDER WORD TO RO 
12 005440 115407 INC RO * INCREMENT RO 
13 005441 100627 000001 MOV RO,1(R2) > SAVE RO 
14 005443 CARYNO: POP RO * RESTORE RO 
005443 106267 MOV (SP)+,RO 
15 005444 000000 RETURN 


cco oe 


j 


ne DISK EXERCISER MACRO “x04, 00 9=JUL=81 01:12:03 Setwagl 105 


} 


| 
| 


005445 


005445 


ke et 
WM FWHOWON AWNnFwrno- 
© 
oO 
Wi 
, 
Ps 
~N 


— 





117407 
100627 


104267 
000000 


= 24 BIT DECREMENT 


000001 


000001 
000001 


.SBITL 
EC2: 


BORONO: 


DEC2 - 24 BIT DECREMENT 


DEC2 DECREMENTS A TWO WORD NUMBER (SAME FMT AS CMP2) BY ONE 


PUSH RC 

MOV (R2) ,RO 
SUB #1, 

MOV RO, (R2) 
BCC BORONO 
MOV 1(R2) ,RO 


R 
MOV RO,1(R2) 
RO 


RE TURN 


SAVE RO 


MOVE LOW ORDER WORD TO RO 
DECREMENT RO 

SAVE RO 

IF NO BORROW, BRANCH 

MOVE HIGH ORDER WORD TO RO 
DECREMENT RO 


SAVE RO 
RESTORE RO 
RETURN TO CALLING PROGRAM 


MOV RO,=(SP) 


MOV (SP)+,RO 


SEQ 0407 


H 16 
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MOVE = 24 BIT 
1 .SBTTL MOV2 = 24 BIT MOVE 
§ 005462 V2: 
' 4 : 
| > : O BY R2. BITS 31-24 ARE 
7 005462 PUSH RO : 
005462 100467 
8 005463 104117 MOV (R1),RO : 
9 0054 100127 MOV RO, (R2) : 
10 005465 104617 000001 MOV 1(R1),RO : 
11 005467 103207 177400 BIC #HIBYTE,RO : 
12 005471 106627 000001 MOV RO,1(R2) : 
13 005473 POP RO : 
005473 104267 
14 005474 900000 RE TURN 


fog COPIES A 24 BIT NUMBER POINTED TO BY Ri TO TWO WORDS POINTED 


CLEARED BEFORE COPYING 


SAVE RO 
MOV RO,=(SP) 


; MOVE SOURCE LOW ORDER WORD TO RO 

; MOVE RO TO DESTINATION LOW ORDER WORD 
; MOVE SOURCE HIGH ORDER WORD TO RO 

; STRIP OFF UNUSED BITS 

; MOVE RO TO DESTINATION HIGH ORDER WORD 
; RESTORE RO 


MOV (SP)+,RO 


3 RETURN TO CALLING PROGRAM 


SEQ 0408 


a ee 
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;RNDTG = FIND A RANDOM STARTING SECTOR USING TRACK/GROUP LIMIT 


St? 0409 


1 .SBTTL RNDTG = FIND A RANDOM STARTING SECTOR USING TRACK/GROUP LIMITS 
¢ 005475 RNDTG: 
4 : COME UP WITH A RANDOM BN TO TEST USING THE TRACK/GROUP SETS 
| g : FIRST COME UP WITH A RANDOM COUNT <= MAXIMUM COUNT 
8 005475 104647 000012 MOV S.MCNT+1(R4),RO ; GET HI ORDER MAX COUNT 
9 005477 015513 BEQ 2$ : IF HI ORDER ZERO, BRANCH 
10 005500 025102 CALL MASK ; CREATE MASK FOR RANDOM NUMBER 
11 005501 026475 1$ CALL RANDOM : GET RANDOM NUMBER 
12 005502 103071 BIC RO,R1 : STRIP OFF UNUSED BITS 
13 005503 104012 MOV R1,R2 : SAVE IN R2 IF NEEDED 
14 005504 106641 000012 CMP S.MCNT+1(R4),R1 ; SEE IF THE MAX IS EXCEEDED 
15 005506 BCS 1$ ; IF SO, BRANCH 
005506 045510 BCC .+2 
005507 005501 BR 1$ 
16 005510 015514 BEQ 3$ : IF EQUAL, WE HAVE TO FIND THE LO ORDER WORD 
17 005511 026475 CALL RANDOM ; IF NOT EQUAL, ANY LO ORDER WORD WILL DO 
18 005512 005525 BR , ee : BRANCH 
19 005513 114002 2$: CLR R2 : HI ORDER WORD IS ZERO 
20 005514 104647 000011 3$: MOV S.MCNT(R4),RO  ; GET LO ORDER MAXIMUM 
21 005516 025102 CALL MASK : CREATE MASK 
22 005517 026475 4$: CALL RANDOM : GET RANDOM NUMBER 
23 005520 103071 BIC RO,R1 : STRIP OFF UNUSED BITS 
24 005521 106641 000011 CMP S.MCNT(R4),R1 =; SEE IF THE MAX EXCEEDED 
25 005523 BCS 4$ ; IF SO, BRANCH 
005523 045525 BCC .+2 
om 005524 005517 BR 4% 
4 : NOW FIND THE BN ASSOCIATED WITH THAT COUNT 
29 005525 S$: PUSH <R5,R4> ; PUSH THE UNIT AND SUBUNIT POINTERS 
005525 100465 MOV RS5S,-(SP) 
005526 100464 MOV R4,-(SP) 
30 005527 104205 000013 MOV #S.TGOF ,R5 : RS WILL POINT TO THE TRACK/GROUP OFFSETS 
31 005531 105045 ADD R4,R5 : RS POINTS TO THE TRACK/GROUP ORIGINAL OFFSET 
32 005532 104257 MOV (R5)+,RO ; GET LO ORDER OFFSET, MOVE TO RUNNING TOTAL 
33 005533 104253 MOV (R5)+,R3 ; GET HI ORDER OFFSET, MOVE TO RUNNING TOTAL 
05534 107201 000001 6$: SUB #1,R1 ; DECREMENT LO COUNT BY ONE 
35 005536 045543 BCC 7¢ : IF NO BORROW, BRANCH 
36 005537 107202 000001 SUB #1,R2 : DECREMENT HI COUNT BY ONE 
37 005541 BCS 9$ : IF COUNT EXHAUSTED, BRANCH 
005541 045543 BCC .+2 
005542 005555 BR 9$ 
38 005543 104254 7$: MOV (R5)+,R4 : GET T/G OFFSET 
39 005544 055551 BNE : IF NOT END OF LIST, BRANCH 
40 005545 104205 000015 MOV #S.TGSS,R5 > R5 WILL POINT TO START OF T/G LIST 
41 005547 105165 ADD (SP) ,R5 : RS POINTS TO START OF T/G LIST 
42 005550 104254 MOV (R5)+,R4 : GET T/G OFFSET 
43 005551 105047 8$: ADD R4.RO : ADD TO RUNNING TOTAL 
44 005552 045534 BCC 6$ : IF NO CARRY, BRANCH 
45 005553 115403 INC R3 ; PROPOGATE CARRY 
46 005554 005534 BR 6$ : BRANCH 
47 005555 9$: POP <R4,R5> ; RESTORE 
005555 104264 MOV (SP)+,R4 
005556 104265 MOV (SP)+,R5 
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“DATS DISK EXERCISER MACRO X04.00 9=JUL=-81 01:12:03 PAGE 107-1 SEQ 0410 
i RNDTG = FIND A RANDOM STARTING SECTOR USING TRACK/GROUP LIMIT 


j 
| 
48 ; 
| 49 : NOW FIND A RANDOM OFFSET INTO THE RANDOM TRACK OR GROUP 
51 005557 PUSH RO : STORE LO ORDER TOTAL ON STACK 
| 00555? 100467 MOV RO,=(SP) 
52 005560 104642 000004 MOV S.TRKL(R4),R2  ; R2 HAS TRACK LENGTH 
| 53 005562 104647 000000 MOV S.PARM(R4),RO  ; GET SUBUNIT PARAMETERS 
54 005564 102207 000020 BIT ATRACKS,RO ; SEE IF USING TRACKS 
55 005566 055602 BNE 11$ ; IF SO, BRANCH 
56 005567 104641 000005 MOV S.SCHR(R4),R1 =; R1 POINTS TO SUBUNIT PARAMETERS 
| 57 005571 104611 000003 MOV TRKGRP(R1),R1  ; R1 HAS NUMBER OF TRACKS/GROUP 
58 005573 103201 177400 BIC #HIBYTE,R1 ; CLEAR UNUSED BITS 
59 005575 114007 CLR RO ; CLEAR RUNNING TOTAL 
60 005576 105027 10$: ADD R2,RO : FIND SECTORS/GROUP 
61 005577 117401 DEC R1 : DECREMENT COUNT 
62 005600 055576 BNE 10$ : IF UNEXHAUSTED, BRANCH 
63 005601 104072 MOV RO,R2 : MOVE COUNT TO R2 (MATCH WITH TRACKS ABOVE) 
64 005602 118: PUSH R : SAVE ON STACK 
005602 100462 MOV R2,<(SP) 
65 005603 117402 DEC R2 ; ADJUST COUNT 
66 005604 104027 MOV R2,RO : MOVE TO MASKING REGISTER 
67 005605 025102 CALL MASK : FIND MASK 
68 005606 026475 12$: CALL RANDOM ; GET RANDOM NUMBER 
69 005607 103077 BIC RO,R1 : STRIP OFF UNUSED BITS 
70 005610 106021 CMP R2,R1 : SEE IF RANDOM NUMBER SMALL ENOUGH 
71 005611 BCS 12$ ; IF NOT, BRANCH 
005611 045613 BCC .+2 
005612 005606 BR 12$ 
72 005613 PoP R2 : GET NUMBER OF SECTORS 
005613 104262 MOV (SP)+,R2 
73 005614 107012 SUB R1,R2 : R2 IS NOW SECTORS REMAINING IN T/G = 
74 005615 105261 ADD (SP)+,R1 
75 005616 100651 000035 MOV R1,U.MBN(R5) : SAVE 
76 005620 045622 BCC 13$ : IF NO CARRY, BRANCH 
77 005621 115403 INC R3 : PROPOGATE CARRY 
78 005622 100653 000036 138: MOV R3,U.MBN+1(R5) ; SAVE HI ORDER STARTING BN 
80 : NOW COME UP WITH A RANDOM NUMBER OF SECTORS TO R/W WITHOUT GOING 
81 : OFF THE TRACK/GROUP THAT WE'RE ON 
83 095624 104027 MOV R2, RO ; RO Is SECTORS LEFT ON THIS T/G 
84 005625 025102 CALL MASK : GET 
85 005626 101207 177400 BIS #HIBYTE RO : riety MAXIMUM OF 255 SECTORS READ/WRITTEN 
86 005630 026475 14$: CALL RANDOM : GET RANDOM NUMBER 
87 005631 103071 BIC RO,R1 : STRIP OFF UNUSED BITS 
88 005632 015630 BEQ 14$ : MUST BE GREATER THAN ZERO 
89 005633 106021 CMP R2,R1 : SEE IF SMALL ENOUGH 
90 005634 BCS 14$ : IF NOT, BRANCH 
005634 045636 BCC .+2 
005635 005630 BR 14% 
91 005636 100651 000020 MOV R1,U.TSEC(RS)  ; SAVE SECTORS TO WRITE 
92 005640 000000 RE TURN : RETURN TO CALLING PROGRAM 
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- FIND NEXT SEQUENTIAL STARTING SECTOR USING TRACK/GROU 


005641 


OVDWNAUSANN $C OONOAUE Wr 
uw 
an 
wn 
oO 


Ne ee Se eS 


35 005712 
36 005714 


104657 


000033 
000000 
010000 


000020 


000020 


000004 
000000 
002444 


000020 


000005 


000020 


- FIND NEXT SEQUENTIAL STARTING SECTOR USING TRACK/GROUP aes ee 


K 16 


.SBTTL SEQTG 

EQTG: 

; FIND THE NEXT TRACK/GROUP 
MOV U.PARM(RS) ,RO é 
MOV S.PARM(R4) ,R1 : 
BIT ADIREC,RO ; 
BEQ 3$ : 
BIT #TRACKS,R1 ‘ 
BEQ 2$ z 
CALL DOWNT : 
BR 5$ ; 

2$: CALL DOWNG é 
BR 5$ : 

3$: BIT ATRACKS,R1 $ 
BEQ 4$ s 
CALL UPT : 
BR 5$ 3 

4$: CALL UPG : 

5$: MOV S.TRKL(R4) ,R2 ; 
MOV S.PARM(R4) ,R1 é 
TST M.PARM Ps 
BPL 7$ . 
BIT #TRACKS,R1 5 
BNE 7$ : 
MOV R2,RO $ 
MOV S.SCHR(R4),R1 E 
MOV TRKGRP(R1),R1 - 
BIC #MHIBYTE,R1 é 
CLR R 3 

6$: ADD RO,R2 : 
DEC R1 z 
BNE 6$ Z 

7$: MOV R2,U.TSEC(RS) : 

8$: RETURN 3 


. 
ee 24, 


Gat Seif 0411 


, 
of 


b ai < ‘ 
TO TEST SEQUENTIALLY eee . 


GET UNIT PARAMETERS Ah ae 
GET SUBUNIT PARAMETERS 

SEE IF GOING UP (INITIAL WRITE) OR SOUN 
IF GOING UP OR INITIAL WRITE, BRANCH 

SEE IF TRACKS AS apecst 


\w 
“i 
‘ 
s 
ba 


IF eh 

GO DOWN A TRACK 

ag ree | NUMBER OF SECTORS TO READ/WRITE 
GO DOWN A GROUP 


CALCULATE NUMBER OF SECTORS TO READ/WRITE 
SEE IF TRACKS I pep 


RACK 
CALCULATE NUMBER OF SECTORS TO READ/WRITE 
GO UP A GROUP 

GET SECTORS/TRACK 

GET SUBUNIT PARAMETE 

SEE IF INITIAL WRITE IN PROGRESS 

IF NOT, BRANCH 

SEE IF TRACKS IN USE 

IF SO, BRANCH % 
COPY SECTORS/TRACK TO RO 

GET POINTER TO SUBUNIT CHARACTERISTICS 

GET TRACKS/GROUP 

CLEAR UNUSED BITS 

CLEAR RUNNING TOTAL 


T 
IF INCOMPLETE, BRANCH 
SAVE NUMBER OF SECTORS TO PROCESS 
RETURN TO CALLING PROGRAM 


L 16 
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= MOVE UP ONE TRACK 


005715 


ONANEWN 


NONONY A RS PO SS 
mR ¥ = oO MO DOONAUESWNO”O 
S888s8s8s 
wi wi Ww 
N N N 
* Ww Ww 
iat) uw oO 
seekosk 
Ww Ww 
N N 
7 + 
al N 


905715 102207 004000 


5 
005722 104657 000012 
005724 107207 000001 
005726 100657 000012 


005731 104657 000013 
005733 107207 000001 


005736 104657 C0C0033 

005740 101207 004000 

657 000033 

23 005745 100657 000013 

24 005747 104657 000014 
5 

27 005753 104207 000015 


30 005757 100657 000014 
31 005761 105651 000035 
32 005763 100651 000035 


104651 000036 


005771 100651 000036 
37 005773 000000 


-SBTTL 
PT: 


BeBe Oe Be Be CK 


10$: 


1$: 


3$: 


4$: 


UPT 


POINT U.MBN TO THE NEXT 
TRACK, BUT IF GROUPS, U.MBN MUST BE ADJUSTED BACK TO THE FIRST 
BN IN THE GROUP 


A#NEWSUB ,RO 
10$ 

NEWUPT 

4$ 
U.CCNT(R5) ,RO 
#1,RO 
RO,U.CCNT (RS) 


. 


1$ 
U.PARM(R5) ,RO 
#NEWSUB ,RO_ 
rf ,U.PARM(R5) 


RO,U.CCNT+#1(R5) 
U.PCTG(R5) ,RO 
(RO) +,R1 

3$ 

#S.TGSS,RO 
R4,R0 

(RO)+,R1 
RO,U.PCTG(R5) 
U.MBN(R5) ,R1 
R1,U.MBN(R5) 
4$ 

aaah i 


i 
R1,U.MBN+1(R5) 


2 ’ 
U.CCNT+1(R5),RO ; 
1,R0 


- MOVE UP ONE TRACK 


TRACK TO TEST (IT DOESN'T HAVE TO BE A 


SEE IF THIS IS A NEW SUBUNIT 
IF NOT, BRANCH 
SETUP NEW SUBUNIT 


EXIT 

GET LO ORDER COUNT 
DECREMENT 

AVE 

IF NO BORROW, BRANCH 


GET HI ORDER COUNT 
PROPOGATE BORROW 


RS 
FLAG AS TO GO ONTO NEXT SUBUNIT 
SAVE 
EXIT 


SAVE 

GET POINTER TO CURRENT TRACK/GROUP 
GET OFFSET TO NEXT TRACK 

IF OFFSET, BRANCH 

> RO WILL POINT TO START OF OFFSETS 
RO POINTS TO OFFSETS 

R1 HAS OFFSET 

SAVE POINTER TO CURRENT TRACK/GROUP 
aa TO CURRENT BN 


SAV 

IF NO CARRY, EXIT 
; GET HI ORDER BN 
PROPOGATE CARRY 


SAVE 
RETURN TO CALLING PROGRAM 


Be Be Be Be Be Be Be Be Se & 


SEQ 0412 


j 
| 
| 


eee 


37 0060 
38 006055 


102207 


ONE TRACK 


004000 


000012 
000001 
000012 


000013 
000001 


000013 
000015 


090014 


000035 


000035 
000014 


000036 
000036 


10$: 


4$: 


5$: 


-SBTTL DOWNT 
OWNT : 


MOVE THE MASTER BN DOWN 


MOV 
RETURN 


M 16 


| UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 110 
| DOWNT = MOVE DOWN 


ANE WSUB ,RO 
10$ 

NE WDNT 

5$ 
U.CCNT(R5) ,RO 
#1,R 

* capanaetlaat 


° 


1$ 
U.PARM(R5) ,RO 
ANEWSUB ,RO 

-- ecslateea 


RO,U.CCNT+1(R5) 
AS.TGSS,R1 
R4,R1 
U.PCTG(R5) ,RO 
RO,R1 

RO 

(RO) ,R1 

3$ 
U.MBN(R5) ,R1 
-(RO),R1 
R1,U.MBN(R5) 

> alae pai 
U.MBN+1(R5) ,RO 


R 
RO,U.MBN+1(R5) 


U.CCNT+1(R5),RO ; 
#1,R0 ; PROPOGATE BORROW 


= MOVE DOWN ONE TRACK 


TO TEST THE PROCEEDING TRACK/GROUP 


Be Be Be Be Se Se Be Be Be Se Fe Be Be Be Be Fe Se Be Be Se Be 


SEE IF THIS i A NEW SUBUNIT 
IF NOT, BRANCH 


NOT, B 
; INITIALIZE THIS SUBUNIT 
; GET LO ORDER COUNT 


DECREMENT COUNT 


AVE 
IF NO BORROW, BRANCH 
GET HI ORDER COUNT 


IF NO CARRY, BRANCH 


; GET UNIT PARAMETERS 
: Ae AS TO GO ONTO NEXT SUBUNIT - 


EXIT 


SAVE 
; RO WILL POINT TO START OF T/G OFFSETS 
; RO POINTS TO START OF T/G OFFSETS 
; GET POINTER INTO LIST 
; SEE IF AT START OF LIST 
; IF NOT, BRANCH 
: RO POINTS TO NEXT WORD 
; SEE IF END OF LIST 


IF NOT, 


BRANCH 
; GET LO ORDER MASTER BN 
; SUBTRACT OFFSET 


SAVE 
; SAVE POINTER 
; IF NO BORROW, EXIT 
; GET HI ORDER WORD 
; PROPOGATE BORROW 


SAVE 
RETURN TO CALLING PROGRAM 


SEQ 0413 


N 16 


by DISK EXERCISER MACRO x04.00 9=JUL-81 01: 12:03 PAGE 111 SEQ 0414 


‘eee = MOVE UP ONE GROUP 
1 .SBTTL UPG - MOVE UP ONE GROUP 
¢ 006056 UPG: 
; : MOVE MASTER BN UP TO THE NEXT GROUP 
6 006056 102207 004000 BIT #NEWSUB ,RO ; SEE IF THIS IS A NEW SUBUNIT 
7 006060 016064 BEQ 10$ : IF NOT, BRANCH 
8 006061 026172 CALL NEWUPT + INITILIZE THE SUBUNIT FOR TRACKS 
9 006062 026310 CALL SETSEC ; INITILIZE THE SUBUNIT FOR GROUPS 
10 006063 006135 BR 5$ 3; EXIT 
11 006 102201 040000 10$: BIT #INITW,R1 : SEE IF AN INITIAL WRITE IS BEING DONE 
12 006 056133 BNE 4$ : IF SO, BRANCH 
13 006067 104641 000004 MOV S.TRKL(RG),R1 =: R1 HAS TRACK LENGTH 
14 006071 104657 000015 MOV U.CTRK(R5),RO  ; GET TRACK COUNT 
15 006073 117407 DEC RO ; DECREMENT COUNT 
16 006074 016112 BEQ 1$ : IF COUNT EXHAUSTED, BRANCH 
17 006075 100657 000015 MOV RO,U.CTRK(R5) 3: SAVE 
18 006077 105651 000035 ADD U.MBN(R5) ,R1 ; MOVE BN TO NEXT TRACK 
19 006701 100651 000035 MOV R1,U.MBN(R5) : SAVE 
20 006103 046135 BCC $ : EXIT 
21 006104 104657 000036 MOV U.MBN+1(R5),RO ; GET HI ORDER BN 
22 006106 115407 INC RO : PROPOGATE CARRY 
23 006107 100657 000036 MOV RO,U.MBN+1(R5) ; SAVE 
24 006111 006135 BR 3 EXIT 
25 006112 026310 1$: CALL SETSEC 3; SETUP NEXT TRACK/GROUP COUNT 
26 006113 114002 CLR R2 3; CLEAR RUNNING TOTAL 
27 006114 117407 2$: DEC RO ; DECREMENT COUNT 
28 006115 016120 BEQ 3$ : IF COUNT EXPIRED, BRANCH 
29 006116 105012 ADD R1,R2 ; ADD SECTORS/TRACK TO RUNNING TOTAL 
006117 006114 BR 2$ ; LOOP 
31 006120 104657 000035 3$: MOV U.MBN(R5) ,RO ; GET LO ORDER MASTER BN 
32 006122 107027 SUB R2,RO ; ADJUST BACK TO START OF GROUP 
33 006123 100657 000035 MOV RO,U.MBN(R5) ; SAVE : 
006125 046133 BCC 4 : IF NO BORROW, BRANCH 
35 006126 104657 000036 MOV U.MBN+1(R5),RO ; GET HI ORDER MASTER BN 
36 006130 117407 DEC RO : PROPOGATE BORROW 
37 006131 100657 000036 MOV RO,U.MBN+1(R5) ; SAVE 
38 006133 114007 4$: CLR RO : CLEAR RO SO UPI DOESN'T DETECT A NEW SUBUNIT 
39 006134 025715 CALL UPT : GO TO NEXT GROUP 
40 006135 000000 S$: RETURN ; RETURN TO CALLING PROGRAM 





One wun— 


Doe ab nmhuteee 
"90 O®BNOUEWN -OO0O@n 


ronon 
Wh 


$5 


10$: 


1$: 
4$: 


owl _ 


DOWNG = MOVE DOWN ONE GROUP 


MOVE MASTER BN TO THE NEXT LOWER GROUP 


BIT #NEWSUB ,RO 
10$ 


CALL NEWDNT 
CALL LSTTRK 
BR & 


$ 

MOV U.CTRK(RS) ,RO 

RO 

1$ 
MOV RO,U.CTRK(RS) 
MOV U.MBN(R5) ,RO 
SUB S.TRKL(R4) ,RO 
MOV ee 
MOV U.MBN+7(R5) ,RO 

RO 


MOV RO,U.MBN+1(R5) 
4$ 


BR 

CALL DOWNT 
CALL LSTTRK 
RE TURN 


; SEE IF THIS IS A NEW SUBIUNIT 
IF NOT, CH 


; SETUP THIS SUBUNIT FOR TRACKS 
; Ah ag THIS SUBUNIT FOR GROUPS 


COUNT 
; iF “EXPIRED, BRANCH 
SAVE 


GET LO ORDER MASTER BN 


; SUBTRACT TRACK LENGTH 
SAVE 


EXIT 
; GET HI MASTER BN 
; PROPOGATE BORROW 
SAVE 


EXIT 

GO DOWN A GROUP 

SET MASTER BN ON LAST TRACK OF GROUP 
RETURN TO CALLING PROGRM 


aw veld 


- — ——-— -- — —— 


UDATS DISK EXERC 
NEWUPT = INITILI 


1 
2 006172 
3 

~ 

5 

6 

? 006172 104647 000011 

8 006174 100657 000012 

| 9 006176 104647 0000/2 
10 006200 100657 000013 
11 006202 104647 000013 
12 006204 100657 000035 
13 006206 104647 000014 
14 006210 100657 000036 
15 006212 104207 00001 
16 006214 105047 
17 006215 100657 000014 
18 006217 104657 000033 
19 006221 103207 004000 

006223 100657 000033 
006225 


<8 


NEWUPT : 


ISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 113 
ZE PARAMETERS FOR SEQUENTIALLY UP BY TRACKS 


-SBTTL NEWUPT = INITILIZE PARAMETERS FOR SEQUENTIALLY UP BY TRACKS 


INITIALIZE THIS SUBUNIT 
ASCENDING ORDER 


S.MCNT(R4) ,RO 


S. TGOF (R4) ,RO 
RO,U.MBN(R5) 

S. TGOF +1(R4) RO 
RO,U.MBN+1(R5) 

#S.TGSS,RO 


R4,RO 
RO,U.PCTG(R5) 
U.PARM(R5) ,RO 
#NEWSUB ,RO- 
RO.U.PARM(RS) 


SEQ 0416 


FOR SEQUENTIALLY ACCESSING TRACKS IN 


Be Be Se Be Se Be Be Se Be Be Be Be Be Be Be 


GET fAXIMUM COUNT 

SAVE IN CURRENT COUNT 

GET HI ORDER MAXIMUM COUNT 

SAVE _IN HI rare COUNT 


STER_BN 
GET HI ORDER STARTING OFFSET 
SAVE IN HI ORDER MASTER BN 
RO WILL POINT TO START OF OFFSETS 
RO POINTS TO START OF OFFSETS 
SAVE IN POINTER TO CURRENT TRACK/GROUP 
GET UNIT +5754; Sonia 
NOW ON NEW UNIT 
SAVE PARAMETERS 
RETURN TO CALLING PROGRAM 


ore 


oe 


UDATS DISK EXERC 
NEWDNT = INITILI 


NO WE wr 


ed a a aad aed ee cd ced ed 
CONAMNEWH— 


TIL 


mn 


000015 


ER MACRO X04.00 9=JUL=81 01:12:03 PAGE 114 
PARAMETERS FOR SEQUENTIALLY DOWN BY TRACKS 


SEQ 0417 


-SBTTL NEWDNT - INITILIZE PARAMETERS FOR SEQUENTIALLY DOWN BY TRACKS 


INITIALIZE THIS SUBUNIT FOR SEQUENTIALLY ACCESSING TRACKS IN 


NE WD NT: 
: DESCENDING ORDER 
PUSH <R5,R4> : 
MOV S.TGOF(R4),R2~ ; 
MOV S.TGOF+1(R4),R3 ; 
MOV S MCNT (R4) ,RO é 
MOV RO,U. CCNT(RS) : 
MOV S.MCNT+#1(R4),R1 ; 
MOV R1,U. CCNT+1(R5) ; 
ADD #S.TGSS,R4 C 
1$: SUB #1,R0 : 
BCC é 
SUB #1,R1 Z 
BCS 4$ : 
2$: MOV (R4)+,R5 é 
BNE 3$ : 
MOV #S.TGSS RS ; 
ADD (SP) ,R4 : 
MOV (R4)+,R5 : 
3$: ADD R5,R2 é 
BCC 1$ : 
INC R3 s 
BR 1$ = 
4%: MOV 1(SP),R5 : 
V R4,U. PCTG(RS) ; 
oP <R4,R5> : 
MOV R2,U.MBN(R5) ; 
MOV R3,U.MBN+1(R5) ; 
MOV U.PARM(R5),R3 
BIC A#NEWSUB, R3 Ps 
MOV R3,U. PARM(RS) : 
RE TURN z 


; SAVE UNIT AND SUBUNIT POINTERS 


MOV R5,-(SP) 
MOV R4,-(SP) 


; R2 HAS LO ORDER STARTING OFFSET 


R3 HAS HI ORDER STARTING OFFSET 
RO HAS LO ORDER MAXIMUM COUNT 


MUM COUNT 
R4 POINTS TO START OF OFFSETS 


; DECREMENT COUNT 

; IF NO CARRY, BRANCH 

; PROPOGATE BORROW 

; IF COUNT EXHAUSTED, BRANCH 


GET OFFSET 

IF NOT END-OF=-LIST, BRANCH 

R4 WILL POINT TO START OF OFFSETS 
R4 POINTS TO START OF OFFSETS 

GET OFFSET 

ADD OFFSET TO SN 

IF NO CARRY, LOOP 

PROPOGATE CARRY 


LOOP 
GET UNIT POINTER 
SAVE POINTER TO CURRENT TRACK/GROUP 


RESTORE 
MOV (SP)+,R4 
MOV (SP)+,R5 
SAVE LO ORDER STARTING BN 
SAVE HI ORDER 


NOW ON NE 
SAVE PARAMETERS 
RETURN TO CALLING PROGRAM 


E 
UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 115 SEQ 0418 
_SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 


1 .SBTTL SETSEC = SETUP TRACK/GROUP COUNT FOR SELECTED GROUPS 
: 006310 SETSEC: 

4 ; MOVE TRACKS/GROUP TO U.CTRK 

6 006310 104647 000005 ; MOV S.SCHR(R4),RO  ; RO POINTS TO SUBUNIT CHARACTERISTICS 
7 006312 104677 000003 MOV TRKGRP(RO)-RO  : RO HAS TRACKS/GROUPS 

8 006314 103207 177400 BIC #HIBYTE RO * CLEAR UNUSED BITS 

3 006316 100657 000015 MOV RO,U.CTRK(RS) = SAVE AS TRACK COUNT 

0 000000 ; RETURN TO CALLING MODULE 





| F 
DATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 116 SEQ 0419 
LSTTRK = SET MASTER BN TO POINT TO LAST TRACK IN THE GROUP 


-SBTTL LSTTRK = SET MASTER BN TO POINT TO LAST TRACK IN THE GROUP 


| 006321 _ CSTIRK: 
4 ; SET MBN TO LAST TRACK OF GROUP 
6 006321 026310 CALL  SETSEC ; SETUP TRACK/GROUP COUNT 
| 7 006322 114002 CLR R2 + CLEAR RUNNING TOTAL 
8 006323 117407 2$: DEC RO ; DECREMENT COUNT 
9 006324 016330 BEQ 3$ : IF COUNT EXPIRED, BRANCH 
10 006325 105642 000004 ADD S.TRKL(R4),R2  ; ADD SECTORS/TRACK TO RUNNING LENGTH 
11 006327 006323 BR 2$ : LOOP 
12 006330 105652 000035 3$: ADD U.MBN(RS),R2 =: MBN WILL POINT TO LAST TRACK IN GROUP 
13 006332 100652 000035 MOV R2,U.MBN(R5) = SAVE 
14 006334 046340 BCC 4$ ; IF_NO CARRY, EXIT 
15 006335 104657 000036 MOV U.MBN+1(R5),RO : GET HI ORDER BN 
16 006337 115407 INC R + PROPOGATE CARRY 
17 006340 100657 000036 4$: MOV RO,U.MBN+1(R5) : SAVE 
18 006342 000000 RETURN * RETURN TO CALLING MODULE 


--- 


‘yours DISK EXERCISER MACRO x04, ve 9=JUL=81 01:12:03 PAGE 117 
RUP = CLEAR ALL PARAMETER BIT 


> 006363 


OOONANEwr— 
Ww 


a 
—_ 

‘ 
. 


104657 000033 


103207 004776 
100657 000033 
000000 


tty CLRUP = CLEAR ALL PARAMETER BITS 


CLRUP CLEARS ALL NECESSARY FLAG BITS 


MOV U.PARM(R5) ,RO MOVE UNIT PARAMETERS TO RO 

CLEAR ALL FLAGS BEF ORE THE NEX; OPERATION 

BIC A#DATERR ! RBNBN!REVEC !REVINP! WCHE CK! DATCMP! REDWRT ! RETRY !NEWSUB,RO 
+ RO,U.PARM(RS)  ; SAVE UNIT PARAMETERS 


SEQ 0420 


——————— 


H 
UDATS DISK EXERCISER MACRO X04.00 9=JUIL-81 01:12:03 PAGE 118 SEQ 0421 
/RORW = DETERMINE IF A READ OR A WRITE IS TO BE DONE 


Th Ae: RORW = DETERMINE IF A READ OR A WRITE IS TO BE DONE 


—_ 


¢ 006352 R 
| : ; RORW DETERMINES IF THE BLOCK SELECTED WILL BE READ OR WRITTEN 
| ° 
6 006352 104642 000000 MOV S.PARM(R4),R2 ; GET SUBUNIT PARAMETERS 
| 7 006354 104657 000033 MOV U.PARM(R5),RO — ; GET UNIT PARAMETERS 
8 006356 102202 042000 BIT MINITW!WONLY,R2 ; SEE IF INITIAL WRITE OR WRITE ONLY 
9 360 056367 BNE 1$ é SO, BRANCH 
0 006361 102202 004000 BIT #RONLY ,R2 ; SEE IF READ ONLY 
1 006363 056373 BNE 2$ ; SO, BRANCH 
2 006364 026475 CALL RANDOM ; GET RANDOM NUMBER 
3 006365 110601 ROR R1 ; ROTATE LOW BIT INTO CARRY 
4 006366 046373 BCC 2$ ; IF LOW BIT ZERO, BRANCH 
5 006367 101207 000100 1$: BIS #REDWRT ,RO > SET READ OR WRITE BIT (WRITE) 
6 006371 100657 000033 MOV RO,U.PARM(RS)  ; SAVE UNIT PARAMETERS 
7 006373 000000 2$: RE TURN ; RETURN TO CALLING PROGRAM 


eee eee 
ee a etd ats ot 3 ed 


—_---——_ Ss 


| UDATS DISK EXERCISER MACRO xX04.00 9-JUL=81 01:12:03 PAGE 119 


| PAT THB - IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 


| 1 
| 2 006374 


006374 
006376 

00 
006401 
006403 


NOWESWN OO OONAUNEW 


ts 4 3 E— 


et aed ad od 
VIWNON 


PREFERS 
&R 


090033 
000100 
000003 
177760 


177760 
000011 


: MO 
: RETURN 


FIND PATTERN TO USE (ONLY 


MOV U.PARM(R5) ,R3 
BIT MREDWRT ,R3 


PATEXT 
MOV $. hanes RI 
BIC ABLONB, R1 
F IXPAT 

RANDOM 
BIC #LBLONB ,R1 
RNDO 
R1,U.PAT(R5) 


SEQ 0422 


BATTRN: PATTRN = IF WRITE, DETERMINE WHAT PATTERN IS TO BE WRITTEN 


IF WRITE TO BE DONE) 


GET UNIT PARAMETERS 

SEE iF WRITE TO BE DONE 

IF NOT, BRANCH 

GET PATTERN NUMBER 

IF PATTERN NOT SELECTED, BRANCH 
SEE IF SPECIAL PATTERN USED 

IF PATTERN SELECTED, USE IT 
GET RANDOM PATTERN NUMBER 

CLEAR UNUSED BITS 

NO SUCH THING AS PATTERN 0, TRY AGAIN 
SAVE THE PATTERN NUMBER 

RETURN TO CALLING PROGRAM 


Sr 


ee so 


/UDATS DISK at MACRO X04.00 9=JUL=81 01:12:03 PAGE 120 
;WOHK = IF WRITE, SEE IF A WRITE CHECK IS TO BE DONE 


> ol WCHK 


6 006416 104653 000033 
7 006420 104642 000000 
000100 


| 
10 006425 102202 000010 
11 006427 016445 
12 006430 102202 040000 
13 006432 056445 
‘3 006433 102202 000004 
16 


000019 
20 006443 100653 000033 


WCHK 


1S: 
2$: 


WCHK SETS THE WRITE CHECK 


U.PARM(RS) ,R3 
S.PARM(R4) ,R2 
#REDWRT ,R3 
2$ 
> apcmatees 
#INITW,R2 

2$ 
Syn ie 
RANDOM 
R1 

$ 
#WCHE CK ,R3 
R3,U.PARM(RS) 


- IF WRITE, SEE IF 


Be te Be Be Be Be Be 


SEQ 0423 
A WRITE CHECK IS TO BE DONE 


BIT IF A WRITE CHECK IS TO BE DONE 


GET UNIT PARAMETERS 
GET SUBUNIT PARAMETERS 
SEE IF WRITE IS TO BE DONE 


IF NOT, BRANCH 

SEE IF WRITE CHECK IS TO BE DONE 

IF NOT, BRANCH 

SEE IF ay WRITE IS IN PROGRESS 


IF SO, NO WRITE CHECK, SO BRANCH 
SEE IF WRITE CHECK IS ALWAYS TO BE DONE 
IF SO, BRANCH 


: GET RANDOM NUMBER 


1/2 OF THE TIME WRITE CHECK 


; BRANCH (NO WRITE CHECK) IF LOWES! BIT CLEAR 
; SET WRITE CHECK BIT 

; SAVE UNIT PARAMETERS 

; RETURN TO CALLING PROGRAM 


ccd 


—-— 


UDATS DISK EXERCISER MACRO x04.00 9-JUL-81 01:12:03 PAGE 121 
DCOMP = IF READ, SEE IF DATA COMPARE IS 10 BE DONE 


6 006446 104642 000000 
7 006450 aerhe 000002 


006453 104653 000033 
102203 000100 


102203 000010 
006462 016474 
006463 102202 000001 


nt ae ae a cd a cel a 
NOUSWN—O”O 


006467 103201 177775 


19 006472 100653 000033 
000000 


DCOMP SETS THE DATCMP BIT 
S.PARM(R4) ,R2 


CEXT 
U.PARM(R5) ,R3 


R1,R3 
R35,U.PARM(R5) 





SEQ 0424 


- IF READ, SEE IF DATA COMPARE IS TO BE DONE 


IF A DATA COMPARE IS TO BE DONE 


GET SUBUNIT PARAMETRS 

SEE iF DATA COMPARE REQUESTED 
IF NOT, BRANCH 

GET UNIIT PARAMETERS 

a IF READ IS TO BE DONE 


IF SO, BRANCH 
SEE IF WRITE CHECK IS TO BE DONE 
IF NOT, BRANCH 


SEE IF DATA COMPARE ALWAYS DONE 
IF SO, BRANCH 

GET RANDOM NUMBER 

CLEAR ALL BUT THE (POSSIBLY) DATA COMPARE FLAG 
SET DATA COMPARE BIT 


RETURN TO CALLING PROGRAM 


as | 





006475 


NOWEWI— 


aed ald a ea a ae ct asl cn eld 
WODWNAUS WO O00 
Ww 
— 
= 


ny 
5 


67 


on SS SY YY 

RIASORERSS 
SSo 
—~nN 


307 


_ 
RS 
AUIONWOO 
nM 
oO 
nN 


-=OoO-— 
— 

Wu 
ws 
oo 
No 


002445 
002446 
000007 


000001 
002445 
001057 


047401 
002445 
002446 


BeBe Se Be De 


1$: 


2$: 


3$: 


bel DISK EXERCISER MACRO 00 9-JUL~81 01:12:03 PAGE 122 
RANDOM NUMBER ROUT I 


SEQ 0425 


SBTTL RANDOM = RANDOM NUMBER ROUTINE 
ANDOM : 


RANDOM rg i A RANDOM NUMBER AND RETURNS IT IN R1 


RANGE 0 = 2%1 
PUSH <RO,R2> 


MOV LOSEED ,RO 
MOV ~ eee 


RO 
ROL R1 
BIC #1,R0 
R2 


1$ 
ADD LOSEED,RO 
2$ 


R1 
ADD #1057,R0 
3$ 


R1 
ADD #47401,R1 
MOV RO,LOSEED 
MOV R1,HISEED 
POP <R2,R0> 


Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be & 


; SAVE RO AND R2 


MOV RO,-(SP) 
MOV R2,-(SP) 


; MOVE LO ORDER SEED TO RO 
; MOVE HI SEED TO R1 


OOP COUNT TO R2 


MOVE L 
; ROTATE LO ORDER NUMBER BY 1 
; ROTATE HI OREDR NUMBER BY 1 (PROPOGATE CARRY) 


hy? BRANCH 


INCOMP 
; ADD ORIGINAL SEED (X129) 
; IF NO CARRY, BRANCH 
; PROPOGATE CARRY 
; ADD LO CONSTANT 
; IF NO CARRY, BRANCH 
: PROPOGATE CARRY 
; ADD HI CONSTANT 
; SAVE LO ORDER SEED 
; SAVE HI ORDER SEED 
; RESTORE R2 AND RO 


MOV (SP)+,R2 
MOV (SP)+,RO 


ac 1 


006534 


CONAUNE WR 


NOUSWN—O 
S 


000000 
040100 


177400 


000020 





UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 123 
MAXMUM = FOR SEQUENTIAL B/E SETS, DETERMINE HOW MANY SECTORS T 


SEQ 0426 


tal 1 MAXMUM - FOR SEQUENTIAL B/E SETS, DETERMINE HOW MANY SECTORS TO READ/WRITE 


Be te Se Se Fe Be 


2s: 


MAXMUM WILL COME UP WITH A MAXIMUM NUMBER OF aa TO READ/WRITE 


AND _INITILIZE BOTH U.TSEC AND U.MSEC TO THIS V. 


IF AN at 


WRITE IS IN PROGRESS, AS MANY SECTORS WILL BE VREAD/WRITTEN A 
POSSIBLE RO HAS MAXIMUM POSSIBLE SECTORS BY LIMITATION OF ave SETS 


PUSH 


<R1,R3> 


S.PARM(R4) ,R3 
| TW! SEQSEK ,R3 


RANDOM 
#HIBYTE,R1 
1$ 

RO,R1 

oF 


R0;U. “TSEC(RS) 
<R3.R 


; RETURN TO CALLING PROGRAM 





Be Se Be Be Be Be Be Se Be 


; SAVE R1, R3 


MOV R1,-(SP) 
MOV R3,-(SP) 


; SEE IF INITIAL WRITE IS IN PROGRESS 
een aRiTE THE MAXIMUM POSSIBLE SECTORS 
GET A RANDOM NUMBER OF SECTORS TO READ/WRITE 

READ/ WRITE A MAXIMUM OF Mt SECTORS 

IF ZERO, GET ANOTHER RANDOM NUMBER 

SEE IF RANDOM NUMBER EXCEEDS POSSIBLE 

IF SO, BRANCH 

ONLY READ/WRITE THE RANDOM NUMBER OF SECTORS 
SAVE IN TSEC 

RESTORE R3, R1 


; GET SUBUNIT PARAMETERS 


MOV (SP)+,R3 
MOV (SP)+,R1 


] 


&S 


eS x A ROO ae EO Oe ri A ee OR gee ae ee ee 


UDAT4 DISK EXERCISER MACRO Xx04_00 Psu 81 QI: je: 03 PAGE 124 SEQ 0427 
eteeeeeees OVERLAY 2 = IF NECESSARY, ISSUE S 
1 ‘ .SBITL **#eeexee® OVERLAY 2 = IF NECESSARY, ISSUE SEEK 
| 2 006557 DMOVLY SK,AREA1 
006557 034666 : .WREDC ;OUTPUT EDC FOR THIS OVERLAY 
3 3 MPeRBRBRBSBAAASAALAAASLALALASLASLLELELASLALSLASLASLARAASASEASAASASLASEREA SESE SESE SSSR SRR SSSR SSS SE 
4 bo PRB RASARAASLAAAASZAASAAAASLALAAAASSAALAESASRSSSASE SRSA RES ERASER RRR RAS ER RRS ARERR RRS RASS SS 
5 § ABR AASAAAAAASLAASLALARLASLALAASLASASLSASARASASLESASASSL SESE LER ESR ESR SARE RES E SERRA RSE RSS SS 
6 5 MeABBRABAABAAAAALASALSALALASLALESASLASAS ALE MSL ESAS BSA SESSA RASA SAS ESE R SESSA SESS EE SE | 
7 3 
: ; 
10 000002 SEEK = 2. ; SEEK OVERLAY 
12 ; SEEK ISSUES A SEEK TO THE CYLINDER SPECIFIED IN U.CCYL(R5) (2 WORDS) 
13 : AND GROUP GIVEN IN U.CGRP(RS) (1 WORD) 
14 : IT THEN RETURNS WITH A DEFERED CALL TO SEKTST (TEST SEEK) TO SEE IF 
15 : THE SEEK COMPLETED SUCCESSFULLY. IF SO, THE-READ WRITE MODULE IS 
16 : THEN CALLED 
18 006560 ‘ DIAGSS PT TTT TTT TTe 
006560 115000 002767 TST $$DIAG+$D 1AG$ 
006562 076570 BEQ +6 
006563 104207 060000 MOV #60000,RO 
006565 100707 174200 MOV RO, a$$DIAG+$D1AGS$ 
006567 006570 BR +] 
19 006570 026625 CALL _TSTNEC : SEE IF SEEK IS NECESSARY 
21 : if SEEMS TO ME THAT IF THE PROGRAM IS CORRECT, I'LL NEVER GET 
22 : THIS ERROR. TO REDUCE CONFUSION FOR THE TIME BEING, I*LL ASSUME 
+4 bs THAT THIS ERROR DOESN'T OCCUR 
25 : MOV ASETUP,RO : IF ERROR, SETUP IS NEXT MODULE ***0« 
26 ; MOV RO.R1 > MAKE R1 NON-ZERO FOR DEFERRED CALL IF ERROR ; 
27 ee ae Sj R2 + SEE IF ERROR OCCURRED 
28 : BNE SEKEXT : IF SO, BRANCH 
30 006571 114002 CLR R2 : TAKE AS NO ERROR (I THINK IT’S REDUNDANT) 
31 006572 115003 TST R3 : SEE IF SEEK IS NECESSARY 
32 006573 016616 BEQ NOSEEK : IF ZERO (NO SEEK NECESSARY), BRANCH 
33 006574 026677 CALL ISUSEK : ISSUE SEEK 
34 006575 115002 TST R2 > SEE 'F ERROR OCCURRED 
35 006576 056621 BNE AF TERR : IF ER RAQR. BRANCH 
36 006577 104657 000033 MOV U.PARM(R5),RO  : GET UNIT PARAMETERS 
37 006601 101207 002000 BIS ASEKINP,RO : FLAG AS SEEK IN PROGRESS 
38 006603 100657 000033 MOV RO,U.PARM(RS) =: SAVE 
39 006605 104207 003720 MOV #2000. ,RO : MOVE TIMEOUT TO PARAMETERS 
40 006607 100657 000005 MOV RO,U.TIMO(RS) =: INITILIZE TIMEOUT VALUE 
41 006611 104201 MOV #1_R1 : DEFERRED CALL TO SEKTST 
42 006613 104207 000003 MOV #SEKTST,RO > SEKTST NEXT TO CALL 
43 006615 006624 BR SEKEXT * BRANCH 
44 006616 104207 004501 NOSEEK: MOV #REDSET,RO + READ/WRITE ROUTINE NEXT 
45 006620 3 BR SEKOUT + BRANCH 
46 006621 104207 000002 AF TERR: MOV #SEEK,RO > SEEK IS NEXT MODULE CALLED ****«« 
47 006623 114001 SEKOUT: CLR R1 > IMMIDA 


TE CALL 
48 906624 003127 SEKEXT: BR JMPRET RETURN TO CALLING PROGRAM 


&S 


cXERC grove 761 VI12705 
TINEC” - =" TEST TO. SEE TF sEK “Tg “NECESSARY 


ow té€0 


-SBTTL TSTNEC = TEST TO SEE IF SEEK IS NECESSARY 


1 
4 006625 TST NEC: 
4 : TSTNEC TESTS TO SEE IF A SEEK IS NECESSARY. IF NOT, R3 IS RETURNED 
Z : AS ZERO, NONZERO OTHERWISE. 
7? 006625 104657 000033 MOV U.PARM(R5S) ,RO : GET UNIT PARAMETERS 
8 006627 102207 000200 BIT ARBNBN , RO : SEE IF BLOCK REVECTORED 
9 006631 6641 BEQ 2s : IF NOT, CH 
10 006632 104650 000041 002340 MOV U.RBN(R5) ,CURBN ; MOVE RBN TO CALCULATION AREA 
11 006635 104650 000042 002341 MOV U.RBN+1(R5) , CURBN* 1 ; MOVE RBN TO CALCULATION AREA 
12 006640 47 BR 3$ ; BRANCH 
13 006641 104650 000037 002340 28: MOV U.CBN(R5S),CURBN ; MOVE LBN TO CALCULATION AREA 
14 006644 104650 000040 002341 MOV U. CBN+1(R5) , CURBN+1 ; MOVE LBN TO CALCULATION AREA 
15 006647 114007 3$: CLR RO ; TELL CALC ROUTINE TO SET UP PARAMETERS 
16 006650 022141 CALL CALC ; CALCULATE CYL AND GROUP 
17 006651 115002 TST Re ; SEE IF AN —" OCCURRED 
18 006652 056676 BNE 10$ : IF SO, BRANCH 
MOV ACYL ,R3 ; R3 POINTS TO CALCULATED CYLINDER 
MOV U.PARM(R5),RO  ; GET UNIT PARAMETERS 
BIT #MRESEEK ,RO : SEE IF SEEK MANDATORY 
BNE 9$ ; IF SO, BRANCH 
MOV #U.CCYL,R2 > R2 WILL POINT TO CURRENT CYL 
ADD R5,Re ; R2 POINTS TO CURRENT CYLINDER 
MOV #3,R1 : GET COUNT 
4$: MOV (R3)+,RO ; GET WORD 
CMP (R2)+,RO ; SEE IF CYL AND GROUP THE SAME 
BNE 9$ ; IF NOT, BRANCH 
DEC R1 > DECREMENT COUNT 
BNE 4$ : IF COUNT INCOMPLETE, BRANCH 
CLR R3 : FLAG AS SEEK NOT NECESSARY 
9$: LR Re : FLAG AS _NO ERRORS 
10$: RE TURN ; RETURN TO SEEK 
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! 
| UDATS DISK EXERCISER MACRO x04. 
OMMAND 


ISUSEK = ISSUE SEEK C 


1 
2 006677 


00 002344 


002344 


R 
on 
ye) 
So 


001006 
077777 
000013 


2 88s 
mw On Ww 
Ss Ss 


010345 
007025 


ee 
00 9=JUL=81 01:12:03 PAGE 126 SEQ 0429 
.SBTTL ISUSEK = ISSUE SEEK COMMAND 
ISUSEK: 
; ISUSEK ISSUES THE SEEK TO THE DRIVE 
001561 MOV CYL, INS+#1 ; MOVE LOW CYL TO SEEK COMMAND 
001562 MOV CYL 41, INS#2 : SET LOWER BITS 
001563 MOV GROUP. INS+3 : MOVE GROUP TO SEEK COMMAND 
MOV #CR.SEK,R3 : SET UP FOR TALK 
CALL _—*iTALK : SEND SEEK 
TST R2 + SEE IF ERROR OCCURRED 
BNE 10$ : IF SO, BRANCH 
MOV #U.CCYL,RO + RO WILL POINT TO CURRENT CYLINDER 
ADD R5,RO + RO POINTS TO CURRENT CYLINDER 
MOV #3._R1 * MOVE THREE WORDS 
PUSH _— <RO,R1> + SAVE POINTER AND COUNT 
MOV RO,=(SP) 
MOV R1.-(SP) 
MOV HU.LCYL,R2 : R2 WILL POINT TO LAST CYLINDER 
ADD R5,R2 : R2 POINTS TO LAST CYLINDER 
1$ MOV (RO) +,R3 + GET WORD 
MOV R3, (R2)+ : SAVE 
DEC R1 + DECREMENT COUNT 
BNE 1$ : IF COUNT INCOMPLETE, BRANCH 
POP <R2,R0> ; RESTORE 
MOV (SP)+,R2 
MOV (SP)+.RO 
4$ MOV ACYL,R1 : R2 POINTS TO NEW CYL 
2$ MOV (R1)+,R3 + GET WORD 
MOV R3, (RO)+ > SAVE 
DEC R2 + DECREMENT COUNT 
BNE 2$ : IF COUNT INCOMPLETE, BRANCH 
BR I SUEXT > BRANCH (NOTE THAT "5 IS ZERO - NO ERRORS) 
10$: CMP #175,R0 ; SEE IF UNSUCCESSFUL RESPONSE WAS RECIEVED 
BNE TMPERR IF NOT, BRANCH 
SOFTER 27,<CURBN,CURBN+1,TRACK,GROUP,CYL,CYL+1> 
001012 MOV #ER27,0UT.04 
001013 MOV CURBN., OUT .05 
001014 MOV CURBN+1, OUT . 06 
001015 MOV TRACK ,OUT .07 
001016 MOV GROUP , OUT .08 
001017 MOV CYL,OUT.09 
001020 MOV CYL+1,0UT.10 
001010 MOV #27 QUT .02 
001010 BIS #ERSOF T.OUT.02 
001007 MOV #.,OUT.01 
MOV HERRMES ,R2 
MOV R2,0UT.RO 
002357 BIC #77777, ERRPOS ; CLEAR PREVIOUS ERRPOS SETTING 
002357 BIS #13, ERRPOS : SET THE POSITION 


BR 
TMPERR: CERROR 
ISUEXT: RETURN 
AREA2 = 


I SUEXT 
5 .ASERY 


+1 


; BRANCH 
; REPORT SECONDARY ERROR 


MOV 
; RETURN TO CALLING PROGRAM 


ASERY,OUT.05 


———_— 


D2 
UDATS DISK EXERCISCR MACRO xX04.00 9-JUL=81 01:12: HS PAGE 127 SEQ 0430 
eeeneeeenrs OVERLAY 3 = SEE IF THE SEEK IS COMPLET 


1 -SBTTL **eeeeeeee OVERLAY 3 = SEE IF THE SEEK IS (PLETE 
2 007024 DMOVLY TS,AREA2 
007026 123711 »WREDC ;OUTPUT EDC FOR THIS OVERLAY 
3 ITT TTT Itt TIT T TTT iti tri tii iittitititti tte titi titi titi iii iii i tii t titi tT) 
4 EetiTIeritiiiiiiiii iii i titi tit iii tit tittitiittitiiitiiiiii titi titi tii iii) 
5 ectiriiiiiiititiiit isi titi ii titi titi ti itiititiiititiiiti titi titi it tit titi it, 
6 RRR E EERE REE CEE EEEREREEEEREREEEEEEEEEEEEE E  e 
7 ; 
: : 
8 000003 SEKTST = ae ; SEEK COMPLETE TEST OVERLAY 
12 5 SEKTST TESTS TO SEE IF READ/WRITE READY OR ATTENTION IS HIGH 
13 ; R2 RETURNED AS ZERO IF SEEK WAS SUCESSFUL, -1 IF SEEK INCOMPLETE 
‘3 ; POSITIVE NON-ZERO IF AN ERROR WAS DETECTED 
16 007025 DIAG$$ PRR RR 
007025 115000 002770 TST $$D IAG+$D 1 AG$ 
007027 017035 BEQ +6 
007030 104207 060000 MOV #60000, RO 
007032 414 173734 “5g - a$$b IAG+$D AGS 
CALL Arps ; GET REAL TIME DRIVE STATE 
TST R2 ; SEE IF ERROR OCCURRED 
BNE RTDSE : IF SO, BRANCH 
BIT #ATITN,R1 s S€€ IF ATTENTION IS HIGH 
BNE ATNHI ; IF ATTENTION HIGH, BRANCH 
BIT ARWRDY,R1 ; SEE IF READ/WRITE READY 
BEO STSERR IF NOT, CH 
MOV U.PARM(RS) ,RO ; GET UNIT PARAME TERS 
BIC #RESEEK ! SEKINP, ni ; CLEAR RESEEK BIT 
MOV RO,U.PARM(RS) SAVE PARAMETERS 
MOV U. SEEK(RS), RO GET NUMBER OF SEEKS ISSUED 
DEC RO ; DECREMENT SEEK COUNT 
BNE SEKCNT ; IF NO REPORT NEEDED, BRANCH 
MOV #U.SNUM,R1 ; R1 WILL POINT TO SUBUNIT NUMBERS 
ADD 1 ; k1 POINTS TO SUBUNIT ER 


S 
; R1 POINTS TO SUBUNIT IN USE NUMBER 
; MOVE TO OUTPUT 
; MOVE SEEK REPORT NUMBER TO RO 
; REPORT TO HOST 
; SET UP FOR NEW COUNT 
; SAVE COUNT 
; READ/WRITE SETUP IS NEXT MODULE 
; IMMIDATE CALL TO NEXT MODULE 
BRANCH 


; GET TIMEOUT VALUE 
; DECREMENT TIMEOUT VALUE 
; SEEK TEST IS NEXT MODULE 


R5,R 
ADD U. SUBU(R5) ,R1 
MOV (R1) ,OUT.01 
MOV #TGSEEK,, RO 
CALL n'y Nagy 


MO #1000. ,RO 
SEKCNT: MOV RO,U. SEEK(R5) 
MOV anaes Ae 

BR STSEXT 
STSERR: MOV ih TRE 


R 
MOV AMSEKTST,RO 
MOV R1,U. TIMO(RS) ; SAVE TIMEOUT VALUE 
SEXT ERO BRANCH 


BNE ST IF NON-2Z 
HARDER 3,<U.LCYL(R5),U. icyL+1(R5), U.LGRP(R5)> 
MOV #ER3,0U 


T.04 
MOV U. reve ers) OUT.05 
MOV U.LCYL+1(R5) ,OUT.06 
MOV U.LGRP(R5) ,OUT.O7 
MOV #3,0UT.02 
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UDAT4 DISK EXERCISER MACRO x04.00 9=JUL=81 01:12: i PAGE 127-1 


| 
| 
[seeseeeee® OVERLAY 3 - SEE IF THE SEEK IS COMPLETE 
| 101200 
104300 


49 007157 007273 
50 ee RTDSE: 


000013 002357 
ATNHI: 


101200 000013 002357 
104207 000002 STSERX: 
STSEXT: 
AREA3 


59 007276 003127 
60 





ERRORC 


ENDERR 


BR 
HARDER 


ERRORC 


ENDERR 


BR 
SOFTER 


ERRORC 


ENDERR 


MOV 
CLR 
BR 


=. 
SEQ 0431 
BIS WERHARD OUT .02 
MOV ,OUT.01 
MOV FERRIC. R2 
MOV R2,0UT.RO 
<U. CCYL(R5) ,U. CCYL +1 (R5),U. CGRP(RS)> 
MOV U.CCYL (RS) ,OUT.08 
MOV U.CCYL+1(R5) ,OUT.09 
MOV U.CGRP(R5) ,OUT.10 
BIS #13, ERRPOS : SET THE POSITION 
STSERX ; BRANCH 
16,<U.LCYL (R5) ,U-LCYL*1(R5),U.LGRP(RS)> 
MOV #ER16,0UT.04 
MOV U.LCYL(R5) ,OUT.05 
MOV U.LCYL+1(R5) ,OUT.06 
MOV U.LGRP(RS) ,OUT.07 
MOV #16,0UT.02 
BIS #-R4ARD,OUT.02 
MOV #.,0UT.01 
MOV HERRMC ,R2 
MOV R2,0UT.RQ 
<U.CCYL(R5) ,U.CCYL+1(R5) ,U. CGRP(R5) > 
MOV U.CCYL (RS) ,OUT.08 
MOV U.CCYL+1(R5) ,OUT.09 
MOV U.CGRP(RS) ,OUT.10 
#13, ERRPOS : SET THE POSITION 
STSERX : BRANCH TO EXIT 
4,<U.LCYL(R5) ,U.LCYL+1(R5),U.LGRP(RS)> 
MOV HERG, OUT.04 
MOV U.LCYL (R5) ,OUT.05 
MOV U.LCYL+1(R5) ,OUT.06 
MOV U.LGRP(RS) ,OUT.07 
MOV #4 ,0UT.02 
BIS #ERSOF T,OUT.02 
MOV #. ,OUT.01 
MOV HERRMES ,R2 
MOV R2,0UT.RQ 
<U. CCYL(R5) ,U. CCYL +1 (R5),U. CGRP(RS) > 
MOV U.CCYL (RS) ,OUT.08 
MOV U.CCYL+1(R5) ,OUT.09 
MOV U.CGRP(RS) ,OUT.10 
BIS #13, ERRPOS : SET THE POSITION 
ASEEK,RO : SEEK IS NEXT MODULE CALLED 
R1 : IMMIDIATE CALL TO SEEK 
JMPRET : RETURN TO SEQUENCER 


— 


aC 


Nee 


a - — — a cc 
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| UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 128 


SEQ 0432 
‘| eeeeeeeree OVERLAY 4 = SET FOR RE AD OR WRITE OPERATION 


1 .SBTTL ‘*exeeeeeee OVERLAY 4 = SET UP FOR READ OR WRITE OPERATION 
2 007277 DMOVLY RW,AREAO 
007277 127343 .WREDC sOUTPUT EDC FOR THIS OVERLAY 
3 PRR R ERE R REE R EERE RRR TEER ERR ER ERR EERE REE E EERE EEE RERERERERER EERE ER ERR ERRORS | 
4 ITITITIIITIIT ITI TTI TITTI TI TI TIT TTTTTL ITLL TTT EEE E LETTE Tete | 
5 FERRER REE ERE REE RRR ERE EEE EEE EERE ERE REE EEE ERE EERE EERE | 
6 LARA AERA REET ERARERREREREEEEH . -LARRRBAASAAASASAASLASASAASLASRRASSRER SESSA SESS SI 
7 3 
; : 
10 000004 RDWRT = 4. ; READ/WRITE OVERLAY 
12 : RDWRT DESIDES WEITHER TO READ OR WRITE THE LBN SET UP, DETERMINED 
13 : BY THE PARAMETERS IN U.PARM(RS). THESE PARAMETERS WERE SET UP 
1% ; IN THE SETUP MODULE 
16 004515 . DIAGS$ p teen eee 
006515 115000 002771 TST $$DIAG+$DIAG$ 
006517 014525 BEQ +6 
004520 104207 060000 MOV #60000,RO 
004522 100707 176245 MOV RO, aS$DIAG+$D AGS 
904524 004525 BR +] 
17 004525 104653 000033 MOV U.PARM(RS),.R3.;_ GET UNIT PARAMETERS 
18 004527 102203 000001 BIT ARCLB,R3 : SEE IF RECALIBRATE JUST DONE 
19 004531 054543 BNE 3$ : IF SO, BRANCH (LEAVE RETRIES AS THEY ARE) 
20 004532 102203 000004 BIT ARETRY,R3 : IF THIS IS A RETRY, START RETRIES AT 1 
21 004534 014537 BEQ 1$ : IF NOT, BRANCH 
22 004535 114001 CLR R1 > START RETRIES AT 1 
23 004536 004541 BR 2$ > BRANCH 
24 004537 104201 177777 1 MOV #-1,R1 : START RETRIES AT 0 
25 004541 100651 000006 2$ MOV R1,U.RWTO(RS5) : SAVE IN UNIT PARAMETER AREA 
26 004543 114001 CLR R1 > IMMIDATE CALL TO NEXT MODULE 
27 004544 114002 CLR R2 : NO ERRORS 
28 004545 102203 000100 BIT #REDWRT ,R3 : SEE IF READ IS TO BE DONE 
29 004547 014556 BEQ RDMOD : IF SO, BRANCH 
30 004550 102203 000040 BIT AREVINP,R3 : SEE IF REVECTOR IN PROGRESS 
31 004552 054556 BivE RDMOD : IF SO, H 
32 004553 104207 000005 MOV AWRITE,RO + WRITE ROUTINE IS NEXT 
33 004555 004565 BR RWEXT ; BRANCH 
34 004556 104207 000006 RDMOD: MOV #READ .RO : READ ROUTINE IS NEXT 
35 004560 102203 000020 BIT #DATERR, R3 > SEE IF DATA ERROR 
36 004562 054565 BNE RWEX : IF SO, BRANCH 
37 004563 100652 000005 MOV R2, vi TIMO(RS) ZERO READ TIMEOUT VALUE 
38 004565 103203 000025 RWEXT: BIC wRETRY ;DATERR:RCLB RS ; CLEAR BITS 
39 004567 100653 000033 MOV R3,U.PARM(RS) : SAVE 
40 004571 003127 BR JMPRE T : RETURN TO SEQUENCER 
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G 2 
| DATS DISK EXERCISER MACRO x04. 00 9=JUL=81 01:12:03 PAGE 129 SEQ 0433 
| weeeeeenes OVERLAY 5 - WRITE 
| 1 LSBITL seeeeeeee® OVERLAY 5 = WRITE 
2 004572 DMOVLY W,AREAO 
004572 013276 .WREDC OUTPUT EDC FOR THIS OVERLAY 
| 3 FERRARA AARERARERERAEREREREEEEERERRERERERRRREERRAEREREERRRERERREREAERARRERRERRS 
4 SEAR EER EERE ERR ERR ERA R EERE RARER ERE RAEERER EERE 
5 TEESE EIIIIDIISIISISISIIUIIISSIIIIIOUIIIIIIUUUUIOIUUOUDUUIEUUUOOOIE SE Stier rr rtnint 
| 6 SEARAARAAERERAAERAEREKRRARAEAEREERRRARARE HH REECE EEKEEEAREREEAEREREEREEEE 
7 : 
z 
10 000005 WRITE = 5. 
4 ; WRITE GENERATES THE PATTERNS AND WRITES THEM TO THE DRIVE 
14 .ENABL LSB 
15 004515 DIAG$$ p RARER RRR 
006515 115 002772 TST $$DIAG+$DIAG$ 
004517 014525 BEQ oe 
004520 104207 060000 MOV #60000,RO 
004522 100707 176246 MOV RO, a$$D [AG+$D 1AG$ 
004524 004525 BR +] 
16 004525 104657 000006 MOV U.RWTO(RS),RO  ; MOVE READ/WRITE TIMEOUT VALUE TO RO 
17 006527 115407 INC RO > DECREMENT COUNT 
18 004530 104072 MOV RO,R2 : COPY COUNT TO R2 
19 004531 103202 177400 BIC #HIBYTE,R2 > CLEAR HIBYTE IF NECESSARY 
0 004533 100652 000006 MOV R2,U.RWTO(RS) =: SAVE READ/WRITE TIMEOUT 
21 004535 014645 BEQ 8$ : IF ZERO, WE KNOW THAT THE TIMEOUT IS UNEX 
2 004536 104641 000000 MOV S.PARM(R4),R1  : GET SUBUNIT PARAMETERS 
23 004540 102201 001000 BIT ARTRIES,R1 : SEE IF RETRIES ARE ENABLED 
24 004542 014556 BEQ 9$ : IF NOT, BRANCH 
25 004543 106207 000002 CMP #2,R0 : SEE IF RECALIBRATION REQUIRED 
26 004545 054553 BNE 10$ + IF NOT, BRANCH 
27 004546 104207 000011 MOV #RECALB,RO * RECALIBRATION IS NEXT MODULE 
28 004550 114001 CLR R1 > IMMIDATE CALL 
29 004551 114002 CLR R2 + NO ERRORS 
30 004552 004773 BR WRTEXT : EXIT 
31 004553 106202 000003 10$: CMP #3,R2 : SEE IF TIMEOUT EXPIRED 
32 004555 054645 BNE 8$ : IF TIMEOUT UNEXPIRED, BRANCH 
33 004556 102201 020000 9$: BIT ADCYLS,R1 : SEE IF IN THE DIAGNOSTIC AREA 
34 004560 054571 BNE 11$ : IF SO, NO REVECTORS, BRANCH 
35 004561 104657 000033 MOV U.PARM<RS),RO =: GET UNIT PARAMETERS 
36 004563 102207 000200 BIT ARBNBN , RO : SEE IF HANDLING A REVECiORED BLOCK 
37 004565 054571 BNE 11$ : IF SO, BRANCH 
38 0045 104653 000045 MOV U.RWER(R5),.R3 : GET LAST WRITE ERROR 
39 004570 054663 BNE 7$ : IF IT IS A WRITE SPECIFIC ERRO, TRY REVECTORING 
40 004571 11$: HARDER 25,<U.CBN(R5),U.CBN+1(R5),U. REN(RS) U.RBN+1(R5)> 
004571 104200 003470 001012 #ERZ5 OUT 
004574 104650 000037 001013 MOV U. CBN(R5S) ,OUT.05 
004577 104650 000040 001014 MOV U.CBN+1(R5) ,OUT.06 
004602 104650 000041 001015 MOV U.RBN(R5) ,OUT.07 
004605 104650 000042 001016 MOV U. sRBN+T(R9) -OUT.08 
004610 104200 000031 001010 MOV #25,0U 
004613 101200 001000 001010 BIS SERURD "OUT .02 
004616 104200 004616 001007 MOV #.,0UT.01 
004621 104202 000014 MOV #ERRMC .R2 
004623 104020 001006 MOV R2,0UT.RQ 
41 004625 ENDERR 0 
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000033 


000400 
000033 
000010 


000016 


000017 
000005 


000001 
001011 


000047 
000034 
001007 
000007 
000001 
000007 
003642 


.00 9=JUL=81 01:12:03 PAGE 129-1 


001010 


8$: 


7$: 


3$: 


2$: 


BEQ 
REPSFT 


U.PARM(R5) ,R3 
#RBNBN ,R 
R3,U.PARM(R5) 
ai, 

RO,U.NSEC (RS) 
ASET 


R5,R1 — 
WRTEXT 


R2 
R2,U.RWER(R5) 
BUILDP 

Re 

1$ 

BUL DUM 
BULDSC 
WBLOCK 
U.PARM(RS) ,RO 
Re 

2$ 

1$ 

#REVEC RO 
RO,U.PARM(R5) 
#MREVCT,RO 

Re 

R1 


WRTEXT 
U.NSEC(R5) ,R1 
3$ 


R1 
R1,U.MSEC(R5) 
AWRITE, 
#MRETRY,RO 
RO,U.PARM(R5) 
ASETUP, 

6$ 
U.PARM(R5S) ,R3 
e R 


RBNBN , 
R3,U.PARM(R5) 
Berens) ae 


5 
SOF T 


#SETUP,RO 
S.MEGW(R4) ,R3 
#1954. ,R3 

6$ 


Be Be Be Be Se Be Be Be Be Be Be Be Be Be Be Be Be Be Fe 


CLR ERRPOS ; CLEAR THE POSITION 


GET UNIT PARAMETERS 
IF HANDLING AN RBN, CLEAR IT 


SAVE 
ONLY 1 SECTOR HANDLED 
STORE 


SETUP IS NEXT MODULE CALLED 
DELAYED CALL TO SETUP 


BRANCH 

TO CLEAR READ ERRORS 
FLAG AS NO ERRORS 

BUILD THE PARAMETERS 

SEE IF AN ERROR OCCURRED 
IF SO, BRANCH 

BUILD DUMMY SDI — BLOCK 
BUILD THE SECTOR 

WRITE THE SECTOR 

GET UNIT PARAMETERS 

SEE IF ERROR OCCURRED 

IF NOT, CH 


IF NOT REVECTORED, BRANCH 
FLAG BLOCK AS REVECTORED 


SAVE 

REVECTOR NEXT MODULE CALLED 

NO ERRORS (REVECTORED SECTCR) 
uae” CALL TO REVECTOR ROUTINE 


BRAN 

GET NUMBER OF SECTORS WRITTEN 
IF ANY WERE WRITTEN, BRANCH 
RO IS NOW 1 

JUST TRY TO WRITE ONE SECTOR 
WRITE IS NEXT MODULE CALLED 


BRANCH 
: nike THAT ATTEMPTING RETRIES 
; SETUP IS NEXT MODULE CALLED 
BRANCH 
; GET UNIT PARAMETERS 


IF HANDLING AN RBN, CLEAR IT 
AVE 


S 

GET READ/WRITE TIMEOUT 

IF SUCCEDED ON FIRST TRY, BRANCH 

REPORT ONE waa os wo ree 


CLR OUT .03 
MOV RO,-(SP) 
MOV f-ee 


5 RO 
ADD U. SUBU(RS) ,RO 
MOV (RO) ,OUT.01 
MOV #T4SOFT,RO 
CALL HOSTRQ 
MOV (SP)+,RO 


SETUP NEXT MODULE CALLED 

GET MEGABYTE COUNT 

SEE IF ONE MEGABYTE TRANSFERED 
BRANCH IF NOT 


SEQ 0434 
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etenteeree OVERLAY 5 - 


88 004755 107203 003642 SUB 
89 004757 100643 000007 MOV 
90 004761 114000 001010 CLR 
91 004763 104200 000001 001011 MOV 
92 004766 304202 000011 MOV 
93 004770 Loris 34 00104 MOV 
95 004773 003127 WRTEXT: BR 


#1954. ,R3-- 
— Si ME GW CR4) 


Be Be Be Be Se Be Be Be 


SEQ 0435 


CLEAR MEGABYTE COUNT 


; SAVE NEW COUNT 


NOT REPORTING READS 
PORT 1 


; FLAG AS NON-ERROR 


DELAYED CALL TO NEXT ROUTINE 
RETURN TO RDWRT 


> 004774 


24 005021 


o— 


201 


Mn 
Ooo 
at ad 


S&sssok 
ip) 
— 


ad td ks ot 
oo = 
Oo 
— 
Ww 


R 
W 
Oo 
N 


100273 


000071 


007417 
002356 


000400 


UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 130 
BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC 


2 


SEQ 0436 


.SBTTL BULDSC = BUILD THE SECTOR TO WRITE (FILL WITH PATTERN AND CALC EDC) 


BULDSC: 


yg’ BUILDS THE INFORMATION AND DATA PATTERN TO BE WRITTEN ON THE 
S 


#7417,R1 
3 


R1,R 
SECPTR,RO 
R5,(RO)+ 
COPPAT 

RO 


CMPEDC 
R2,BF .EDC(RO) 





U.PAT(RS) ,R1 
R3 


GET PATTERN NUMBER TO WRITE 
COPY PATTERN NUMBER TO R3 
SWAP THE BYTES 

a og THE PATTERN NUMBER 
COPY TO R1 

ROTATE. TO NEXT POSITION 


CLEAR UNUSED BITS 

REPLICATE THE PATTERN 

RO POINTS TO BUFFER AREA 

MOVE PATTERN NUMBERS TO SECTOR 
GENERATE PATTERN IN SECTOR 
POINT TO BEGINNING OF SéCTOR 
COMPUTE THE EDC OVER THE SECTOR 


; STORE EDC 
; RETURN TO CALLING PROGRAM 


005022 


26 005056 


000011 
002475 
000377 


000001 


. SBTTL 


COPPAT: 


COPLPO: 


COPLP1: 


ONEPAT: 
COPLP2: 


COPF IN: 


K 


UDATS DISK EXERCISER MACRO x04.00 a 1 01:12:03 PAGE 131 
COPPAT = COPY THE DATA PATTERN TO BUFFE 


SEQ 0437 


COPPAT = COPY THE DATA PATTERN TO BUFFER 


COPPAT COPIES THE PATTERN 
; SAVE RO,R4,R5 


PUSH 


<RO,R4,R5> 


U.PAT(R5) ,R2 
PATPTR(R2) ,R2 
#SCTWRD,R1 


COPLP2 
<R5,R4,RO0> 


TO THE SECTOR TO BE WRITTEN 


MOV RO,-(SP) 

MOV R4,-(SP) 

MOV R5,-(SP) 
R2 HAS PATTERN NUMBER 


POINT TO PATTERN 

R1 HAS NUMBER OF WORDS TO FILL WITH PATTERN 
R4 POINTS TO LENGTH OF PATTERN 

R3_ CONTAINS LENGTH OF PATTERN 

IF BRANCH IS 1 WORD LONG 


F SO, 
RS GETS 1 WORD OF THE DATA PATTERN 
MOVE PATTERN WORD TO SECTOR AREA 
DECREMENT NUMBER OF WORDS TO WRITE IN SECTOR 


CH 
COUNT OF WORDS IN PATTERN 
IF DATA PATTERN UNFINISHED, BRANCH 
BRANCH 


GET 1 WORD OF DATA PATTERN 

MOVE PATTERN TO SECTOR AREA 

DECREMENT NUMBER OF WORDS TO MOVE TO SECTOR 

IF INCOMPLETE, BRANCH 

RESTORE R5,R4.RO 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,RO 

RETURN TO CALLING PROGRAM 


L 2 


-—— 


UDATS DISK EXERCISER MACRO X04.00 9=JUL-81 01: “z 24 = 132 
| WBLOCK = WRITE THE SECTOR(S) AND THEN CHECK FOR E 


4 


SEQ 0438 


° 


005057 


M—OVODONANEWwr— 


—_— td 


7 
23 005230 





OLE 


100000 
077674 
004051 

006 


060 
001624 
000017 


001016 
001017 
001020 


001021 
001022 
001023 


002357 


002357 


ark WBLOCK = WRITE THE SECTOR(S) AND THEN CHECK FOR ERRORS 


1$: 


2$: 


WBLOCK 


SOFTER 


ERRORC 
ERRORC 


ENDERR 


BR 
SOF TER 


ERRORC 
ERRORC 


ENDERR 


BR 
PUSH 
MOV 


WRITES THE SECTOR(S) ONTO THE DRIVE 


RTDS GET REAL TIME STATE 
R2 i iF ANY ERRORS 


i$ 
ay »R1 


IF SO, 
#77674 ,R1 CLEAR UNUSED BITS 
30,<U.RWTO(RS), u! CBN(R5) ,U. reese ie: 


<U. CGRP(R5) ,U.CCYL(R5) ,U.CCYL+1(R5)> 
MOV 
MOV 
MOV 

<U.LCYL(R5) ,U.LCYL+1(R5) ,U.LGRP(R5S) ,R1> 


BIS 


<U. CGRP(R5) ,U.CCYL(R5) .U.CCYL*1(R5)> 
MOV 

MOV 

MOV 

ELE. SN LOM FS? LSD 
V 


MOV 
MOV 


BIS 
WOUT ; BRANCH 
R4 : SAVE R4 


CHAINS ,RO : 


SO, BRANCH 
SEE IF = ASSERTED 


#ER30,0UT.04 

U. RWTOCRS. OUT .05 
U. CBN(R5) ,OUT ..06 
U. CBN+1 (R5) ,OUT.07 
#30,0UT.02 
#ERSOF T ,OUT.02 

#., 01 

MERRMES ,R2 
R2,0UT.RQ 
U.CGRP(R5) ,OUT.08 


U.CCYL(R5) ,OUT.09 
U.CCYL+1(R5) ,OUT.10 


U.LCYL(R5) ,OUT.11 
U.LCYL+1(R5) ,OUT.12 
U.LGRP(R5) ,OUT.13 
R1,0UT.14 


#17, ERRPOS : SET THE POSITION 


#ERSS ,OUT.04 

U. RUTOCRSS« OUT .05 
U. CBN(R5S) ,OUT ..06 
U. CBN+1(R5) ,OUT.07 
#55 ,OUT.02 
#ERSOF T ,OUT.02 
#.,QUT.01 

M#ERRMES ,R2 
R2,0UT.RQ 
U.CGRP(R5) ,OUT.08 


U.CCYL(R5) .OUT.09 
U.CCYL+1(R5) ,OUT.10 


U.LCYL(R5) ,OUT.11 
U.LCYL+1(R5) ,OUT.12 
U.LGRP(RS) ,OUT.13 


#16,ERRPOS : SET THE POSITION 


MOV R4,-(SP) 


POINT TO START OF CHAIN 





; 


| M 2 


UDATS DISK EXERCISER MACRO X04 .00_ 9-JUL=81 01: 12: 05 apace 132=1 SEQ 0439 
WBLOCK = WRITE THE SECTOR(S) AND THEN CHECK FOR E 
24 005232 104652 000022 MOV U.MASK(R5),R2.; R2 HAS SDI INTERCONNECT 
25 005234 104644 000005 MOV S.SCHR(R4).R4 = RG POINTS TO SUBUNIT CHARACTERISTICS 
26 005236 104644 000005 MOV DATPRE (RS) ,R4 ; RS CONTAINS DATA PREAMBLE LENGTH 
27 005240 103204 177400 BIC AHIBYTE RG + STRIP OFF UNUSED 
28 005242 060012 XFC WAITS : WAIT FOR SECTOR OR INDEX PULSE 
29 005243 060003 KFC XWRITE * WRITE THE SECTOR(S) 
30 005244 PoP R4 + RESTORE R4 
005244 104264 MOV (SP)+,R4 
31 005245 025526 CALL  FNDWER ; FIND BUFFER THAT CAUSED ERROR 
32 005246 100652 000016 MOV R2,U.NSEC(R5) = SAVE SECTORS WRITTEN 
33 005250 105642 000007 ADD S.MEGW(R4),R2  : ADD TO MEGABYTES WRITTEN 
34 005252 100642 000007 MOV R2,S.MEGW(R4) =: SAVE 
35 005254 115001 TST 1 : SEE IF ERROR OCCURRED 
3% 005255 015524 BEQ WEXT > IF NO ERROR, BRANCH 
37 005256 100651 000045 MOV R1,U.RWER(RS) =: SAVE WRITE ERROR 
38 005260 021613 CALL — BLKCHK + SEE IF THIS IS A KNOWN BAD BLOCK 
39 005261 BCS 3$ > IF NOT, BRANCH 
5261 045263 BCC +2 
005262 005271 3$ 
40 005263 104652 000016 MOV U.NSEC(R5),R2  ; GET NUMBER OF SECTORS HANDLED 
41 005265 115402 INC R2 : INCREMENT COUNT 
000016 MOV R2,U.NSEC(R5) =: SAVE 
43 005270 005524 BR WEXT : EXIT AS NO ERR 
4 005271 106201 000003 3$: CMP #3,R1 > SEE IF THIS BLOCK IS REVECTORED 
45 005273 015516 BEQ NOHCFL : IF SO, BRANCH 
46 005274 102201 000006 BIT er od : SEE wif HEADER COMPARE FAILURE 
47 005276 015367 BEQ NOTOUT : IF . BRANCH 
48 005277 SOFTER 5,<U.RWTOC(RS) RW. Lowen)” “RW. HI “as on RBN(RS)> 
005277 104200 000720 001012 #ERS ,OUT..04 
2 104650 001013 MOV U.RWTO(RS) ,OUT.05 
005305 104670 1014 MOV RW. LOW(RO) .OUT .06 
005310 104670 000003 001015 MOV RW.HI (RO) ,OUT.07 
005313 104650 001016 MOV U.RBN(R5) .OUT .08 
005316 104200 001010 MOV #5,0UT.02 
$321 101200 001400 001010 BIS #ERSOF T,OUT.02 
005324 104200 005324 001007 MOV #.,OUT.01 
005327 104202 000013 Mov WERRMES - sR2 
005331 104020 001006 R2,0U 
49 005333 ERRORC <U.RBN+1(R5),RW.CMD(RO),U. CGRPCRS) “U. ceve ta) , weer 
005333 104650 000042 001017 U.RBN+1(R5) ,OUT.09 
005336 104670 001020 mov RU CPD(RO).00 : 
005341 104650 000055 001021 MOV U.CGRP(RS) .OUT.11 
005344 104650 000053 001022 MOV U.CCYL(R5) .OUT.12 
005347 104650 000054 001023 MOV U.CCYL+1(R5) ,OUT.13 
50 005352 ERRORC <U.LCYL(R5),U.LCYL+1(R5),U.LGRP(R5)> 
005352 104650° 000056 001024 MOV U.LCYL(RS) ,OUT.14 
005355 104650 000057 001025 MOV U.LCYL+1(R5) ,OUT.15 
005360 104650 000060 001026 MOV U.LGRP(RS) ,OUT.16 
51 005363 ENDERR 
005363 101200 000021 002357 BIS #21, ERRPOS > SET THE POSITION 
52 005366 005525 BR WwOUT : BRANCH 
53 005367 104651 000023 NOTOUT: MOV U.WRIT(RS),R1 = GET WRITE PROTECTION STATUS 
54 005371 104652 000034 MOV U.SUBU(R5).R2  : GET SUBUNIT IN USE 
55 005373 105202 000003 ADD #3,R2 + ADD 3 TO SHIFT WRITE PROT STAT TO LO NIBBLE 
56 005375 110601 FNDWRT: ROR R1 * ROTATE PROTECTION STATUS (LO BIT TO CARRY) 
57 005376 117402 DEC R2 > DECREMENT SUBUNIT IN USE 
58 005377 035375 BPL FNDWRT > IF >= 0, BRANCH 














UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 = 132-2 
WBLOCK = WRITE THE SECTOR(S) AND THEN CHECK FOR ERROR 


SEQ 0440 


59 005400 110601 ROR R1 ; MOVE THE BIT TO TEST TO CARRY 
60 005401 045426 BCC WT IMOT ; IF CARRY CLEAR (NOT WRITE PROTECTED) BRANCH 
61 005402 DEVFTL 18 ; REPORT ERROR 
005402 104200 002470 001012 MOV #ER18,0UT.04 
005405 104200 000022 001010 MOV #18,0UT.02 
005410 101200 001010 BIS #FTLDEV,OUT.02 
005413 104200 005413 001007 MOV #.,OUT.01 
005416 104202 & MOV MERRMC ,R2 
005420 104020 001006 MOV R2,0UT.RQ 
62 005422 ENDERR 
005422 101200 000005 002357 BIS #5 ,ERRPOS ; SET THE POSITION 
63 005425 005525 BR WOUT ; BRANCH 
64 005426 WIIMOT: SOFTER 6,<U.RWTO(RS) ,RW.LOW(RO) ,RW. mong . RBN(R5)> 
005426 104200 001123 001012 #E T.04 
005431 104650 001013 MOV U.RWTO(RS) ,OUT.05 
104670 001014 MOV RW.LOW(RO) ,OUT.06 
005437 104670 000003 001015 MOV RW.HI (RO) ,OUT.07 
005442 104650 000041 001016 MOV U.RBN(R5) ,OUT.08 
005445 104200 001010 MOV #6 ,0UT.02 
005450 101200 0014 001010 BIS MERSOF T ,OUT.02 
005453 104200 005453 001007 MOV #.,0UT.01 
005456 104202 MOV #ERRMES ,R2 
005460 104020 001006 MOV R2,O0UT.RQ 
65 005462 ERRORC <U.RBN+1(R5) ,RW.CMD(RO) ,U.CGRPC(RS) ,U.CCYL(R5) ,U.CCYL+1(R5)> 
005462 104650 000042 (001017 MOV -RBN+1(R5 : 
005465 104670 000004 001020 MOV RW. CMD(RO) ,OUT.10 
005470 104650 000055 001021 MOV U.CGRP(R5) ,OUT.1 
005473 104650 000053 001022 MOV U.CCYL(R5) ,OUT.12 
005476 104650 000054 001023 MOV U.CCYL+1(R5) ,OUT.13 
66 005501 ERRORC <U.LCYL(R5) ,U.LCYL+1(R5) ,U.LGRP(R5)> 
005501 104650 000056 001024 MOV U.LCYL(R5) ,OUT.14 
005504 104650 000057 001025 MOV U.LCYL+1(R5) ,OUT.15 
005507 104650 000060 001026 MOV U.LGRP(R5) ,OUT.16 
67 005512 ENDERR 
5512 101200 000021 002357 BIS #21, ERRPOS : SET THE POSITION 
68 005515 005525 BR WOUT ; BRANCH 
69 005516 104652 000016 NOHCFL: MOV U.NSEC(R5),R2 ; SEE IF THE FIRST BUFFER HAS BEEN WRITTEN 
70 005520 055524 BNE WEXT ; IF SO, BRANCH (DON'T REVECTOR NOW) 
71 005521 104202 177777 MOV #-1,R2 : FLAG BLOCK AS REVECTORED 
72 005523 005525 BR WOUT ; BRANCH 
73 095524 114002 WEXT: CLR R2 : NO ERRORS 
74 005525 00000 WOUT: RETURN ; RETURN TO CALLING PROGRAM; 


. 


er = “TF “ERROR, FIND Ii Ss “Pusi TION in THE CHAIN, 


wee vs 


1 .SBTTL FNDWER = IF ERROR, FIND IT'S POSITION IN-THE CHAIN’ 
: 005526 FNDWER: 
4 : FIND THE FIRST BUFFER THAT IS NOT WRITTEN 
6 005526 PUSH <R1,R4,R5> ; SAVE REGISTERS 
005526 100461 MOV R1,-(SP) 
005527 100464 MOV R4.=(SP) 
005530 100465 MOV RS.-(SP) 
7 005531 104654 000037 MOV U.CBN(R5),R4 — ; GET LO ORDER BN 
8 005533 104655. 000040 MOV U.CBN+1(R5),R5 =: GET HI BN 
9 005535 114002 CLR R2 : CLEAR SECTOR COUNT 
10 005536 104307 002352 MOV CHAINS ,RO : RO POINTS TO FIRST BUFFER 
11 005540 100674 000002 1$: MOV R4,RW.LOW(RO) =: MOVE TO CHAIN 
12 005542 100675 000003 MOV R5.RW.HI (RO) : MOVE TO CHAIN 
13 005544 104171 MOV (RO) RI : GET STATUS BITS 
14 005545 102201 040000 BIT #BUFFLG,R1 > SEE IF THIS BUFFER HAS BEEN WRITTEN 
15 005547 055563 BNE 2$ : IF NOT, BRANCH 
16 005550 115402 INC R2 t INCREMENT SECTOR COUNT 
17 005551 115001 TST R1 : SEE IF END-OF=LIST 
18 005552 075563 BMI 2$ : IF LAST BUFFER, EXIT 
19 005553 103201 170000 BIC #*CHBHINB,R1 > CLEAR UNUSED BIT 
20 005555 104017 MOV R1,RO : MOVE TO RO 
21 005556 105204 000001 ADD #1,R4 ; ADD ONE TO LOW ORDER BN 
22 005560 045540 BCC 1$ : IF NO CARRY, BRANCH 
23 005561 115405 INC R5 > PRPOGATE CARRY 
24 005562 005540 BR 1$ : LOOP 
25 005563 2s: POP <R5,R4,R1> ; RESTORE REGISTERS 
005563 104265 MOV (SP)+,R5 
5564 104264 MOV (SP)4_R4 
005565 104261 MOV (SP)+.R1 
26 005566 000 E TURN ; RETURN TO CALLING PROGRAM 
27 905570 BUF Al = +1 ; SETUP FOR SCRATCH AREA BUFFER 





‘Sean GER enaene ni entraen — 
c 3 

| UDATS DISK EXERCISER ~ the K04.00 9-JUL=81 01:12:03 PAGE 134 SEQ 0442 
eeeeereeee OVERLAY 6 = READ 


1 .SBITL seeeeenee OVERLAY 6 - READ 
2 005567 DMOVLY R,AREAO 
005567 145737 WREDC sOUTPUT EDC FOR THIS OVERLAY 
3 PITTI T ITT TTT TTT ttt ttt ttt tte RRA RERAATAARARAARARARAAARAERAEARAAARARARAREEAE 
4 SERRE ARA RARER RAAREE EAE ERERRER AEH RARER EARARAERAAAERERAEAAERERRERRERERER EES 
5 LEAR AREA AO RARE AREER E RARER EREARAEEEAREEEERARERAAAAERARAARHAAARAERAEEARE HER ERES 
6 Oe ae smh ane a te CI IC Meg: RATAAARAARARARARERAEARAEEAARAARAEARARERERARREREE 
7 ; 
g ; 
10 000006 READ ss = 6. 
12 : READ READS A BLOCK FROM THE DEVICE 
14 -ENABL LSB 
15 004515 DIAG$$ ; tkraneeeeene 
004515 115000 002773 TST $$D1AG+$D1AG$ 
004517 014525 BEQ +6 
004520 104207 060000 MOV #60000,RO 
004522 100707 176247 MOV RO, ASS) 1AG+SDIAGS 
004524 004525 BR 
16 004525 104657 000006 MOV U. *RWTOCRS), RO ; MOVE READ/WRITE TIMEOUT VALUE TO RO 
17 004527 115407 INC RO + INCREMENT COUNT 
18 004530 104072 MOV RO,R2 : COPY COUNT TO R2 
19 004531 103202 177400 BIC #HIBYTE,R2 : CLEAR UNUSED BITS 
20 004533 100652 000006 MOV R2,U.RWTO(RS) = SAVE READ/WRITE TIMEOUT 
21 004535 014645 BEQ 5 : IF ZERO, FIRST TIME -- BRANCH 
22 004536 104641 000000 MOV S.PARM(R4) ,R1 : GET SUBUNIT PARAMETERS 
23 004540 102201 001000 BIT ARTRIES,R1 : SEE IF RETRIES ENABLED 
24 004542 014556 BEQ 9$ : IF NOT, BRANCH 
25 004543 106207 000002 CMP #2,R0 : SEE IF RECALIBRATION REQUIRED 
26 004545 054553 BNE 10$ : IF NOT, BRANCH 
27 004546 104207 000011 MOV #RECALB,RO > RECALIBRATION IS NEXT MODULE 
28 004550 114001 CLR R1 > IMMIDATE CALL 
29 004551 114002 CLR R2 > NO ERRORS 
30 004552 004736 BR 8$ : EXIT 
31 004553 106202 000003 10$: CMP #3,R2 : SEE IF TIMEOUT EXPIRED 
32 004555 054645 BNE 5$ : IF TIMEOUT UNEXPIRED, BRANCH 
33 004556 102201 020000 9$: BIT #DCYLS,R1 > SEE IF ON DIAGNOSTIC CYLINDERS 
34 004560 054571 BNE 11$ : IF SO, NO REVECTORS, BRANCH 
35 004561 104657 000033 MOV U.PARM(R5),RO =: GET UNIT P TERS 
36 004563 102207 000600 BIT #RBNBN!REVEC,RO : SEE IF HANDLING A REVECTORED BLOCK 
37 004565 054571 BNE 11$ : IF SO, BRANCH 
38 004566 104657 000045 MOV U.RWER(RS),RO ; GET LAST READ ERROR 
39 004570 054660 BNE 7$ : IF IT IS A READ SPECIFIC ERROR, TRY REVECTORING 
40 004571 11$: HARDER 26,<U.CBN(R5),U.CBN+1(R5) ,U.RBN(RS) ,U.RBN+1(R5)> 
004571 104200 003544 001012 MOV WER26, OUT .04 
004574 104650 37, 001013 MOV U. CBN(RS) ,OUT.05 
004577 104650 000040 001014 MOV U.CBN+1(R5) ,OUT.06 
004602 104650 1 001015 MOV U.RBN(RS) ,OUT.O7 
605 104650 2 001016 MOV U.RBN+1(R5) ,OUT.08 
004610 200 000032 001010 MOV #26,0UT.02 
004613 101200 001 001010 BIS #ERHARD OUT .02 
004616 104200 004616 001007 MOV ,OUT.01 
004621 104202 000014 MOV TEREAC. R2 
623 104020 001006 MOV R2,0UT .RQ 


004623 
41 004625 ENDERR 0 





er DISK EXERCISER ag “yA X04.00 9=JUL=81 01:12:03 PAGE 134-1 


weeaeteeewe OVERLAY 6 - READ 


| 


Vv > 

Ww os 

Oo o 

Ww 

_ 
SLI8sS=Ssssssss= 
mwuM—nwNmo— oo 
RY GUSrRRRSRsceRr 
=a ueon = 4 Nm SAS 
—NOWUMON 
NOM NMNN? NNN 


024737 
15 


002357 
000033 


000033 
000400 
000033 
000001 


000017 
000006 


000006 
000001 
001011 
000047 
000034 
001007 
000007 
000007 
000033 
000400 


000010 





001010 


5$: CLR 


7$: MOV 
1$: MOV 


2s: MOV 
BEQ 
REPSFT 


3$: MOV 
4$: 
REDEXT: 


8$: 
. DSABL 


D 


U.PARM(R5) ,R3 
ARBNBN ,R 

ae U.PARM(RS) 

RO, U.NSEC(R5) 
SETUP RO 


REORT 
REDEXT 
R 


2 
R2,U.RWER(RS) 
BUILDP 

Re 
1$ 
BUL DUM 
RBLOCK 
Re 
2$ 
1$ 
U.PARM(R5) ,RO 
MREVEC RO 
RO,U.PARM(RS) 
R2 
4$ 
#1,R0 
RO,U.MSEC(R5) 
AMREAD ,RO 
R5,R1 
8$ 
pectic 


SOF T 


-+ peices 


U.PARM(R5) ,R3 
are Me 


AMREVCT RO 
JMPRE T 
LSB 


Be Be Be Se Be Be Be Be Be Be Be Be Fe Ge Be Be Be Be Be Be 


SEQ 0443 


CLR ERRPOS ; CLEAR THE POSITION 
GET UNIT PARAMETERS 
—- LING AN RBN, CLEAR IT 
ONE SECTOR HANDLED 
SAVE 


SETUP IS NEXT MODULE CALLED 
oe CALL TO SETUP 


BRANCH 
TO CLEAR READ ERRORS 
FLAG AS NO ERRORS 

BUILD THE PARAMETERS 

SEE IF AN ERROR OCCURRED 

IF SO, BRANCH 

BUILD THE DUMMY SDI CONTROL BLOCK 
READ THE SECTOR 

SEE IF AN ERROR OCCURRED 


IF NOT, BRANCH 

IF NOT REVECTORED, BRANCH 
GET UNIT PARAMETERS 

MARK BLOCK AS REVECTORED 


SAVE 

NO ERRORS (REVECTORED SECTOR) 
BRANCH 

ONLY TRY TO READ ONE BUFFER 


SAVE 

NEXT MODULE IS READ (TRY AGAIN) 
DELAYED CALL TO NEXT ROUTINE 
BRANCH 


SEE IF ANY SOFT ERRORS OCCURED 
IF NOT, BRANCH 
REPORT SOFT ERROR 
MOV #1 ,0UT.02 
OUT .03 


CLR 
MOV RO,-(SP) 
MOV #U. SNUM RO 
ADD R5,RO 
ADD U. SUBU(RS) ,RO 
MOV (RO) ,OUT.01 
MOV #T4SOF TRO 


CALL HOSTRQ 


CHKECC NEXT MODULE CALLED 

IMMIDATE CALL TO NEXT MODULE 

GET UNIT PARAMETERS 

SEE IF HANDLING A REVECTORING OPERATION 
IF NOT, BRANCH 

IF SO, REVCT IS NEXT MODULE 

RETURN TO RDWRT MODULE 


MOV (SP)+,RO 





E 
Page DISK EXERCISER MACRO K04.00 9-JUL=81 01:12:03 PAGE 135 SEQ 0444 a 


OCK = READ THE SECTORS 


N 
Ww 
N 


004 737- gL: 


742 102201 100000 
745 103201 077674 
004747 104200 004247 
000006 


NM—CODOONANE WR 
N 
oO 


—_ — 


000060 
; 005022 104010 001024 
005024 101200 000017 


104200 006136 
000006 


000056 
005075 104650 000057 
000060 


Oreos 000016 
22 005107 104307 002352 
000022 


a ee - — 


002357 


.SBTTL RBLOCK = READ THE SECTORS 


RBLOCK 


1$: 


23: 


| 
| 
READ A SECTOR FROM THE DEVICE 
CALL as ; GET REAL TIME STATE | 


TST ; SEE iF ANY eee 

BNE 1$ ; IF SO, BRAN 

BIT #RWRDY ,R1 s vee IF READ/WRITE ASSERTED 
BNE 2s : IF CH 

BIC #77674, : EAR “UNUSED BITS 


CL 
SOFTER 31,<U. RUTOCRS) -U. CBN(R5) ,U. CBN+1 (R5) > 
MOV #ER31, 


T.04 
MOV U. RWTOCRS) . OUT .05 
MOV U.CBN(R5) ,OUT.06 
MOV U. ,GBN*1(R3) ,OUT.07 


MOV #31 

BIS ge te OUT .02 
MOV ,OUT.01 

MOV PERRMES .R2 


MOV R2,0UT.RQ 
ERRORC <U.CGRP(R5S),U.CCYL(R5S) ,.U.CCYL+1(R5)> 
MOV U.CGRP(R5S) ,OUT.08 


MOV U.CCYL(R5) ,OUT.09 


MOV U.CCYL+1(R5) ,OUT.10 
ERRORC <U.LCYL(R5),U.LCYL+1(R5) ,U.LGRP(R5) ,R1> 

MOV U.LCYL(R5S) ,OUT.11 
MOV U.LCYL+1(R5) ,OUT.12 
MOV U.LGRP(R5) ,OUT.13 
MOV R1,0UT.14 


BIS #17,ERRPOS ; SET THE POSITION 
BR ROUT ; BRANCH 
SOFTER 56,<U.RWTO(R5) ,U.CBN(RS) ,U. CBN+1 (R5)> ’ 

MOV #ER56,0UT.04 


MOV U.RWTO(RS) ,OUT.05 
MOV U.CBN(R5) ,OUT.06 
MOV U. CENeT ERED OUT .07 
MOV #56,0UT.02 

BIS #ERSOFT OUT .02 


#.,OUT. 
MOV MERRMES ,R2 
MOV R2,0UT.RQ 
ERRORC Sh, PRENSA SP LEO 


U.CGRP(R5) ,OUT.08 
MOV U.CCYL(R5) ,OUT.09 


MOV U.CCYL+1(R5) ,OUT.10 
ERRORC <U.LCYL(R5),U.LCYL*1(R5) ,U.LGRP(R5)> 

MOV U.LCYL(RS) ,OUT.11 

MOV U.LCYL+1(R5), OUT 12 

MOV U.LGRP(RS) ,OUT.13 
ENDERR 


BIS #16, ERRPOS ‘ 3 SET THE POSITION 
BR ROUT ; BRANCH 
MOV CHAINS ,RO POINT TO START OF CHAIN 


MOV U.MASK(R5) ,R2 R2 HAS SDI_ INTERCONNECT 
XFC WAITS] WAIT FOR SECTOR OR INDEX PULSE 


ENDERR 


co Cr 


| 





| DATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE 135-1 SEQ 0445 
|RBLOCK = READ THE SECTORS 
25 005114 2 XFC XREAD : WRITE THE SECTOR(S) 
26 005115 115001 TST R1 ; SEE IF ERROR OCCURRED 
27 005116 015321 BEQ REXT > IF NO ERROR, BRANCH 
28 005117 900851 000045 MOV R1,U.RWER(RS) ; SAVE ERROR TYPE 
29 005121 104707 175227 MOV @CHAINS,RO ; GET FIRST STATUS 
30 0057123 102207 040000 BIT #RUFFLG,RO ; SEE IF FIRST BUFFER FULL 
31 005125 055321 BNE REXT : IF SO, BRANCH (NO ERROR) 
32 005126 021613 CALL _ BLKCHK * SEE IF THIS IS A KNOWN BAD BLOCK 
33 005127 045321 BCC REXT . if . BRANCH 
34 005130 106201 000003 CMP #3,R1 > SEE IF BLOCK IS REVECTORED 
35 005132 015316 BEQ NHCFL : , BRANCH 
36 00513 102201 000006 BIT oT ; SEE IF HEADER COMPARE FAILURE 
37 005135 015226 BEQ NTOUT : IF NOT, BRANCH 
38 005136 SOFTER 19,<U.RWTO(RS) ,Rw. LOw(RO), RW. soley U.RBN(RS)> 
005136 200 002563 001012 #ER19,0UT.04 
005141 104650 000006 001013 mov U.RWTO(RS) ,OUT.05 
005144 104670 000002 001014 MOV RW. LOW(RO) .OUT .06 
005147 104670 000003 001015 MOV RwW.HI (RO) ,OUT.07 
005152 104650 000041 001016 MOV U.RBN(R5) OUT .08 
005155 200 23 001010 MOV #19,0UT.02 
51 101200 001400 001010 BIS #ERSOF T.OUT.02 
005163 104200 005163 001097 MOV #.,0UT.01 
005166 104202 000013 mov #ERRMES she 
005170 104020 001006 R2,0U 
39 005172 ERRORC <U.RBN+1(R5) RW. CMD(RO), U. coRMPCRS) na ceve tas. o verve. +TEns?> 
005172 104650 000042 001017 MOV U.RBN+1(R5),OUT.09 
005175 104670 000004 9001020 MOV fas. CMD(RO) ,OUT.10 
5200 104650 000055 001021 MOV U.CGRP(R5) .OUT.117 
005203 104650 000053 001022 MOV U.CCYL(RS5) ,OUT.12 
5206 104650 000054 001023 MOV U.CCYL#1(R5) ,OUT.13 
40 005211 ERRORC <U.LCYL(R5),U.LCYL*1(R5),U.LGRP(R5S)> 
005211 104650 001024 MOV U.LCYL (R5) ,OUT.14 
005214 104650 000057 001025 MOV U.LCYL+1(R5) ,OUT.15 
005217 104650 001026 MOV U.LGRP(RS) ,OUT.16 
41 005222 ENDERR 
00522 101200 000021 002357 BIS #21,ERRPOS ; SET THE PCSITION 
42 005225 005322 BR BRAN 
43 005226 NTOUT: SOFTER BOL ay RWTO(RS), Ru. POU CRO) RW. vee ~y U.RBN(R5)> 
005226 104200 002765 001012 #ER20,0UT.04 
005231 104650 000006 001013 mov U. ROTORS). OUT.05 
005234 104670 000002 001014 MOV RW. LOW(RO) .OUT .06 
005237 104670 000003 001015 MOV RW.HI (RO) ,QUT.07 
005242 104650 000041 001016 MOV U.RBN(R5) .OUT .08 
005245 200 000024 001010 MOV #20,0UT.0 
005250 101200 001400 001010 BIS WERSOFT OUT .02 
005253 104200 005253 001007 MOV ,OUT.01 
005256 104202 13 Mov aeRRES, R2 
5260 104020 001006 R2,0UT.RQ 
44 005262 ERRORC <U.RBN+1(R5) ,RW.CMD(RO),U. CGRPCRSD “U. cenikey U.CCYL+1(R5)> 
005262 104650 000042 001017 U.RBN+1(R5) ,OUT.09 
005265 104670 000004 00102 MOV Rw. CMD(RO) ,OUT.10 
005270 104650 000055 001021 MOV U.CGRP(RS) .OUT.11 
005273 104650 000053 001022 MOV U.CCYL(R5) .OUT.12 
005276 104650 000054 001023 MOV U.CCYL+1(R5) ,OUT.13 
45 005301 ERRORC <U.LCYL(R5),U.LCYL*1(R5),.U.LGRP(R5)> 
005301 104650 000056 001024 MOV U.LCYL (R5) ,OUT.14 
5304 104650 000057 001025 MOV U.LCYL+1(R5) ,OUT.15 





—-—————___-——_— 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 135-2 


| 


RBLOCK = READ THE SECTORS 


51 005322 


10465C 000060 
a 000021 
es 453 177777 


001026 
002357 


NHCFL: 


REXT: 
ROUT: 


ENDERR 


BR ROUT 
MOV #-1,R2 
iced RCUT 
CLR R2 
RETURN 


MOV U.LGRP(R5) ,OUT.16 


BIS #21,ERRPOS 
BRANCH 
FLAG AS REVECTOR FOUND 
BRANCH 
NO ERRORS 
RETURN TO CALLING PROGRAM; 


. 
° 


SEQ 0446 


SET THE POSITION 


sc 


UDAT4 DISK EXERCISER MACRO K04.00 9=JUL=-81 01:12:03 PAGE 136 SEQ 0447 
FNDRER = FILL IN THE READ CHAIN WITH THE CORRECT HEADERS 


ro 
| 
| 
| 
| , .SBTTL FNDRER = FILL IN THE READ CHAIN WITH THE CORRECT HEADERS 
3 : IN CASE OF PRIMARY REVECTORING, FILL IN THE CHAIN WITH THE CORRECT 
| ‘ : HEADERS 
6 005323 PUSH <R1,R4,R5> ; SAVE REGS 
005323 100461 MOV R1,=(SP) 
005324 100464 MOV R4.=-(SP) 
005325 100465 MOV R5,-(SP) 
7 005326 104654 000037 MOV U.CBN(RS),R4 — ; GET LO ORDER CBN 
8 005330 104655 000040 MOV U.CBN+1(R5),R5 =: GET HI CBN 
9 005332 104307 002352 MOV CHAINS, RO > RO POINTS TO START OF LIST 
10 005334 100674 000002 1$: MOV R4,RW.LOW(RO) > MOVE TO CHAIN 
11 005336 100675 000003 MOV RS.RW.HI (RO) + MOVE TO CHAIN 
12 005340 104171 MOV (RO) ,R1 : GET STATUS OF BUFFER 
13 005341 075355 BM] 2$ + IF END OF LIST, BRANCH 
14 005342 102201 040000 BIT #BUFFLG,R1 ; SEE IF BUFFER FULL 
15 005344 015355 BEQ 2$ : IF NOT, BRANCH 
16 005345 103201 170000 BIC #*CHBHINB,R1 > CLEAR UNUSED BITS 
17 005347 104017 MOV R1,RO + MOVE TO NEW POINTER 
18 005350 105204 000001 ADD #1,R4 > INCREMENT BN 
19 005352 945334 BCC 1$ : IF NO CARRY, BRANCH 
20 005353 115405 INC RS > PROPOGATE CARRY 
21 005354 005334 BR 1$ > LOOP 
22 005355 2s: POP <R5,R4,R1> ; RESTORE R1 
005355 MOV (SP)+,R5 


MOV (SP)+,R4 
MOV (SP)+,R1 


»D 
mn 
~ 
S 
2 


; RETURN TO CALLING MODULE 
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; 2 
| UDATS DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 137 SEQ 0448 
| weeeeeeeee OVERLAY 7 = EDC + ECC CHECKING, DATA COMPARISON, RE 


} 

-SBTTL seeeeeweee OVERLAY 7 = EDC + ECC CHECKING, DATA COMPARISON, RETRIES 
005361 022162 . WREDC ;OUTPUT EDC FOR THIS OVERLAY 
'MARBAAAABRALAALSALALALARARASAAASASERERRR SERRA RRR SERRE RRR RRR AS RR SR SRSA RRR RASA SSS SD 
MARAAAARAAARASLARASASAAAAASASAARARAASASASARASRRRRRR RRR SR RRARAAARARR RR RRS RASA RRR RASS SE SG 
RAhaaA RASA RARAARASLASASASARAALASASASAARRALARARASASARSRR RR RRR ARRAS ARR RRR ASA SASS SS | 
MARA ARARAAASAAARALALALALARAASLASRA SAAR SE ME SRR RR SRRR RR RAR RRR RARER ARR RRR SRR R SSR SS | 


FW —OVODDNAUEW Nm 
x 


| 
| 
j 
| 
000007 CHKECC = ye ; DATA CHECK OVERI.AY 
004515 


1 

1 ; 

: ; SEE IF ECC ERROR WAS DECTECTED 

14 004515 DIAG$$ ; CAREER 

115000 002774 TST $$D IAG+$D 1 AGS 

004517 014525 BEQ +6 
004520 104207 060000 MOV #60000 ,RO 
004522 100707 176250 MOV RO, @$$D i AG+$D 1 AGS 
004524 004525 BR +7 

15 004525 104307 002352 MOV CHAINS ,RO ; RO POINTS TO CHAIN 

16 004527 104671 000000 MOV RW.STAT(RO),R1 ; R1 CONTAINS STATUS 

17 004531 102201 040000 BIT #BUFFLG : SEE IF BUFFER FULL 

18 004533 015262 BEQ EDCDET : IF NOT, BRANCH 

19 004534 102201 010000 BIT MECCFLG,R1 ; SEE IF ECC ERROR DETECTED 

20 004536 015161 BEQ ECCEDT ; IF NOT, BRANCH 

21 004537 021613 CALL BLKCHK ; SEE IF THIS IS A KNOWN BED BLOCK 

22 004540 045262 BCC EDCDET : IF SO, BRANCH 

23 004541 104643 000000 MOV S.PARM(R4) ,R3 : GET SUBUNIT PARAMETERS 

24 004543 102203 010000 BIT Pieete* R3 : SEE my ECC CORRECTION REQUESTED 

25 004545 054641 BNE ORECC :; IF BRANCH 

26 004546 SOF TER cc <U. TIMO(RS) ,RW. LOuckO5. RW. edge = RBN(R5)> 
004546 104200 001327 001012 #ER7,OUT.04 
004551 104650 1013 mov U. TIMO(RS5), OUT .05 
004554 104670 000002 001014 MOV Rw. LOW(RO) .OUT 06 
004557 104670 000003 1015 MOV RW.HI (RO) ,OUT.07 
004562 104650 000041 001016 MOV U.RBN(RS) ,OUT.08 
004565 104200 1010 MOV #7 ,OUT.02 
004570 101200 001400 001010 BIS MERSOF T ,OUT.02 
004573 104200 004573 001007 MOV #.,OUT.01 


tnd #ERRMES ,R2 
R2,0UT.RO 
FRRORC <U.RBN+1(R5),RW.CMD(RO) ,U. CGRPCRS) YU. CCYL (RS) ,.U.CCYL+1(R5)> 
MOV U.RBN+1(R5 


MOV U.CCYL(R5) .OUT.12 
MOV U.CCYL+1(R5) ,OUT.13 


ENDERR OQ 
CLR ERRPOS : CLEAR THE POSITION 
BIT Sersaa R3 ; SEE IF RETRIES ARE ENABLED 
BNE ECC ; IF SO, BRANCH 
BIC #600, OUT. 02 > MAKE SOFT ERROR A HARD ERROR 
MOV #ERRMC,OUT.RQ  ; COUNT ERROR 
MOV #-1,RO0 : FLAG THAT HARD ERROR OCCURRED 
MOV °O,U.ELEV(RS)  ; SAVE 
BR CMPNXT ; BRANCH 





—————-—_—__—— 





UDAT4 DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 137-1 SEQ 0449 
eeeeeeenee OVERLAY 7 - EDC + ECC CHECKING, DATA COMPARISON, RE 
36 004641 CORECC: PUSH RO : SAVE POINTER TO LINK 
004641 100467 MOV RO,=(SP) 
37 004642 060015 KFC ECC : APPLY ECC CORRECTION 
38 004643 115001 TST RI : SEE IF CORRECTION WORKED 
39 004642 014741 BEQ ECCCOK : IF SO, BRANCH 
40 004645 POP RO : RESTORE POINTER TO LINK 
004645 104267 MOV (SP)+,RO 
41 004646 SOFTER 8,<U.TIMO(RS) ,RW.LOW(RO) RW. vonage a RBN(RS)> 
004646 104200 001444 001012 #ERB,OUT.04 
004651 104650 5 001013 mov U.TIMO(R5) ,OUT.05 
004654 104670 000002 001014 MOV RW. LOW (RO) .OUT.06 
004657 104670 000003 001015 MOV RW.HI (RO) ,OUT.07 
104650 1 001016 MOV U.RBN(R5) .OUT .08 
004665 104200 000010 001010 MOV #8,0UT.02 
004670 101200 001400 001010 BIS #ERSOFT,OUT.02 
004673 104200 004673 001007 MOV #.,0UT.01 
004676 104202 000013 Mov MERRMES ,R2 
004700 104020 001006 R2,0UT.RQ 
42 004702 ERRORC <U.RBN+1(R5),RW.CMD(RO),U. CGRP) wU. CCYL (RS), fr CCYL+1(R5)> 
004702 104650 000042 001017 U.RBN+1 (R5) ,OUT.09 
004705 104670 000004 001020 mov NOM (RO) Gur 10 
004710 104650 000055 001021 MOV U.CGRP(R5) .OUT.11 
004713 104650 000053 001022 MOV U.CCYL(R5) .QUT.12 
004716 104650 000054 001023 MOV U.CCYL+1(R5),0UT.13 
43 004721 ENDERR 0 
004721 114000 002357 ERRPOS : CLEAR THE POSITION 
44 004723 102203 001000 BIT erroam R3 s SEE JF RETRIES. URE ENABLED 
45 004725 055257 BNE ECCERR : IF SO, BRANCH 
46 004726 103200 001010 BIC #400, 0UT.02 > MAKE SOFT ERROR A HARD ERROR 
47 004731 104200 000014 001006 MOV #ERRMC,OUT.RQ =: COUNT ERROR 
48 004734 104207 177777 MOV #-1,R _ FLAG THAT HARD ERROR OCCURRED 
49 004736 100657 000024 MOV RO,U.ELEV(RS) = SAVE 
50 004740 005263 BR C + BRANCH 
51 004741 106657 000027 ECCCOK: CMP U.ECCTC(RS) RO : SEE IF CORRECTIONS EXCEED THRESHOLD 
52 004743 035040 BPL ECCTOK : IF NOT, BRANCH 
53 004744 POP s RESTORE POINTER TO LINK 
004744 104267 MOV (SP)+,RO 
54 004745 SOFTER 9,<U.TIMO(RS) ,RW.LOW(RO) RW. a hee ws Te ae 
004745 104200 001547 001012 HERO, OUT.04 
004750 104650 5 001013 add OT aMOCRS), OUT .05 
004753 104670 000002 001014 MOV tes. LOW (RO) OUT .06 
756 104670 000003 001015 MOV RwW.HI (RO) ,OUT.07 
004761 104650 000041 001016 MOV U.RBN(R5) .OUT.08 
04200 000011 001010 MOV #9 OUT 02" 
004767 101200 001400 001010 BIS #ERSOF T ,OUT.02 
004772 104200 004772 001007 MOV . .01 
004775 104202 000013 mov MERRMES sR2 
004777 104020 001006 R2, OU 
55 005001 ERRORC <U.RBN+1(R5) RW. CMD (RO) ,U. CGRP(RS) ‘s. ccve tke) Y PeCYL#1(RS)> 
005001 104650 000042 001017 MOV U.RBN+1(R5) ,OUT.09 
104670 001020 MOV Rw. CMD (RO) ,OUT.10 
005007 104650 000055 001021 MOV U.CGRP(RS) .OUT.11 
005012 104650 000053 001022 MOV U.CCYL(R5) .OUT.12 
005015 104650 000054 001023 MOV U.CCYL+1(R5) ,OUT.13 
56 005020 ENDERR 0 
005020 114000 002357 CLR ERRPOS > CLEAR THE POSITION 
57 005022 102203 001000 BIT #RIRIES,R3 ; SEE IF RETRIES ARE ENABLED 
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k 3 
| UDATG DISK EXERCISER MACRO K046.00 9-JUL-81 01:12:03 PAGE 137-2 SEQ 0450 U 
| teeeeeenee OVERLAY 7 = EDC + ECC CHECKING, DATA COMPARISON, RE S 
58 005024 055257 BNE ECCERR ; IF SO, BRANCH 
59 005025 103200 000400 001010 BIC #400,0UT.02 : MAKE SOFT ERROR A HARD ERROR 
60 005030 104200 000014 001006 MOV #ERRMC,OUT.RQ  : COUNT ERROR 
61 005033 104207 177777 MOV #-1,R0 : FLAG THAT HARD ERROR OCCURRED 
62 005035 100657 000024 MOV RO,U.ELEV(RS) = SAVE 
63 005037 005263 ye CMPNXT ; BRANCH 
64 005040 ECCTOK: POP R3 + RESTORE POINTER TO BUFFER 
005040 104263 MOV (SP)+,R3 
65 005041 104637 000001 MOV RW.BUF(R3),RO  ; RO POINTS TO BUFFER 
66 005043 021143 CALL  CMPEDC : COMPUTE EDC VALUE 
67 005044 106672 000400 CMP BF.EDC(RO),R2 =; SEE IF EDC VALUE MATCHES 
68 005046 055071 BNE 1$ : IF NOT, 
69 005047 REPSFT ECC + REPORT ECC CORRECTION 
005047 114000 001010 CLR OUT .02 
005051 104200 000001 001011 MOV #1,0UT.03 
005054 100467 MOV RO,-(SP) 
005055 104207 000047 MOV #U. SNUM,RO 
005057 105057 ADD R5,RO 
005060 105657 000034 ADD U. SUBU(RS) ,RO 
005062 104170 001007 MOV (RO) ,OUT.01 
005064 104207 000007 MOV #T4SOFT,RO 
005066 020751 CALL  HOSTRO 
005067 104267 MOV (SP)+,RO 
70 005070 005262 BR EDCDET : EXIT 
71 005071 104027 1$: MOV R2,RO SAVE THE COMPUTED EDC 
72 005072 HARDER 10,<U.TIMO(RS), RW. OW(R3), RW. oy U.RBN(RS)> 
005072 1 001662 001012 #ER10,0UT.04 
005075 104650 001013 mov U.TIMO(RS) ,OUT.05 
005100 104630 001014 MOV RW. LOW(R3) .OUT .06 
005103 104630 000003 001015 MOV RW.HI(R3) ,QUT.07 
005106 104650 000041 001016 MOV U.RBN(R5) .OUT.08 
005111 104200 000012 001010 MOV #10,0UT.02 
005114 101200 001000 001010 BIS MERHARD , OUT .02 
005117 104200 005117 001007 MOV #.,OUT. 
005122 104202 000014 Mov MERRMC -R2 
005124 104020 001006 R2,0UT.RQ 
73 005126 ERRORC <U.RBN+1(R5) RW. CMD(R3) .U. CGRPCRSD “U. COWL (RS) ,U.CCYL+1 (R5)> 
005126 104650 000042 001017 U.RBN+1(R5) ,OUT.09 
005131 104630 001020 mov Rw. CMD(R3) ,OUT.10 
34 104650 000055 001021 MOV U.CGRP(R5) .OUT.11 
005137 104650 000053 001022 MOV U.CCYL(R5) .OUT.12 
005142 104650 000054 001023 MOV U.CCYL+1(R5) ,OUT.13 
74 005145 ERRORC <RO,BF.EDC(RO)> ; REPORT ERROR 
005145 104070 001024 V RO, OUT. 
005147 104670 000400 001025 MOV Be “ebe tnO) .UT. 15 
5 005152 ENDERR 0 
005152 114000 002357 CLR ERRPOS : CLEAR THE POSITION 
76 005154 104207 177777 MOV #-1,R0 : FLAG THAT HARD ERROR OCCURRED 
77 005156 100657 000024 MOV RO.U.ELEV(RS) =: SAVE 
005160 005263 BR CMPNXT + BRANCH 
79 005161 104073 ECCEDT: MOV RO.R3 + R3 POINTS TO LINK 
80 005162 104677 000001 MOV RW.BUF(RO),RO  : RO POINTS TO SECTOR 
81 005164 021143 CALL CMP ; COMPUTE EDC 
82 005165 106672 000400 CMP BF EDC(RO).R2 SEE IF EDC VALUES ARE EQUAL 
83 005167 015262 BEQ DCDET : IF BRANCH 
84 005170 HARDER ere <U. TIMO(RS) RW. (Owens) RW. HI(R3), U.RBN(R5)> 
005170 104200 003336 001012 #ER24,0UT.04 








L 3 
UDATS DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE 137-3 SEQ 0451 
weeeeeneee OVERLAY 7 - EDC + ECC CHECKING, DATA COMPARISON, RE 


005173 10465C 000005 001013 MOV U.TIMO(RS) ,OUT.05 
005176 104630 000002 001014 MOV RW. LOW(R3) ,OUT.06 
005201 104630 000003 001015 MOV RW.HI (R3) ,OUT.07 
005204 104650 000041 001016 MOV U.RBN(R5) .OUT.08 
5207 104200 000030 001010 MOV #24 ,0UT.0 
005212 101200 001000 001010 BIS MERHARD ,OUT.02 
005215 104200 005215 001007 MOV #.,QUT.01 
20 104202 000014 MOV MERRMC .R2 
005222 104020 001006 MOV R2,0UT.RQ 
85 005224 ERRORC <U.RBN+1(R5),RW.CMD(R3) ,U. CGRP(RS) ,U.CCYL (R5) ,U. CCYL+1(R5)> 
005224 104650 000042 001017 MOV U.RBN+1(R5) ,OUT.09 
005227 104630 000004 001020 MOV RW. CMD(R3) ,OUT.10 
005232 104650 000055 001021 MOV U.CGRP(R5) .OUT.1 
005235 104650 000053 001022 MOV U.CCYL(R5) .OUT.12 
005240 104650 000054 001023 MOV U.CCYL+1(R5) ,OUT.13 
86 005243 ERRORC <R2,BF.EDC(RO)> ; REPORT ERROR 
005243 104020 001024 MOV R2,0UT.14 
005245 104670 000400 001025 MOV BF .EDC (RO) ,OUT.15 
87 005250 ENDERR 0 
005250 114000 CLR ERRPOS : CLEAR THE POSITION 
88 005252 104207 177777 MOV #-1,R0 ; FLAG THAT HARD ERROR OCCURRED 
89 005254 100657 000024 MOV RO,U.ELEV(RS) SAVE 
90 005256 005263 BR CMPNXT 
91 005257 104207 005267 ECCERR: MOV #ERCOV,RO : ERROR RECOVERY IS NEXT MODULE 
92 005261 005265 BR EXT CHK + BRANCH 
93 005262 114002 EDCDET: CLR R2 > NO ERRORS 
94 005263 104207 005440 CMPNXT: MOV #CMPDAT ,RO : DATA COMPARE IS NEXT MODULE 
95 005265 114001 EXTCHK: CLR R1 > IMMIDATE CALL TO NEXT MODULE 
96 005266 003127 BR JMPRE T + RETURN 





ab 
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UDATS DISK EXERCISER MACRO X04.00 9=-JUL-81 01:12:03 PAGE 128 SEQ 0452 
ERCOV = RETRIES DUE TO DATA ERRORS 

1 -SETTL ERCOV = RETRIES DUE TO DATA ERRORS 

¢ 005267 ERCOV: 

3 : ERROR RECOVERY AND RETRIES 

6 005267 104207 005440 MOV #CMPDAT ,RO ; DATA COMPARE IS NEXT MODULE IF NO RETRIES 
7 005271 104641 000000 MOV S.PARM(R4) ,R1 : GET SUBUNIT PARAMETERS 

8 005273 102201 001000 BIT AMRTRIES,R1 ; SEE IF RETRIES ARE ENABLED 

9 005275 015340 BEQ EROUT : IF _NOT, CH 

10 005276 104657 000005 MOV U. TIMO(R5) ,RO : GET NUMBER OF RETRIES ALLREADY ATTEMPTED 
11 005300 106657 000025 CMP U.RTRY(RS),RO  ; COMPARE MAXIMUM COUNT WITH RETRIES ATTEMPTED 
12 005302 015336 BEQ NLEV ; IF RETRIES EXHAUSTED, BRANCH 

13 005303 115407 INC RO ; INCREMENT RETRY COUNT 

14 005304 100657 000005 MOV RO,U.TIMO(RS5)  ; SAVE RETRY COUNT 

15 005306 104657 000016 MOV U.NSEC(R5) ,RO : SEE IF THIS ERROR IS IN THE 1ST SECTOR 

16 005310 015322 BEQ 1$ ; IF_SO, BRANCH 

17 005311 104651 000033 MOV U.PARM(RS),R1 ; GET UNIT PARAMETERS 

18 005313 101201 000020 BIS #DATERR,R1 ; FLAG AS DATA ERROR 

19 005315 100651 000033 MOV Ri,U.PARM(R5) ; SAVE 
20 005317 104207 000001 MOV ASETUP ,RO ; SETUP IS NEXT MODULE CALLED 
21 005321 005341 BR EREXT ; BRANCH 
22 005322 104207 000001 1$: MOV #1,RO ; ONLY ALLOW 1 SECTOR TO BE WORKED ON 
23 005324 100657 000017 MOV RO,U.MSEC(R5) ; SAV 
24 005326 104207 177777 MOV #~-1,R : START READ RETRIES AT ZERO 
25 005330 100657 000006 MOV RO,U.RWTO(R5) ; SAVE 
26 005332 104207 000006 MOV #READ ,RO ; READ IS NEXT MODULE 
27 005334 104051 MOV R5,R1 ; DELAYED CALL TO READ 
28 005335 005341 BR EREXT ; BRANCH 
29 005336 104207 005343 NLEV: MOV #NEWLEV RO ; NEW LEVEL OF ERROR RECOVERY WILL BE TRIED 
30 005340 114001 EROUT: CLR R1 : IMMIDATE CALL TO NEXT MODULE 

31 005341 114002 EREXT: CLR R2 ; NO ERRORS 

32 005342 003127 BR JMPRET ; RETURN TO SEQNCR 
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EV = SET ERROR RECOVERY LEVEL TO NEW VALUE, THEN RETRY AGA 


3 


SEQ 0453 


— 


S 


1 3 olf NEWLEV = SET ERROR RECOVERY LEVEL TO NEW VALUE, THEN RETRY AGAIN 
¢ 005343 NE WLEV 
: 3 INITIATE A NEW LEVEL OF ERROR RECOVERY 
6 005343 104657 000024 MOV U.ELEV(R5),RO ; GET CURRENT ERROR RECOVERY LEVEL 
7 005345 055377 BNE LEVNZR ; IF NON-ZERO, BRANCH 
8 005346 HARDER > ALL LEVELS TRIED WITHOUT aa 
005346 104200 002025 001012 MOV #ER11 T.04 
005351 104200 13. 001010 MOV #11,0UT. 7-03 
005354 101200 1 1010 BIS #ERHARD , OUT .02 
005357 104200 005357 001007 MOV #.,QUT.01 
005362 104202 000014 MOV MERRMC ,R2 
005364 104020 001006 MOV R2,0UT.RQ 
9 005366 ENDERR 0 
5 114000 002357 CLR ERRPOS ; CLEAR THE POSITION 
10 005370 104207 177777 MOV #-1,RO : FU..g THAT HARD ERROR OCCURRED 
11 005372 100657 000024 MOV RO,U.ELEV(R5) ; SAVE 
12 005374 104207 005440 MOV #CMPDAT ,RO : DATA COMPARE NEXT MODULE CALLED 
13 005376 005415 B NEWEXT ; BRANCH TO EXIT 
14 005377 104070 001565 LEVNZR: MOV RO,ERRLEV : MOVE ERROR hey TO SDI COMMAND 
15 005401 117407 DEC RO ; DECREMENT ERROR LEVEL 
16 005402 100657 00C024 MOY RO,U.ELEV(RS5) ; SAVE ERROR L 
17 0054 104657 000033 MO / U.PARM(R5) ,R : GET UNIT PARAMETERS 
18 0054 101207 020000 BIS #RESEEK,RO- : FORCE A RESEEK ON THE NEXT PASS 
19 005410 57 33 MOV RO.U.PARM(RS) : SAVE UNIT PARAMETERS 
20 005412 104207 005417 MOV ASNDLEV,RO : SNDLEV IS NEXT MODULE 
21 005414 114002 CLR R2 ; NO ERRORS 
22 005415 114001 NEWEXT: CLR R1 ; IMMIDATE CALL TO NEXT MODULE 
23 005416 003127 BR JMPRET ; RETURN TO’ SEQUENCER 
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SNDLEV = SEND THE NEW LEVEL OF ERROR RECOVERY TO THE vRIVE 


-SBTTL SNDLEV = SEND THE NEW LEVEL OF ERROR RECOVERY TO THE DRIVE 


SNDLEV: 


. 
° 


SNDLEV WILL SEND THE ERROR RECOVERY LEVEL TO THE DRIVE 


MOV ACR.ERR,R3 


CALL TALK 
ST R2 
BEQ TALKOK 


CERROR 5,ASER4 
MOV oo 


CLR 

BR SNDE X 

MOV A#RDWRT ,RO 
MOV RS,R1 

CLA. COR 

BR JMPRE T 


Be Be Be Be Be 


POINT TO ERROR RECOVERY COMMAND 
SEND SDI INTERCHANGE 
is . AN Any OC CURRED 


IF NOT, 
REPORT ERROR 

MOV #SER4 ,OUT.05 
SNDLEV WILL BE NEXT MODULE CALLED ****##« 
CALL IMIDATELY 
BRANC 


H 
RDWRT IS NEXT MODULE CALLED 
DELAYED CALL TO NEXT ROUTINE 
NO ERRORS 
RETURN 


ES 
C 4 

UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 141 SEQ 0455 

CMPDAT = DATA COMPARISON ON READ BUFFER(S) 


1 .SBTTL CMPDAT = DATA COMPARISON ON READ BUFFER(S) 
2 005440 CMPDAT: 
4 : CMPDAT COMPARES THE PATTERN WITH THAT READ FROM THE SECTOR 
6 005440 PUSH _— <R4,R5> : SAVE R4,RS5 
005440 100464 MOV R4,=(SP) 
005441 100465 MOV R5.=(SP) 
7 005442 104657 000033 MOV U.PARM(R5),RO  ; GET UNIT PARAMETERS 
8 005444 102207 000002 2$: BIT #DATCMP,RO : SEE IF DATA COMPARE REQUESTED 
9 005446 015536 BEQ CSCEXT ‘ IF NOT, BRANCH 
10 005447 104307 002352 MOV CHAINS, RO ‘ RO POINTS TO LINK 
11 005451 104172 MOV (RO) ,R2 ‘ GET BUFFER STATUS 
12 005452 102202 040000 BIT #BUFFLG,R2 : SEE IF BUFFER FULL 
13 005454 015536 BEQ CSCEXT : IF NOT, BRANCH 
14 005455 104677 000001 MOV RwW.BUF(RO),RO =: RO POINTS TO BUFFER 
15 005457 104172 MOV (RO) ,R2 + R2 HAS PATTEPN NUMBER (IN EACH NIBBLE) 
16 005460 103202 177760 BIC #LBLONB , R2 * CLEAR UNUSED BITS 
17 005462 104020 002440 MOV R2,PNUM + SAVE PATTERN NUMBER 
18 005464 104021 MOV R2.R1 ‘ BUILD PATTERN NUMBER WORD IN R1 
19 005465 110702 SWAB ORR ‘ MOVE PATTERN NUMBER TO HI BYTE 
20 005466 101021 BIS 2,R1 : SET HI BITS 
21 005467 110202 ROL : ROTATE TO HI NIBBLE 
005470 110202 ROL R2 
23 005471 110202 ROL R2 
24 005472 110202 ROL R2 
25 005473 103202 007777 BIC #HBHINB , R2 : CLEAR UNUSED BITS 
26 005475 101021 BIS R2,R1 : SET BITS 
27 005476 110702 SWAB RR : MOVE TO LO BYTE 
28 005477 101021 BIS 1 : SET BITS 
29 005500 106271 CMP (RO)+,R1 : SEE IF REDUNDANT PATTERN OK 
30 005501 055542 BNE * IF NOT. CH 
31 005502 104302 002440 MOV PNUM, R2 : RESTORE R2 
32 005504 104622 002475 MOV PATPTR(R2),R2  : POINT TO PATTERN 
33 005506 104201 000001 MOV #1,R1 : R1 HAS OFFSET INTO BUFFER 
34 005510 104024 XOPLPO: MOV R2.R4 > R4 POINTS TO LENGTH OF PATTERN 
35 005511 104243 MOV (R4)+,R3 * R3 CONTAINS LENGTH OF PATTERN 
36 005512 106203 000001 CMP #1,R3 : SEE IF PATTERN IS 1 WORD LONG 
37 005514 015527 BEQ ONEPAX : IF SO, BRANCH 
38 005515 104245 XOPLP1: MOV (R4)+,R5 ‘ RS GETS 1 WORD OF THE DATA PATTERN 
39 005516 106275 CMP (RO) +.R5 : COMPARE PATTERN WORD TO SECTOR AREA 
40 005517 055543 BNE CMPERR : IF NOMATCH, BRANCH 
41 005520 115401 INC R1 * INCREMENT OFFSET 
42 005521 106201 000400 CMP ASCTWRD+1,R1 = SEE IF ENTIRE BUFFER COMPARED 
43 005523 015536 BEQ CSCEXT : IF ALL WORDS COMPARED, BRANCH 
4 005524 117403 DEC R3 * DECREMENT COUNT OF WORDS IN PATTERN 
45 005525 055515 BNE XOPLP1 : IF DATA PATTERN UNFINISHED, BRANCH 
46 005526 005510 BR XOPLPO * BRANCH 
47 005527 104145 ONEPAX: MOV (R4) RS : GET 1 WORD OF DATA PATTERN 
48 005530 106275 XOPLP2: CMP (RO) +,R5 * COMPARE PATTERN TO SECTOR READ 
49 005531 055543 BNE CMPERR : IF COMPARE ERROR, BRANCH 
50 005532 115401 INC R1 : INCREMENT NUMBER OF WORDS TO COMPARE 
51 005533 106201 000400 CMP #SCTWRD+1,R1 -: SEE IF ALL WORDS COMPARED 
52 005535 055530 BNE XOPLP2 : IF INCOMPLETE, BRANCH 
53 005536 114002 CSCEXT: CLR R2 * NO ERRORS 
54 005537 POP <R5,R4> S RESTORE R5S,R4 
005537 MOV (SP)+,R5 
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UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 141-1 SEQ 0456 
CMPDAT = DATA COMPARISON ON READ BUFFER(S) 
005540 104264 MOV (SP)+,R4 
55 005541 005712 BR CMXEXT ; BRANCH 
56 005542 114001 FWRD: CLR R1 ; ZERO OFFSET 
57 005543 CMPERR: POP <R5,R4> ; RESTORE R5,R4 
005543 104265 MOV (SP)+,R5 
005544 104264 MOV (SP)+,R4 
58 005545 PUSH RO ; SAVE POINTER TO BUFFER 
005545 100467 MOV RO,-(SP) 
59 005546 104037 MOV R3,RO ; MOVE POINTER TO READ CHAIN TO RO 
60 005547 021613 CALL BLK CHK : SEE_IF THIS IS A KNOWN BAD BLOCK 
61 005550 POP RO ; RESTORE RO 
0055590 104267 MOV (SP)+,RO 
62 005551 BCS 1$ ; IF NOT, BRANCH 
005551 045553 / BCC -+2 
005552 005554 BR 1$ 
63 005553 005712 BR CMXEXT ; EXIT 
64 005554 104303 002352 1$: MOV CHAINS ,R3 R3 POINTS TO LINK 
65 005556 HARDER 12,<RW.LOW(R3), Ri. HI(R3),U. oing~* go RBN+1(R5)> 
005556 104200 002057 001012 #ER12,0UT.04 
005561 104630 000002 001013 MOV RW.LOW(R3) ,OUT.05 
104630 000003 001014 MOV RwW.HI(R3) ,OUT.06 
005567 104650 000041 001015 MOV U.RBN(R5) ,OUT.07 
005572 104650 000042 001016 MOV U.RBN+1(R5) ,OUT.08 
005575 200 000014 001010 MOV #12,0UT. 
101200 001000 001010 BIS MERHARD , OUT .02 
005603 200 005603 001007 MOV #.,OUT. 


MOV ,OUT.RQ 
ERRORC <RW.CMD(R3),U.CGRP(R5) ,U.CCYL(R5) ,U. covet (R53 

MOV RW. CMD(R3) ,OUT.09 , 

MOV —«U. CGRP(R5) OUT. 10 

MOV _-U.CCYL(R5) ;OUT..11 


MOV U.CCYL#+1(R5) ,OUT.12 
CMP #4,R1 ; SEE IF IN FIRST 4 WORDS 
BCC SML SUB : IF SO, BRANCH 
SUB #4 ,RO : LOOK BACK FOUR WORDS 
MOV #3,R3 ; OFFSET OF ERROR IN PRINTPOUT IS 3 
BR RCMPER : BRANCH 
SMLSUB: SUB R1,RO : BACK UP POINTER 
MOV R1,R3 ; + IS OFFSET OF ERROR IN PRINTOUT 
DEC RO POINT TO START OF BUFFER 


RCMPER: ERRORC <PNUM,R1,R3, (RO)+, (RO) *, (RO)+, — (RO)+,(RO)+, ——s (RO) +> 


m—OOONO 


a 
1 
1 
1 
2 
1:3 
MOV (RO)+, OUT: 23 
ERRORC <(RO)+,(RO)+, (RO) +, (RO)+, (RO) +, (RO) +> 
MOV (RO) +, OUT .24 


MOV (RO)+,OUT.25 
MOV (RO) + ,OUT.26 
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UDAT4 DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE 141-2 SEQ 0457 
MPDAT = DATA COMPARISON ON READ BUFFER(S) 
005676 10427C 001041 MOV (RO) +,0UT.27 
005700 104270 001042 MOV (RO) +,0UT.28 
005702 104270 001043 MOV (RO) +,0UT.29 
77 005704 ENDERR 0 
005706 114000 002357 CLR ERRPOS : CLEAR THE POSITION 
78 005706 104207 177777 MOV #-1,R0 ; FLAG THAT HARD ERROR OCCURRED 
79 005710 100657 000024 MOV RO,U.ELEV(RS) =: SAVE 
80 005712 104657 000024 CMXEXT: MOV U.ELEV(R5),RO  : GET ERROR RECOVERY LEVEL 
81 005714 075744 BMI 5$ > IF HAR ERROR OCCURRED, BRANCH 
82 005715 106652 000026 CMP U.MLEV(R5),R2  : SEE IF ANY LEVELS USED 
83 005717 055723 BNE $ + IF SO, BRANCH 
84 005720 104652 000005 MOV U.TIMO(RS),R2 =: GET RETRIES 
85 005722 015744 BEQ 5$ : IF NO RETRIES, BRANCH (NO ERRORS) 
86 005723 6$: REPSFT SOFT + REPORT SOFT ERROR 
005723 104200 000001 001010 MOV #1,0UT.02 
005726 114000 001011 CLR ouT.03 
005730 100467 MOV RO,=(SP) 
005731 104207 000047 MOV #U. SNUM, RO 
005733 105057 ADD R5,RO 
005734 105657 000034 ADD U. SUBU(RS) ,RO 
005736 104170 001007 MOV (RO) ,OUT.01 
005740 104207 000007 MOV #T4SOFT,RO 
005742 020751 CALL _HOSTRO 
005743 104267 MOV (SP)+,RO 
87 005744 104657. 000016 S$: MOV U.NSEC(R5),RO  ; GET NUMBER OF SECTORS HANDLED SO FAR 
88 005746 115407 INC RO + INCREMENT COUNT 
89 005747 100657 000016 MOV RO.U.NSEC(RS) =: SAVE 
90 005751 104701 174377 MOV @CHAINS,R1 ‘ R1 IS STATUS OF LINK JUST CHECKED 
91 005753 102201 100000 BIT #EOC,R1 + SEE IF END OF CHAIN 
92 005755 055772 BNE 1$ + IF SO, BRANCH 
93 005756 103201 170000 BIC #*CHBHINB,R1 > CLEAR UNUSED BITS 
94 005760 104010 002352 MOV R1, CHAINS : CHAINS NOW POINTS TO NEXT LINK 
95 005762 104111 MOV (Ri) RI : GET STATUS OF NEXT BUFFER 
005763 102201 040000 BIT #BUFFLG,R1 > SEE IF EMPTY BUFFER 
97 005765 015772 BEQ 1$ IF SO, BRANCH ***#* 
98 ; IF THE ABOVE BRANCH IS TAKEN, ONE OF 3 CONDITIONS EXIST: 
99 tS 1) HEADER COMPARE FAILURE 
100 : 2) TIMEOUT DURING READ 
101 : 3) REVECTORED, BLOCK 
102 : BOTH 1 AND 2 ARE ERRORS THAT ARE "MASKED' BY THE PROGRAM 
103 005766 104207 000007 MOV #CHKECC,RO : WO Suect NEXT MODULE 
104 005770 114001 CLR R1 : IMMIDATE CALL TO NEXT MODULE 
105 005771 006027 BR 4$ > BRANCH 
106 005772 104653 000033 1$: MOV U.PARM(RS),R3 = GET UNIT PARAMETERS 
107 005774 103203 000200 BIC #RBNBN , R3 + IF HANDLING AN RBN, CLEAR IT 
108 005776 100653 000033 MOV R3,U.PARM(R5) = SAVE 
109 105647 000006 ADD S.MEGR(R4),RO  : GET MEGABYTE COUNT 
110 006002 115002 TST R2 : SEE IF ERROR ALLREADY OUTSTANDING 
111 006003 056022 BNE 3$ + IF SO, BRANCH 
112 106207 003642 CMP #1954. .RO * SEE IF ONE MEGABYTE TRANSFERED 
113 036022 BPL 3$ > IF NOT, BRANCH 
114 006007 107207 003642 SUB #1954. .RO > ZERO COUNT 
115 006011 104200 000001 001010 MOV #1,0UT.02 + REPORT 1 MEGABYTE READ 
116 1 CLR ouT.03 > NO WRITE MEGABYTES REPORTED 
117 MOV ATSMXFR,R2 : SET UP FOR MEGABIT REPORT 
118 MOV R2,0UT.29 + FLAG AS NON-ERROR 
119 0064 3$: MOV RO;S.MEGR(R4) : SAVE COUNT 





= 


F 6 
UDAT4 DISK EXERCISER MACRO 04.00 9 JUL “81 01:12:03 PAGE 141-3 SEQ 0458 
CMPDAT = DATA COMPARISON ON READ BUFFER(S 
120 006024 104207 000001 MOV #SETUP,RO : SETUP IS NEXT MODULE CALLED 
MOV R5,R1 : DEFERRED CALL TO NEXT MODULE 
“$: BR JMPRET ; RETURN TO SEQUENCER 
BUFA2 = +7 : SET UP FOR SCRATCH AREA 
IF GE, BUF AT~BUF AZ : SEE WHICH MODULE IS LARGER 
BUF ARA ‘as BUF : IF IT IS READ/WRITE, SCRACH STARTS AFTER THAT 
BUFARA = BUF A2 : IF IT IS CHKECC, SCRATCH STARTS AFTERS THAT 
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_weeeewenws OVERLAY 8 = REVECTORED SECTOR HANDLING 
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SEQ 0459 


aexexeeeee OVERLAY 8 - REVECTORED SECTOR HANDLING 
;OUTPUT EDC FOR THIS OVERLAY 
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REVECTOR OVERLAY 


RRR EEK 


GET UNIT PARAMETERS 

SEE IF REVECTOR ALLREADY IN PROGRESS 
IF SO, BRANCH 

A REVECTOR OPERATION 


GET NUMBER OF SECTORS R/W SO FAR 
ADD STARTING SECTOR OF OPERATION 
MOVE TO TEMP STORAGE 

GET HI STARTING SECTOR 

IF NO CARRY, BRANCH 

PROPOGATE CARRY 

SAVE 


SEE IF RCT SECTOR JUST READ OS Ok 
i aT. TESTED OK 


NOT, EXIT 
SEARCH THE SECTOR TO FIND THE LBN 
SEE IF LBN FOUND 
LBN FOUND, BRANCH AND READ RBN 
SEE IF NULL FLAG FOUND (REVECTOR NOT FOUND) 
IF NOT, BRANCH 


READ NEXT RCT SECTOR 
RETURN CONTROL TO SEQUENCER 
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| UDATS DISK pg Se MACRO xX04.00 9-JUL-81 01: y % PAGE 143 

REVSUP = SETUP THE REVECTOR OPERATION (TO READ R 


SEQ 0460 


1 -SBTTL REVSUP = SETUP THE REVECTOR OPERATION (TO READ RCT) 
| ¢ 004562 EVSUP: 
| 4 : INITILIZE ALL PARAMETERS FOR READING THE RCT TO FING THE RBN THAT 
| Z ; A HEADER HAS BEEN REVECTORED TO 
| : 
7 004562 101207 000040 BIS ARE VINP,RO ; FLAG AS REVECTOR IN PROGRESS 
8 0045 100657 000033 MOV RO,U.PARM(R5) © ; SAVE PARAMETERS 
9 004566 104657 000045 MOV U.RWER(RS),RO ; GET READ/WRITE ERROR TYPE 
10 GO4570 100657 000046 MOV RO,U.RVER(R5) : SAVE FOR REVECTOR INFORMATION 
11 004572 104641 000005 MOV S.SCHR(R4),R1 |; R1 POINTS TO SUBUNIT CHARACTERISTICS 
12 004574 114007 CLR RO ; USE RO TO INITILIZE VALUES 
13 004575 100657 000041 MOV RO,U.RBN(R5) ; START WITH RBN ZERO 
14 004577 100657 000042 MOV RO,U.RBN+1(R5) ; START WITH RBN FERO 
15 004601 100657 000044 MOV RO,U.CCOP(RS5)  ; ON ORIGINAL COPY OF RCT 
16 004603 115407 INC RO ; RO IS NOW 1 
17 604 100657 000017 MOV RO,U.MSEC (RS) : ONLY READ 1 SECTOR AT A TIME 
18 004606 115407 INC RO ; RO IS NOW 2 
— 19 004607 105617 000012 ADD LBNHST(R1),RO- ; “1 POINTS TO 1ST REVECTOR INFORMATION SECTOR 
20 004611 100657 000037 MOV RO,U. CBN(R5) ; SAVE 
21 004613 104617 000013 MOV LBNKST+1(R1),R0 ; 20 HAS HI] FIRST — INFO SECTOR 
22 004615 044617 BCC 1$ : IF NO CARY, BRANCH 
23 004616 115407 INC RO ; PROPOGATE CARRY 
24 004617 100657 000040 1$: MOV RO,U.CBN+1(R5) ; SAVE 
25 004621 114002 CLR Re ; NO ERRORS 
26 004622 104207 000002 MOV #SEEK,RO : SEEK IS NEXT MODULE 
27 004624 0 RETURN 
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/UDAT4 DISK EXERCISER MACRO xX04.00 9-JUL-81 01:12:03 ence 144 SEQ 0461 a 
|REVSOK = SEE IF THE REVECTOR INFO SECTOR JUST READ IS ( 
| 
1 .SBTTL REVSOK = SEE IF THE REVECTOR INFO SECTOR JUST READ IS OK f 
g 004625 REVSOK: if 
4 : SEE IF THE SECTOR WAS READ. IF SO, SEE IF ANY ECC ERRORS WERE iE 
| 5 : FOUND. IF SO, TRY TO CORRECT. IF SUCCESSFUL, RETURN R1 AS ZERO. E 
$ ; IF NOT, GC TO THE NEXT RCT COPY ; 
B 004625 104303 002352 MOV CHAINS, R3 ; R3 POINTS TO SECTOR LINK E 
9 004627 104131 MOV (R3),R1 : GET STATUS E 
10 004630 102201 040000 BIT #BUFFLG,R1 : SEE IF SECTOR FULL E 
11 004632 014646 BEQ ; IF NOT, GO TO NEXT COPY E 
12 004633 102201 010000 BIT #ECCFLG,R1 ; SEE IF ECC ERROR E 
13 004635 014644 BEQ 1$ : IF NOT, TOR OK E 
14 004636 060015 XF C ECC : CORRECT THE SECTOR E 
15 006637 115007 TST R1 ; SEE IF ANY ERRORS OCCURRED E 
16 004640 054646 BNE 2$ ; IF SO, BRANCH E 
17 004641 106657 000027 CMP U.ECCT(RS).RO : SEE IF CORRECTIONS EXCEED THRESHOLD E 
18 004643 074646 BMI 2$ : IF SO, BRANCH E 
19 004644 114001 1$: CLR Ri : THIS SECTOR IS OK E 
20 004645 005036 BR 7$ ; EXIT E 
21 004646 104651 000044 2$: MOV U.CCOP(R5),.R1  ; GET NUMBER OF COPIES TRIED SO FAR E 
22 004650 115401 INC R1 : TRY ANOTHER COT E 
23 004651 106651 000043 CMP U.COPY(R5),R1  : CHECK AGAINST MAX E 
24 004653 035014 BPL ; IF ALL COPIES UNTRIED, BRANCH E 
5 004654 104651 000046 MOV U.RVER(R5),R1  : GET ORIGINAL ERROR TYPE E 
26 004656 106201 000003 CMP #3,R1 : SEE IF RBN HEADER WAS ORIGINALLY FOUND E 
27 004660 054716 BNE 4$ E 
28 004661 HARDER 40,<U.CBN(R5),U.CBN+1(R5) , CURBN, CURBN+1> E 
004661 104200 004625 001012 MOV #ER4O,OUT.04 E 
004664 104650 37 001013 MOV U. CBN(R5) ,OUT.05 E 
004667 104650 0 001014 MOV U. CBN+1(R5) ,OUT.06 E 
004672 104300 340 001015 MOV CURBN,OUT.0 E 
004675 104300 002341 001016 MOV CURBN+1 ,OUT.08 E 
004700 104200 50 0C1010 MOV #40,0UT. E 
004703 101200 001000 001010 BIS MERHARD ,OUT.02 E 
200 004706 001007 MOV #., OUT. E 
004711 104202 000014 MOV MERRMC RZ E 
004713 104020 001006 MOV R2,0UT.RQ E 
29 004715 005011 BR 8$ : SKIP NEXT ERRORS E 
30 004716 110601 4$: ROR R1 : SEE IF TIMEOUT E 
31 094717 044755 BCC 3$ : IF NOT, BRANCH E 
32 004720 HARDER 42,<U.CBN(R5) ,U.CBN+1(R5), CURBN, CURBN+1> E 
004720 104200 005055 001012 MOV #ER42,0UT.04 E 
004723 104650 000037 001013 MOV U. CBNiRS) OUT .05 E 
004726 104650 001014 MOV U. CBN+1(R5) ,OUT.06 E 
004731 002340 001015 MOV CURBN, OUT .07 E 
004734 104300 002341 001016 MOV CURBN+1, OUT .08 E 
004737 200 000052 001010 MOV #42 ,0UT .02 E 
004742 101200 001000 001010 BIS #ERHARD OUT .02 E 
004745 104200 004745 001007 MOV #.,0UT.01 E 
004750 104202 000014 MOV MERRMC .R2 E 

004752 104020 001006 MOV R2,0UT.RQ 
33 004754 005011 BR 8$ ; SKIP NEXT ERROR f 
34 004755 3$: HARDER 41,<U.CBN(R5),U.CBN+1(R5) , CURBN, CURBN+1> E 
004755 104200 004735 001012 MOV #ER41,OUT.04 E 
004760 104650 000037 001013 MOV U.CBN(R5) .OUT.05 f 
004763 104650 000040 001014 MOV U. -CBN+1(R5), OUT .06 E 








-— 


,UDATS DISK EXERCISER MACRO K04.00 9=JUL-81 01:12:03 . ox 144-1 


| 
| 
| 


REVSOK = SEE IF 


48 005036 


THE REVECTOR INFO 


000040 
000002 


00 
00 
00 
00 


J 
C 
1 
1 
1 
1 
00100 


S 
; 
1 
; 
, 
; 


NOOOWwW 


E 
0 
0 
0 
0 
0 


6$: 
7$: 


OR JUST READ | 


RVFAIL 
R5,R1 


7$ 
R1,U.CCOP(RS5) 


RO. ,U. CBN(RS) 
— (R5) ,RO 


RO,U. CBN+1(R5) 
SEEK ,RO 


SEQ 0462 


2 
BIS HERHARD OUT.02 
MOV ,OUT.01 
MOV TERROR 


MOV R2,0UT.RQ 
CLEAR ALL BITS AND DO A FAIL EXIT 
FLAG AS ERROR 
EXIT 
SAVE COPY COUNT 
RQ POINTS TO SUBUNIT PARAMETERS 


RO IS RCT COPY SIZE 
ADD CURRENT SECTOR 
SAVE 


IF NO CARRY, BRANCH 
GET HI CURRENT BLOCK NUMBER 
ae COUNT 


SEEK IS NEXT MODULE 
RETURN TO CALLING PROGRAM 


AMARA HH HMMM Mm 






i i ie ad 


————EaEeEeEeEeEeeeeeeeEeeeeeeeeeeeeeeeeeeeEeEeEeEeeeeeEeEeEeEeEeEeeeeeEeEeEeEeEeEeEeEEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeoeeeeelleeeeee > - alien —— - — : = -— 
K 4 

UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 145 SEQ 0463 
SEARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ 


ar 





1 .SBTTL SEARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ H 
é 005037 EARCH: H 
4 : SEARCH THE RCT SECTOR JUST READ TO FIND THE LBN OR THE NULL ENTRY H 
6 005037 104307 002352 MOV CHAINS ,RO : RO POINTS TO LINK (NODE ) IN READ CHAIN H 
7 005041 104677 000001 MOV RW.BUF(RO),.RO =: RO NOW POINTS TO BUFFER H 
8 005043 114001 CLR R : R1 IS RBN NUMBER OFFSET WITHIN THE SECTOR H 
9 005044 104672 000001 1$: MOV 1(RO) ,R2 : GET RCT CODE 

10 005046 075133 BMI + ; IF NULL POINTER, ENTIRE TABLE EXHAUSTED, BRANCH 

11 005047 102202 020000 BIT #020000,R2 ; SEE IF IT IS A USED RBN é 

12 005051 075111 BEQ 5$ ; IF NOT, CH H 

13 005052 103202 170000 BIC #*CHBHINB,R2 =: CLEAR CODE H 

14 005054 106302 002341 CMP CURBN+1,R2 + SEE IF HI ORDER MATCHES H 

15 005056 055111 BNE 5$ + IF NOT, BRANCH H 

16 005057 106170 002340 CMP (RO), CURBN ; SEE IFLO ORDER MATCHES H 

17 005061 055111 BNE 5$ : IF NOT, BRANCH 4 

18 005062 105651 000041 ADD U.RBN(RS),R1 -: ADD RUNNING RBN TO OFFSET , 

19 005064 100651 000041 MOV Ri,U.RBN(RS) = SAVE H 

20 005066 045074 BCC 2$ : IF NO CARRY, BRANCH 

21 005067 104651 000042 MOV U.RBN+1(R5),R1 =: GET HI ORDER RBN t 

22 005071 115401 INC Ri + PROPOGATE CARRY k 

23 005072 100651 000042 MOV R1,U.RBN+1(R5) =: SAVE I 

24 005074 104657 000033 2$: MOV U.PARM(RS).RO  : GET UNIT PARAMETERS I 

25 005076 101207 000200 BIS #RBNBN , RO : FLAG ALL ROUTINES THAT THIS IS AN RBN | 

26 005100 100657 000033 MOV RO.U.PARM(RS) =: SAVE ] 

27 005102 025251 CALL = RVFAIL : FAIL EXIT DOES WHAT WE WANT, JUST CLEAR R1 AND R2 1 

28 005103 114001 CLR R1 : NO SECTORS R/W SO FAR ] 

29 005104 100651 000016 ! MOV R1,U.NSEC(R5S) =: SAVE 1 

005106 114002 CLR R2 * NO ERRORS 1 

31 005107 114001 CLR R1 > FOUND IT ] 

32 005110 005250 BR 7$ > EXIT | 

33 005111 105207 000002 5$: ADD #2.RO t POINT TO NEXT RBN RECORD 1 

005113. 115401 INC R1 ; INCREMENT RBN OFFSET 1 
35 005114 106201 000200 C #128. ,R1 : SEE IF ALL RECORDS TRIED ] 
005116 055044 BNE : IF NOT, BRANCH ] 
37 005117 114002 CLR R2 + TO SIGNAL CALLING ROUTINE TO READ NEXT SECTOR ] 
005120 105651 000041 ADD U.RBN(R5),R1 =: ADD OLD RBN TO 128 ] 
005122 100651 000041 MOV R1,U.RBN(RS) = SAVE ] 

40 005124 045250 BCC 7$ : IF NO CARRY, EXIT ] 

41 005125 104651 000042 MOV U.RBN+1(R5),R1 3 GET HI ORDER RBN ] 

42 005127 115401 INC Ri * PROPOGATE CARRY | 
3 005130 100651 000042 MOV R1,U.RBN+1(R5) 3 SA VE ] 

44 005132 005250 BR 7 : EXI l 

45 005133 104651 000046 —- 6$: MOV U.RVER(RS) RI: GET T ORIGINAL ERROR | 

46 005135 106201 000003 CMP #3,R1 : SEE IF REVECTORED BLOCK ORIGINALLY FOUND ] 

47 005137 055167 BNE : IF . BRANCH 

48 005140 HARDER 43,<CURBN, CURBN+1> : REPORT ERROR ] 

005140 104200 005171 001012 #ER43,0UT.04 
005143 104300 002340 001013 MOV CURBN.OUT.05 
005146 104300 002341 001014 MOV CURBN+1 ,OUT.06 
005151 104200 001010 V #43,0UT.02 
005154 101200 001 001016 BIS M#ERHARD ,OUT.02 ] 
005157 104200 005157 001007 MOV . ,OUT.O 
005162 104202 000014 MOV #ERRMC RZ | 

5164 104020 001006 V R2,0uUT .RO | 


00 MO 
49 005166 005246 BR 9$ ; SKIP NEXT ERRORS 





UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 145-1 
SEARCH = TRY TO FIND THE LBN IN THE RCT SECTOR JUST READ 


50 905167 110601 8S: ROR R1 : SEE IF TIMEOUT 
51 005170 045220 BCC 3$ : IF NOT, BRANCH 
52 005171 HARDER 45,<CURBN, CURBN¢1> : REPORT ERROR 
005171 104200 005352 001012 MOV #ER4S ,OUT.04 
005174 104300 002340 001013 MOV CURBN, OUT . 05 
005177 104300 002341 001014 MOV CURBN+1 ,OUT.06 
095202 104200 001010 MOV #45 ,0UT.02 
$205 101200 001 001010 BIS RHARD , OUT .02 
005¢70 104200 005210 001007 MOV #. ,OUT.01 
005215 104202 14 MOV #ERRMC R2 
5215 194020 001006 MOV R2,0UT -RO 
53 005217 005¢%6 BR 9$ - SKIP NEXT ERROR 
4 005220 3$: HARDER 44,<CURBN, CURBN¢+1> ; REPORT ERROR 
005220 104200 005256 001012 MOV #ERG4 ,OUT..04 
005223 104300 002340 901013 MOV CURBN, OUT . 05 
226 104300 002341 091014 MOV CURBN+1 ,OUT .06 
005231 104200 4 091010 MOV #44, QUT .02 
005234 101200 01010 BIS MERHARD , OUT .02 
005237 104200 005237 001007 MOV #.,0UT.01 
005242 202 4 MOV #ERRMC .R2 
005244 104020 001006 MOV R2,0UT.RQ 
55 005246 025251 9$: CALL RVFAIL ; CLEAR ALL BITS, FAIL EXIT 
56 005247 104051 MOV / > FLAG AS ERROR 
57 005250 000000 7$: RETURN ; RETURN TO CALLING PROGRAM 





SEQ 0464 
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.SBTTi 


RVFAIL: 


1$: 


AND CALL SETUP NEXT 


UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 146 
RVFAIL = CLEAR ALL REVECTOR BITS, 


RVFAIL = CLEAR ALL REVECTOR BITS, AND CALL SETUP NEXT 


CLEAR ALL REVECTOR BITS, AND RESTORE U.CBN TO WHAT IT WAS 
; GET UNIT PARAMETERS 


U.PARM(R5) ,R1 
apa RV 


R1,U.PARM( 
RI 


RI -U.NSEC(R5) 
U. -CSEC(RS) .R1 


R1 


R1,U. CBN+1(R5) 
#SETUP,RO 


Be Be Be Be Be Be Be Se Be Be Be Se 


. save LEAR ALL REVECTOR BITS 
Ae THAT A SECTOR HAS BEEN READ (SKIPPED) 


GET NUMBER OF SECTORS 

ADD STARTING SECTOR NUMBER 
RESTORE CBN 

GET HI MBN 

IF NO CARRY, BRANCH 


BN 
SETUP NEXT ROUTINE 
RETURN TO CALLING PROGRAM 


SEQ 0465 





222222222222 222222222222222 222233 20C 


N 4 
| UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE 147 
NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 


SEQ 0466 


1 .SBTTL NXTRCT = GET THE NEXT RCT SECTOR TO SEARCH 
é 005302 NXTRCT: 

4 : INCREMENT CBN BY 1 AFTER SUBTACTING THE NUNMBER OF COPIES*RCT SIZE 
> : T WAS SEARCHED THROUGH ON THE LAST PASS 

7 005302 104652 000037 MOV U.CBN(RS),R2__  ; R2 HAS LO ORDER RCT BN 

8 005304 104653 000040 MOV U. CBN+1(R5) ,R3 ; R3_HAS HI ORDER RCT BN 

9 005306 104657 000044 MOV U.CCOP(RS) ,RO ; GET NUMBER OF COPIES THAT HAVE BEEN READ 
10 005310 015322 BEQ 3$ : F NO COPIES, BRANCH 

11 005311 104641 000005 MOV S.SCHR(R4),R1 ; RI POINTS TO SUBUNIT CHARACTERISTICS 

12 005313 104611 000014 MOV RCTCSZ(R1).R1 =: R1 HAS RCT SIZE 

13 005315 107012 1$: SUB R1,R + SUBTRACT FROM LO ORDER BN 

14 005316 045320 BCC 2$ + IF NO BORROW, BRANCH 

15 005317 117403 DEC R3 + PROPOGATE BORROW 

16 005320 117407 2$: DEC RO : DECREMENT COUNT 

17 00532 055315 BNE 1$ ; IF NO CARRY, BRANCH 

18 005322 105202 000001 3$: ADD #1,R2 ; INCREMENT CBN BY 1 

19 005324 045326 BCC : IF NO CARRY, BRANCH 

20 005325 115603 INC R3 > PROPOGATE CARRY 

21 005326 100652 000037 4$: MOV R2,U.CBN(R5) : SAVE LO ORDER 

22 005330 100653 000040 MOV R3.U.CBN+1(R5) =: SAVE HI ORDER 

23 005332 114002 CLR R2 ; NO ERRORS 

24 0053335 104207 000002 MOV #SEEK,RO ; NEXT MODULE IS RDWRT 

25 005335 000000 RE TURN 





N 
N 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 








_ @ vhs aetstQ Awe. eer |' rot) aire AGE? v4or 
peneereeees UVERLAY 9 = ke cALIBRATION MODULE 
1 -SBITL *eeeeexeee OVERLAY 9 = RECALIBRATION MODULE 
2 005336 DMOVLY RB,AREAO 
005336 025600 .WREDC ;OUTPUT EDC FOR THIS OVERLAY 
3 FERRARA EAA EAE ERA EEE RE ERA RAEREEREE EERE ERATE ERREEEERAEREEAREERE EEE 
4 LEAT AAR AERA RARER EEE ERE EERE EERE EREEREEAEEREEREER ERR EEE 
5 LER ERA ARERR EERE ERE REE EERE EEREREEREREREEEREE EEE 
6 LRAAAAARERAAARERHARRAEHARAEREERER REE CHER KEERERAREEREREKREEEREREE 
7 3 
8 ; 
G ; 
10 -ENABL LSB 
11 000011 RECALB = ; RECALIRBRATION MODULE 
12 004515 DIAGS$$ PRR Re 
004515 115000 002776 TST $$D IAG+$D 1 AG$ 
004517 014525 BEQ +6 
004520 104207 060000 MOV #60000 ,RO 
004522 100707 176252 MOV RO, a@$$D 1 AG+$D 1AG$ 
004524 004525 BR +1 
13 004525 104203 001532 MOV ACR. INR,R3 ; POINT TO THE INITIATE RECALIBRATION ROUTINE 
14 004527 115002 TST R2 ; SEE IF ANY ERRORS OCCURRED 
15 004530 014540 BEQ 1$ ; IF NOT, BRANCH 
16 004531 CERROR 5,ASER7 ; REPORT SECONDARY ERROR 
004531 1042 010275 001013 MOV ASER7,0UT.05 
17 004534 104051 MOV R5,R1 ; DEFERRED CALL 
18 004535 104207 000011 MOV #RECALB,RO ; TRY RECALB AGAIN 
19 004537 004567 BR 2s ; EXIT 
20 004540 104657 000033 1$: MOV U.PARM(RS),RO ; GET UNIT PARAMETERS 
21 004542 101207 020001 BIS MRESEEK!RCLB,RO ; FORCE A SEEK, MARK RECALIBRATION JUST DONE 
22 004544 100657 000033 MOV RO,U.PARM(R5) : SAVE 
23 004546 104657 MOV U.RWTO(R5) ,RO ; GET READ/WRITE TIMEOUT VALUE 
24 0045 117407 DEC RO ; ADJUST BECAUSE IT DIDN'T R/W LAST TIME 
25 0045 101207 100000 BIS #100000,R0 3; MAKE THE RECALIBRATION COMPARE FAIL 
26 004553 100657 000006 MOV RO,U.RWITO(RS) 3; SAVE 
27 004555 114002 CLR RZ : NO ERRORS 
28 004556 100652 000053 MOV R2,U.CCYL(RS) ; ZERO CYLINDER 
29 004560 100652 000054 MOV R2,U.CCYL+1(R5) 
30 004562 100652 000055 MOV R2,U.CGRP(R5S) 
31 0045 114001 CLR R1 ; IMMIDATE CALL 
32 004565 104207 000002 MOV #SEEK,RO ; SEEK IS NEXT MODULE 
33 004567 003127 2$: BR JMPRE T ; RETURN TO SEQNCR 
34 DSABL LSB 
35 004570 END 
004570 140241 WREDC ;OUTPUT EDC FOR THIS OVERLAY 
000001 END 


ch hCrCU mr Or - —_— 


UDAT4 DISK EXERCISER MACRO K04.00 9=-JUL-81 01:12:03 PAGE 148-1 SEQ 0468 
SYMBOL TABLE 
AFINIT 003254 CLCLBN 005042 DCOUT 006472 ER17 002442 FIRSTU= 007717 
AFTERR 006621 CLCMAX 006766 DCREAD 006463 ER18 002470 FIXPAT 006413 
ALLOCM 002112 CLRBUF 000777 DCYLS = 020000 ER19 002563 FNDBES 005275 
AREAO = 004515 CLROK 331 DEC2 005445 ER2 000225 FNDLOP 005305 
AREA] = CLRUP_ 006343 DINIT = 000011 ER20 002765 FNDWER 005526 
EA2 = 007025 CLXEXT 002334 DIREC = 010000 ER21 003170 FNDWRT 005375 
AREAS = 007 CMPDAT 005440 001544 ER23 003231 F ORMAT= 
DISCON= 000204 ER24 003336 FRAME = 
= 000016 ER25 003470 FSTOP = 1 
DOWNG 006136 ER26 003544 FTIME = 001000 
DOWNT 005774 ER27 003617 FTLDEV= 000400 
DRC 001550 ER28 003746 FTLSYS= 
DROP = 100000 ER29 004012 FT .BUF= 
DROPSU 002472 ER3 000363 FT.HI = 000001 
DRPTST 003362 ER30 004051 FT.LOW= 
DRTYPE= 000007 ER31 004247 FWRD 005542 
DRVCLR= 000005 ER32 004444 GCR 001552 
DRVEXT 007466 ER33 004546 GE TCHR= 
DRVID = 000004 ERS 000547 GETMEM 005072 
DRVONL= 000213 ER4O 004625 GETSTA= 
DRVRUN= 000014 ER41 004735 Ge TSUB= 000210 
DUMSDI 002447 ER42 005055 GETU 007543 
D.LIMT= ER43 005171 007467 
D.SCHR= 000002 ER44 005256 GONE 003113 
ECC = 000015 ER45 005352 GOTOBE 
ECCCHK= 010000 ERS 000720 GOTOFS 004775 
ECCCOK 004741 ER5O 005443 003125 
ECCEDT 005161 ER51 005510 GROUP 002346 
ECCERR 005257 ERS2 005575 GRPCYL= 0 2 
ECCFLG= 010000 ERS3 005660 GRPOF F = 1 
ECCRSH= 000002 ERS4 005674 GST 001555 
ECCTOK 005040 ERS5 005743 GSTOK 4 
ECHO = 000010 ER56 006136 HBH I NB= 
ECHOC = 000350 ERS7 006330 = 170377 
EDC 001157 ER58 006423 HDRPRE= 5 
EDCDET 005262 ER59 006515 HD.BAD= 110000 
EDCLOP 001157 ER6 001123 HD.DBN= 140000 
0 = 100000 ER61 006540 HD. LBN= 
ERCOV 005267 ER62 006766 HD.PRV= 050000 
ERECOV= 6 ER? 001327 HD . RBN= 
EREXT 005341 ER70 007230 HD.REV= 030000 
ERHARD= 001000 ER71 007311 HD 120000 
ERLEV = 000 ER72 007373 HEADER= 
EROUT ER73 007472 H 002335 
RR 001564 ER74 007562 HIBYTE= 177400 
ERRCNT 002443 ER75 007652 HICYL = 1 
ERRLEV 001565 ER76 007746 HIDBN = 000003 
ERRMC = 000014 ER8 001444 HILBN = 2 
ERRMES= 000013 ER80 010365 HIMEM = 010000 
ERRPOS 002357 ERO 001547 = 3 
ERSOF T= 001400 EVRYOK 004446 HISEED 002446 
ER 000062 EXIT = 000021 HI] 
ER10 001662 EXTCHK 005265 HNDEX 004027 
ER100 010455 FB.DAT= 000000 HOSTRQ 000751 
ER11 002025 FB.EDC= 000400 HRDREV= 00000 
ER12 002057 FCTSIZ= 000010 HRQ 004154 
ER16 002302 FILLIN 002014 IERR 003347 





Pa 
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D5 
| UDATS 43 EXERCISER MACRO x04.00 9=JUL-81 01:12:03 PAGE 148-2 SEQ 0469 
SYMBOL TABLE 
INC2 005430 LOADED O03 163 NOU 004730 OVE .RW= 004515 RBNFLG 002343 
INDEX 002351 LOBYTE= 000377 NOUNIT 003020 OVE.SK= 006560 RBNTRK= J00004 
INITD 007334 LOCYL 001561 NRTDS 003327 OVE.ST= 004515 RBUFLN= 000415 
INI TW = 040000 LONG 001532 NSTATE 003747 OVE.TS= 007025 RCBREQ 004367 
001557 LONGTO= 0 NTOUT 00522 OVE.W = 004515 RCLB_ = 000001 
NS 001560 LOSEED 002445 0453 OVL.CK= 001314 G RCMPER 005641 
INSCHR 005724 L = NUMOVL= 000012 OVL.MN= 007017 G RCONT = 000000 
INSEEK= 2 LRDTRK 002342 TR= 000006 OVL.MS= 010644 G RCTCPS= 000001 
INSET 005562 LSTTRK 006321 NXTRCT 005302 OVL.R = 000645 G RCTCSZ= 000014 
INTEDC= 1 MASK 51 NXTSEC 004706 OVL.RB= 000054 G RCV___= 000005 
IN. 001044 MASKLO 005033 OK2DRP 004436 OVL.RV= 000622 G RCVERR= 000004 
IN.01 001045 MASKLP 005104 ONEPAT 005047 OVL.RW= 000056 G RCVRDY= 000001 
IN.02 001046 00454 ONEPAX 005527 OVL.SK= 000245 G RDMOD 004556 
IN. 001047 MAXDST= 000003 ONEREG 005032 OVL.ST= 002043 G RDSTAT 000720 
N. 001050 MAXMUM 0065 ONL 001566 OVL.TS= 000253 G RDWRT = 0 
IN.OS 001051 MAXSEC 002355 ONLERR 007440 OVL.W = 001053 G READ = 
IN.06 001052 MBXFER 00415 ONL OK 04276 OVL...= 026656 RECALB= 0000 
IN.07 001053 MEDTYP= 0000 ONLYCL= 000200 OVRLAY 003152 RECOVE 004021 
IN.08 001054 MEMPOL 002473 OTABLE 002360 OVSTRT= 007774 RECOVR 004161 
IN.09 0C1055 MESSAG= 000 OUT.RQ 001006 OVS.CK= 052150 G REDEXT 004727 
IN.10 001056 MICREV= 000003 OUT.01 001007 OVS.MN= 001040 G REDSET 004501 
IN.11 001057 MKLOOP 005531 OuT.02 001010 OVS.MS= 017076 G REDWRT= 0001 
IN.12 001060 MOD 001546 OUT.03 001011 OVS.R = 050436 G REPERR 00403 
IN.13 001061 MODOK 004364 OUT.04 001012 OVS.RB= 056444 G REPORT 003771 
IN.14 001062 MODOKO 004365 OUT.05 001013 OvS.RV= 055000 G RESEEK= 020000 
IN.15 001063 MORE 007501 OUT.06 001014 OVS.RW= 046154 G RETRY = 000004 
IN.16 001064 MOVDBN 002224 OUT.07 001015 OVS.SK= 044714 G RETS = 000001 
IN.17 001065 MOVOUT 002261 OUT.08 001016 OVS.ST= 040606 G REVCT = 000010 
IN.18 001066 MOV2 005462 OUT.09 001017 OVS.TS= 045426 G REVEC = 000400 
IN.19 001067 MRD = 000016 OUT.10 001020 OVS.W = 046310 G REVECT= 000004 
IN.20 001070 MS1 010573 OUT.11 001021 OV... = 027276 REVINP= 000040 
IN.21 001071 MS2 010611 OUT.12 001022 PATEXT 006415 REVS = 000007 
IN. 001072 MWR = 000017 OUT.13 001023 PATPTR 002475 REVSOK 004625 
IN.23 001073 M.P. 002444 OUT.14 001024 PATTRN 006374 REVSUP 
IN. 001074 NEWDNT OUT.15 001025 PATO 002515 REXT 005321 
IN.25 001075 NEWEXT 005415 OUT.16 001026 PAT1 002536 RM = 
IN.26 001076 NEWLEV 005343 OUT.17 001027 PAT10 002654 Ri 741 
IN.27 001077 NEWSUB= -18 1030 FAT11 002675 RNDLPO 005021 
IN.28 100 NEWUPT 006172 OUT.19 001031 PAT12 002677 RNDLP1 005035 
N. 001101 NEXTBE 005350 OUT.20 001032 PAT13 002720 RND SUB 
IRECLB= 090 NHCFL 005316 OUT.21 001033 PAT14 002741 RNDTG 005475 
ISUEXT 007023 NLBEXT 005204 OUT.22 001034 PAT15 002745 RNDO 00640 
ISUSEK 00667 NLEV 005336 OUT.23 001035 PAT2 002540 RONLY = 
J 003127 5314 OUT.24 001036 PATS 002542 R 002777 
LARGE = 1 NOBBS 005071 OUT.25 001037 PATS 002544 ROOTLP 003002 
LASTU. 004 NOBES 005052 OUT.26 001040 PATS 002565 006352 
LBHINB= 177417 7 OUT.27 001041 PAT6 ROTEXT 00306 
LBLONB= 177760 NOCARY 005047 OUT.28 001042 PAT? 7 R 005322 
LBNCYL= NOERR 003145 out ce pst PATS 002631 RREAL = 013400 
LBNHLD 002441 NOEXTR 005276 PAT9 02652 RSTOP = 
LBNHST= 2 NOHCFL 005516 OVERFL = 096002 PLOAD 00 RTDS 001173 
LBNTRK= 11 NORCLB 0044 OVE. CK= RTDSE 007160 
LEVNZR 005377 NORTDS 003267 OVE .MN= B00714 PREVBE 005314 RTDSEX 001203 
LINK 001747 NOSEEK 006616 OVE .MS= 000000 PTABLE 002430 RTRIES= 001000 
LINKLN= 000007 NOSUB 003151 eR = 004515 RANDOM 006475 RUN 001556 
LNCONT 002210 NOSUN 005007 OVE .RB= 004515 RBLOCK 004737 RVFAIL 005251 
LNCYL 002202 NOTOUT 005367 OVE.RV= 004515 RBNBN = 000200 RWEXT 004565 








| UDAT4 DISK EXERCISER MACRO K04.00 9=JUL-81 01:12:03 PAGE 148-3 

| SYMBOL TABLE 
RWRDY = 100000 SHRTTO= 000000 ST.STA= 000001 
Rw. ANG= OP 004773 $T.S7 = 000400 
Rw. BUF = 000001 SMASK 007321 ST.UNT= 000000 
Rw. CMD= SMASKL 007326 ST.WE = 000010 
RW.HI = 000003 SMASKX 007332 = 000013 
Rw.LOw= 000002 SMLSUB 005636 SUBUNT 1554 
Rw. SDI= 000005 SNDAGN 0007 SUSETL 004750 
RW. STA= SNDEX 0054 005456 
SBCRES= 000167 SNDEXT 001453 SWAPBE 005364 
SC 001553 SNDLEV 005417 5.BADP= 000010 
SCTWRD= 000 SORTBB 005414 S.BESS= 000011 
SDIVER= SORTBE 005322 S.MCNT= 00001 
SEARCH 005037 SORTTG 005502 S.MEGR= 000006 
SECCYL 004545 SS = 000001 S.MEGW= 000007 

004544 ST 001570 S.PARM= 000000 

SECMAX 002353 STACK 001142 S.PAT = 000003 
SECPTR 002356 STACYL 002336 S.SCHR= 000005 
SECTOR 002350 ST 555 $.SDCL= 000001 
SECTRK 004543 STATEX 000746 S.TGOF= 000013 
SEEK = STATLP 000724 $.TGSS= 000015 
SEKCNT 007074 STATOK 000737 S.TRKL= 0000 
SEKEXT 006624 STATUS= 000007 TALK 001204 
SEKINP= 002000 STSERR 007102 TALKOK 005433 
SEKOUT 006623 STSERX 007273 TEST4 = 000001 
SEKTST= 3 STSEXT 007276 TGS 004546 
SEND = STSRES= 000366 THREBE 004767 
SEQBE 005117 -C = 000002 TIMEOU= 000001 
SEQLP ST. CON= TLEN.U= 000061 
SEQNCR 003062 ST.DB = 001000 TMEMPL 002474 
SEQSEK= 000100 ST.DF = 000020 TMPERR 007020 
SEQTG 005641 .DR = 0 TO 005712 
SERO 010054 ST.ERR= 000002 TOOBIG= 000001 
SER1 019100 ST.FE = 000200 TRACK 00234 
SER2 010124 ST.FO = 002000 TRACKS= 000020 
SER3 —s-« 010146 ST.MOD =: 0 TRKGRP= 00000 
SERA 010172 ST.MSK= 000000 TROOT 005527 
SERS 010220 ST.OA = 000200 TRYAGN 
SER6 010254 ST.PE = 40 TSTNEC 006625 
SER7 —- 010275 ST.PS = 2 TSTRCB 
SERB. =—s-« 010317 ST.RE = 000100 TIMSIZ= 000000 
SERO 10345 ST.RR = 000100 T2CMD = 000002 
SETRLT 005630 ST.RTY= 000003 TODLL = 000001 
SETSEC 006310 ST.RU = 000001 T4BB1 = 000005 
SETUP = 1 ST.SR = 000020 T4BB2 = 000006 
. ABS. 056574 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: x WORDS ( 25 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
A:UDAT4.BIN,SY:UDAT4/C=(1, 35JDMACRO,UDAT4T ,UDATP,UDATR,UDAT4M 





UNITO = 000001 
UNIT1 = 000002 
UNIT2 = 000004 
UNITS = 000010 


05223 

UPEXT 5425 
G 006056 
UPLBN 005407 
T 005715 
UREAD = 000013 
004542 


oO 
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4 
" 
So 
So 
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Nm 
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o 
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essessessssccce 
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mS n 
OfZaAC=xm AV 
rnnnnennnn 
Oo oo 
Ssssss 
S [=] 
[=] oO 
So aw) 
oO N 


> 
4 
" 


000011 


$DIA 000011 
$$DIAG 002766 


SEQ 0470 


Wel ee re 8d et wien Bh ee . 
F 

UDATS DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE S-1 SEQ 0471 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


|S$DIAG 46-34 94-17% 94-17% = 124-18* Ly ath 127-16* 127-16* 128-16* 128-16* 129-15 129-15* 134-15" 134-15 137=14* 
< 
/SDIAGS 46-24 94-17 94-178 = 94-17% 94-17% 1246-18 = 124-184 =124-18% 124-18* 127-16 127-16 127-16* 127-16* 128-16 


128-16 128-16* 128-16* 129-15 129-15H 129-15% 129-15* 134-15 134-154 134-15" 1354-15* 137-14 137-14 137-148 
137-14" 142-12 "Se-08" 142-12* 142-12* 148-12 148-12 148-12" 148-12* 


49-2« 
AFTERR 126-35 126-46a 
40-15 40-26 = 41-19 42=28 
138-13 94-1 96-1 128-2 128-2, 1292, 129-2, 134-2 13422 137=2 137-2 142=2—s« 1422 


49-25 49-384 
§4-13 127-20 


99-85 99-878 
64-9 67-14 76-42 76-56 79-33 79-49 95-14 75-20 


130-23* 137-67 137-74 137-82 137-86 


132-38 135-32 137-21 141-60 
56-11 56-24 56-294 


gat 135-30 =. 136-140 137-17) 141-12) = 141-96 )=—- 144-10 


co See 79-13 79-20 79-30 79-46 80-14 80-24 80-31 
40-7 40-16" 45-15@ 132-23 133-10 135-22 135-29 136-9 137-15) 141-10) 141-64 141-90): 141-94 


77-2 





| 


—_— --— — ——_-—__--+ ee al 


“UDATG DISK EXERCISER MACRO x04.00 9=JUL=81 01:12:03 PAGE S-2 SEQ 0472 
/CROSS REFERENCE TABLE (CREF VOi-05 ) 


CHKDN 50-74 50-78 c1-14 
CHKECC 134-73 137-10 141-103 
T -~69 57-23 57-28 57-454 


3-2 
CHKUP 50-59 50-71 50-81 52-14 
CHNMAX 45-174 60-28* 94-82 94-84 


MP2 37-12 38-24 99-28 100-13 
CMPDAT 137-94 138-6 139-12 141-24 
CMPEDC 33-2 130-22 137-66 137-81 
CMPERR 141-40 141-49 141-574 


CMPNXT 137-35 137-50 137-63 137-78 137-90 137-944 
CMXEXT 141-55 141-63 141-804 


COMCHR 74-14 75-24 75-12 

COMPDP 84-10 84-31 84-47 85-24 

COMPLT 6-414 36-5 36-6 36-10 36-11 36-12 36-13 36-15 36-16 
COPBB 67-42 67-60 67-754 


COREXT 54-14 54-17 54-24 54-38 54-404 


CR.GST 36-94 55-26 56-35 89-20 
CR.INR 36-154 56-64 148-13 


CR.SCR 36-84 76-23 

CR.SEK 36-104 126-9 

CSCEXT 141-9 141-13 141-43) 141-534 

CURBN 39-10" 39-11% 39-13% 39-14% 39-30" 39-5.8 41-28 41-30 44-57 44-57 45-64 125-10* 
125-14* 126-32 126-32 = 142-20" $= 142-24* 144-28 144-28 144-32 9144-32 144-346 144-34 145-14 
145-48 145-52 145-52 145-54 145-54 


54 
CYL 39-21% 39-23" 45-9 125-19 126-6 126-7 126-24 126-32 126-32" 


* 125=15¢ 
* 145-48 





msi 


UDATS DISK EXERCISER MACRO K04.00 9=JUL=81 01:12:03 PAGE S=3 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


CYLBN. 77-11-7724 

D.LIMT 8-4" 43-128 

D.SCHR 8-S# 43-148 
Ow 117 


DCOMP 94-64 121-24 
DCREAD 121-11 121-144 


ERI9 92-1114 135-38 


78-28 

121-7 121-17 
117-8 128-35 
82-18 

121-204 


44-11 57-38 
50-69 51-20 


48-27 60-19 


49-34 50-62 
47-39 54-23 


87-578 


43-14% 65-854 
144-1, 


137-58 137-914 
144-12 


137-70 137-83 
40-27 3141-91 


141-8 
128-38 


76-31 
52-30 


91-23 


50-85 
54-34" 


45-86 


137-934 


138-18 


77-34 79-27 80-21 


99-7 108-8 


53-22 57-25 76-90 
55-64* 


129-33 


134-33 


SEQ 0473 


—_——_——_ —_ ———__--—_-- -—— —-- - om 


I 
UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE S=4 SEQ 0474 |! 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


ER2  -- @4=57 92-218 
ER20 © -92=1208 135-43 
2-53 92=1298 


79- " 
ERS2 79-42 79-553, 92-2228 
ER54 80-27 80-33 92-228" 


36-36 
EREXT 138-21 138-28 138-314 
ERHARD 6-52# 35-14 35-31 35-36 35-40 35-44 35-46 35-52 54-19 56-25 127-46) =127-50 8129-40 = 1134-40 
137-72 oe 139-8 141-65 = 144-28 = 144-32 144-34 145-48 = 145-52) 145-54 


ERR 36-12 36-364 
ERRCNT 45-818 54-78 54-25" 
ERRLEV 36-37 139-148 





——————_— Se 


| UDATS DISK EXERCISER MACRO X04.00 9-JUL~81 01:12:03 PAGE S=5 
CROSS REFERENCE TABLE (CREF VvO1-05 ) 


/ERRMC 





6-154 
57-15 


35-14 35-31 35-36 
60-15 60-17 78-22 
91-18 91=21 127-4 
144-2 144-32 144-34 
44-57 48-25 87-53 
137-41 137-54 

35-47* 35-54" 44-59 
127=48* 127-52 127-56* 
137-28 137-43 137-56" 
44-57 87-53 126-32 
137=54 

57-294 

46-37 48-29 60-21 
137-954 

41-24 

46-14 59-19 61-45 
119-164 

99-71 100-24 

100-15 

133-24 

132-58 

50-11 50-14 52-28 
48-23 49-29 49-31 
80-33 83-41 84-29 
141-564 

36-264 

36-26 

63-8 66-24 76-63 
36-29 

36-27 

89-24 

88-24 

47-354 

47-32 

96-24 96-274 

96-3 

45-104 126-8 126-32 
81-16 83-30 84-40 
36-2 

56-414 

40-21 44-32 61-52 
145-13 

44-23 44-27 44-50 
41-36 


126-32 
45-214 
129=-41* 


137-75* 
127-54 


91-25 


61-47 


73-9 
57-15 
91-18 


83-22 


35-44 


49-32* 
132-15* 
137-87* 
132-12 


61-55 


73-17 
60-15 
132-61 


90-7 


35-46 35-52 

79-37 79-42 

132-61 134-40 

145-54 

132-12 =132-17 

54-20* 54-22% 
132-20* 132-51* 
139-9 141-778 
132-17 132-48 

73-7 73-20 

78-22 79-15 

91-10 99-38 


48-23 49-29 
79-53 = 79-55 
137-32 137-47 
132-48 132-64 
55-12 55-23 
132-62" 132-67 
132-64 135-12 
79-22 79-37 
99-67 101-26 


SEQ 0475 
49-31 54-19 56-25 5 7=14 
80-18 80-27 80-33 83-41 
137-60 137-72 137-84 139-8 
135-12 135-17 135-38 135-43 
56-26" 57-16% 87-54" 126-33 
134-41* 135-15* 135-20" 135-41 
135-17 135-38 135-43 = 137-26 
79-42 79-53 79-55 80-18 
102-27 133-19 136-16 141-25 





wa ee ee ---- oo 
















UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE S=6 SEQ 0476 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


6# 
HD . RBN wie 41-38 


HIBN 41-39 44-28% 44-51% 45-24 

HIBYTE 5-548 44-14 44-38 56-45 68-28 69-18 70-28 70-30 71-14 72-13 75-22 75-26 76-34 76-36 
81-10 81-17 82-12 82-19 83-33 83-37 84-9 84-25 84-44 84-45 106-11 107-58 107-85 108-30 
115-8 123-14 129-19 132-27 134-19 


HIMEM 3-94 7-11 45-93 
HISEED 45-844 122-9 122-24* 


HOSTRQ 22-24 46-32 46-36 48-26 48-28 50-57 55-63 60-18 60-20 64-8 65-9 67-9 67-78 67-90 
88-25 91-5 91-22 91-24 127-35 129-83 134-72 137-69 141-86 


o- , 
IN.01 23-39% 55-64 64-9" 65-11 67-13 67-92 88-26 91-6 
IN.0O2 23-404 67-11 67-80 
IN.03 23-41% 64-15 67-19 67-45 67-46% 


IN.07 23-454 64-12 67-40 


IN.09 23-474 

IN.10 23-484 

IN.11 23-494 

IN.12 23-50# 

IN.13 23-514 

IN.14 23-524 

IN.15 23-534 

IN. 16 23-544 

IN.17 23-554 

IN.18 23-564 

IN.19 23-574 

IN.20 23-584 

IN.21 23-594 

IN.22 2 

IN.23 23-614 

IN.24 23-624 

N.25 23-634 

IN.26 23-644 

IN.27 23-654 

IN.28 23 

IN.29 23-674 

IN.RQ 22-19 23-384 23-68 
INC2 99-73 104-24 

INDEX 45-134 

INITD 76-84 87-24 87-55 
INI Tw 8-114 46-21 50-28 50-55 50-64 52-18 52-27 87-15 87-21 94-44 95-9 111-11 118-8 120-12 































UDATS DISK EXERCISER MACRO X04.00 9-JUL=-81 01:12:03 PAGE S-7 SEQ 0477 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


INR 
INS 36-10 36-324 126-6 126-7" 1268+ 
4 76-95 


ISUEXT 126-29 126-35 126-374 


JMPRET 47-37# 58-12 74-20. 75-44 «76-98 = 87-57 94=BB 124-48 = '127=59 128-40 129-95 134-79 «137-96 += 138-32 
139-23 140-17 141-122 142-36 148-33 


LASTU. 59-19 61-24 61-25" 61-46* 
87-42 


LBLONB) 385-59 75-19 75-29 75-33 75-38 90-14 119*11 119-14 141-16 
LBNCYL 5-234 76-73 76-76 


LBNHST 5-394 77-36 77-39 79-29 79-39% = 79=4i% 79-42 79-42 80-23 80-27 80-27 143-19 143-21 
LBNTRK 5-37# 43-9 44-13 44-37 76-35 


LINKLN 3-708 40-14 40-25 60-9 60-23 60-25 


LONG 35-17 36-144 55-33 

LOSEED 4e-850 122-8 122-16 122-23* 

CRDTRK 44-21% 44-25% 44-40% 44-57 45-74 

M.PARM 45-828 46-19% 46-2)* 46-31% 50-26* 50-53* 52-16* 52-25* 57-40" 87-23* 108-23* 
MASK 97-19 97-30 98-24 107-10 107-21 107-67 107-84 


MAXDBN 59-22 77-44 77-46 79-45 79-55 79-55 80-30 80-33 80-53 82-28%  82-29* 
45-61 45-65 45-774 
97-56 99-43 99-84 101-31 102-32 123-24 


5a 
39-15 45-934 60-5 66-6* 66-7 


56-61 56-714 


————— ee ee eee 


mM 5 
UDATS DISK EXERCISER MACRO X04.00 9-JUL-81 01:12:03 PAGE S-8 SEQ 0478 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


MS2 46-32 93-78 
MWR 4-188 22-21 
0-8 


139-24 
NEWSUB 8-144 50-13 50-47 74-7 94-46 94-48 94-56 95-12 99-9 99-11 99-56 99-58 101-14 102-14 
109-8 109-20 its, 110-18 = 111-6 112-6 113-19 = 114-34 =: 117-8 - 


NEX TBE 86 -24 
NHCFL 135-35 135-484 
NLBEX 4 


99-44 99-46" 
NLEV 138-12 138-294 


56-39 56-394 56-51 56-51 56-514 56-514 56-60 56-60 56-604 56-604 5 
6 57-154 57-22 57-22 57-224 57-224 60-154 75-11 75-11 75-114 75-114 76-93 76-93 76-934 
76-934 78-224 79-154 79-22# 79-374 79-42 79-42 79-42 79-42 79-424 79-42# 5 
5 79-554 79-554 79-554 80-184 80-27 80-27 80-27 80-27 80-274  80-27# 80-27% 
80-3 80-33 80-33 8 80-3 80-3 83-41 83-41 83-41 ~4 83-414 83-414 83-414 
- 87-534 87-54 91-1 126-32 126-32 126-32 126-32 126-32) =6126-32 = 126-32 =: 126-32 )3=—s «126-32 = 126-32 
126-32 = 126-32 = 126-324 =126-32H 126-324 126-32H 126-324 126-32H 126-324 126-34 126-36 126-36 126-36" 
127-46 127-46 27-46 = 127-46 127-46 127-46 «127-464 = 127-464 127-464 127-47 127-47 = 127-47 = 127-47 
127-47 127-47 = 127-47 =127-47H =127-47H 127-48 127-50 127-50 127-50 127-50 127-50 127-50 127-50# 127-50# 
127-50# 127-5O0# 127-51 127-51 127-51 9127-51) 127-51) 127-51) 127-514 «127-51 127-514 127-52 127-54 127-54 
127-54 9127-54) 127-54 127-54) 127-544 =127-544 127-54 127-544 127-55 127-55 127-55 127-55 127-55 127-55 
127-55 127-55 127-S5H# 127-56 129-40 129-40 129-40 129-40 129-40 129-40 129-40 1 0 
Of 1 132-12 = 132-12) )=— 132-12) = 1352-12) 132-12) 9132-12 )=— 1352-12 «132-12 132-12 132-124 132-13 
132-13) 132-13) 132-13 132-15) 132-13) 0 132-135H «132-134 132-1354 132-14 132-14 132-14 132-14 132-14 132-14 
132-14 132-14 132-14 «132-14 132-14 132-14H 132-15 132-17 132-17 132-17 132-17 9132-17 = 132-17) 132-178 
132-174 132-17 132-17 132-18 132-18 132-18 132-18 132-18 132-18 132-184 132-184 132-184 132-19 132-19 
132-1 132-19 = 132-19. 132-19) 132-19H =132-19H 132-19H 132-20 132-48 132-48 132-48 132-48 132-48 132-48 
132-48 = 132-48 3=132-48H 132-484 132-484 132-484 132-484 132-49 132-49 132-49 132-49 9132-49) 132-49 = 132-49 
132-49 = 132-49 132-49 132-49 132-49H 132-494 132-49H 132-49H 132-50 132-50 132-50 132-50 132-50 132-50 
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— ——— —_— — —- — — — —_ = —_ - — _ _ -_<— —_ - _ 


UWAIs Disk BAL d iSER rw 9-JUL-81 01. "Ltt AGE S= | 
CROSS REFERENCE TABLE CREF V0i=65 


) 

84-29% 87-53* 87-53" 91-18% = 91=18* §=126=32* §=126-32* = 127-46% 127-46% 127-50*% 127-50* 127-54% 127-54 129-408 

129=40* §129-83* 129-90" 132-12% 132-12% 152-17* 132-17% 132-48% 152-48% 132-61*% 132-61* 132-64% 132-64* 134-408 
134-40* 134=72* 135-12" 1355-12% 135-17" 135-17* = 135-38* 135-38* 135-43* 135-43" 137-26% 137-26 137-31% 137-418 
137=41% 137=46% 137-54" 137-54" 137-59* 137-69% 137=72* 137=72% 137-84% 137-84% 139-8% 139-8 141-65% 141-65" 
161-86" = 141-115* 144-28% 144-28% 144-32% 144-32% 144-34 144-34% 145-48% 145-48% 145-52% 145-52" 145-54% 145-54* 

QUT.03 23-84 48-24% 55-11% 60-16% 91-20" 129-83* 129-91% 134-72 137-69% 141-86% 141-116* 

. 23-94 35-14% 35-31" = 35-36" = 35-40" = 35-44% = 35-46% = 55-52% 44-57% = 4B=25% 49-29% = 49-31% = 54-19% = 56-25 
79-53% 79-55* 80-18% 80-27" 80-33% 83-418 “29+ 


, 
135-17 135-38 135-435" 157-26* 157-41* 137-54" 137-72 137-84% 139-8%  141-65% 144-28% 144-32 144-34% 145-48 
OUT.OS5 23-10% 44-57" 49-29% 56=25* 56-33% 56-39% 56-51% 56-60% 56-68% 57-22% 75-11% 76-93% 79-42%  79-55* 
80-27" 80-33" 83-41" 126-32* 126-36* 127-46* 127-50* 127-54 129-40* 132-128 132-17% 132-48% 132-64* 134-40* 
135-12" 125-17" = 135-38* 135-43* 137=26* 137-41*% 137-54% 137-72% 137-84% 140-10* 141-65 144-28% 144-32% 144-34% 


OUT.06 23-114 35-53" 44-57 56-25% 79-42" 79-55% 80-27 80-33% 83-41% 126-32" 127-46* 127-50" 127-54% 129-40* 
35-17% 135-38* 135-43* 137-26* 137-41* 137-54 137-72" 137-84" 


37-842 129-40 132-12% 132-17% 132-48% 132-64" 134-40* 135-12 
37-72% 137-B84*% 141-65" 144-28 144-328 144-34 

o7-55" 129-40* 132-13% 132-18% 132-48 132-64* 134-40* 135-13 
27-95% 152-15 152-18 152-49 152-65 135-15+ 135-18* 135-39 
27-55% 132-13% 132-18% 132-49% 132-65% 135-13" 135-18* 135-398 
OUT.11 23-164 56-25" 132-14" 132-19% 132-49" 132-65 135-148 135-19" 135-39% 135-44" 137-278 137-42" 137-55* 137-73 
OuT.12 eect 136723 132-14" 132-19% 132-49% 132-65% 135-14 135-19" 135-39% 135-44" 137-27" 137-42 137-55" 137-73 
OUT.13 23-184 132-14" 132-19" 132-49 132-65" 135-14" 135-198 135-39" 135-44" 137-27" 137-42" 137-55" 137-73* 137-85 
OUT.14 23-19 132-14" 132-50* 132-66" 135-14" 135-40* 135-45* 137-74% 137-86" 141-75 


OUT.15 23-20 132-50* 132-66* 135-40* 135-45" 137-74% 137-86* 141-75* 
OUT.16 23-21% 132-50* 132-65" 135-40* 135-45* 141-75» 


-76* 141-118» 
~31% 35-36% © 35-40% 35-44% 35-46% «35-52% 9 4G-57# 48-23% 49-29% 49-318 


1 
135-17" 135-38* 135-43" 137-26* 157-32% 137-41% 137-47" 137-54 137-60* 137-72* 
137-84* 139-8* 141-65* 144-28% 144- 


3 
2-9 92-9 92-98 94-1 94-1 94-1 94-14 124-2 124-2 124-2 


OV... 2-39 2-39 2-39% 92-9 9 
124-2 127-2 127-2 127-2 127-24 128-2 128-2 128-2 128-24 ico 129-2 129-2 129-28 134-2 
134-2 134-2 134-24 137-2 137-2 137-2 137-24 = =142-2 142-2 142-2 142-24 148-2 148-2 148-2 





.. = 
UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE S-11 SEQ 0481 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


148-24 148-35 148-354 
OVE.CK 137-24 142-2 


Luss 2-39 2-394 92-9 92-94 94-1 94-18 12 
134-2 134-24 137-2 137-24 142-2 142-24 14 


OVL.MN 2-39 2-39 92-9 92-9 92-94 


124-24 127-2 127-24 128-2 128-24 129-2 129-24 
148-24 148-35 148-354 


OVL.MS 45-26 94-1 94-1 94-14 
OVL.R 45-55 137-2 137-2 7-28 
OVL.RB 45-67 148-35 148-35 148-354 
OVL.RV 45-63 148-2 48-2 8-24 


PAT1 45-96 45-1314 


PAT9 - 
PATEXT 119-8 119-174 
PATPTR 45-95# 131-8 141-32 





D 6 


UDAT4 DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE S=12 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


ROTEXT 
ROUT 


46- 
135-16 


144-24 
143-24 
135-31 


135-21 


141-31 


142-114 
129-62 


128-30 


135-33 


119-15 


118-10 


46-34 
135-42 


141-75 
47-24 
97-31 


44-16 
45-84 
44-35 


148-21 


56-22 
89-15 


138-26 
148-18 


87-44 

94-40 

57-17 
127-25 
117-8 
134-36 
142-14 


135-S0# 


46-384 
135-47 





4 
107-11 


94-32 
76-33 


89-30 


134-61 
143-7 


135-49 


7-31* 
=] 


47-34 48-10 

107-17 107-22 107-68 107-86 
117-8 125-8 129-36 129-43 
117-8 118-15 119-7 120-8 
148-21 

128-38 129-74 

134-76 146-7 

146-7 

135-514 


118-12 


129-79 


121-10 


119-13 


134-36 


128-28 


120-16 


134-43 


121-16 


141-107 


SEQ 0482 


122-28 


145=25 


ew 


| UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE S-13 SEQ 0483 
i REFERENCE TABLE (CREF vO1-05 ) 
RREAL 3-44 = 41-14 
RSTOP 3-40# 41-16 
TOS 36-28 49-11 54-10 55-16 = 56=7)— 127-17, 132-6 = «1356 
RTIDSE 127-19 127-50# 
RTDSEX 34-6 34-84 
RTRIES g-314 129-28 134-23 137-29 «137-44 «137-57: 138-8 
RVFAIL 144-35 145-27 145-55 146-24 
ANG 3-34# 9041-278 
RW.BUF 3-298 41-23% 137-65 137-80 141-14 145-7 
RW.CMD 3-32 = 41-10® 41-15% 132-49 = 132-65 = 135-39 135-44 137 137-42 137-55 137-73 137-85 141-66 
RWHI = -3=31H = 41-40" 132-48 = 132-64 133-12 135-38 = 135-43 136-11" «137-26 «137-41 137-54. 137-72 137-84 =: 141-65 
Rw LOW ea 37-10 = 41-29% 132-48 «= 132-64 = 133-11" 135-38 = 135-43 = 136-10" «137-26 «137-41 137-54 137-72): 137-84 
RW.SD] 3-338 41-25 
RW.STA 3-288 41-228 137-16 
RWEXT 128-33 128-36 128-384 
RWRDY 6-26 127-22 132-9 135-9 
S.BADP 7-62 7-63 37-8 67-83* 67-105" 70-6 80-8 
S.BESS 7-6 768 64-16 67-17 67-43 686 68-8 77-8 77-9 77-14% 77-16% 77-17 77-20 77-30 
77-31 77-38" oege* 77-45% 77-47% 79-9 79-11 84-55 84-57 84-58 84-62 84-68 96-9 96-30 
S.MCNT 7-688 7-69 107-8 107-14 107-20 107-246 113-7 113-9 114-10) -:114-12 
S.MEGR 7-61 = 76=19* 9141-109 141-119 
S.MEGW 7-61 = 7-62, 76-18% 129-85 —129-89* 9132-33 132-34 
S.PARM 7-55 7-56 = 41-33) 44-10 47-41 47-43% = 50-24 50-46 2 50-56% 951-13 52-14. 53-17 «57-37 67-168 
67-50* 67-61% 76-29 76-41 76-55 77-33 79-26 79-32 79-48 80-20 83-27 84-37 85-8 87-14 
87-32 94-43 (95-8 = 107-53. 108-7. —Ss«*108=22—S «118-6 20-7, 121-6 = 123-10 129-22 134-22: 137-23: 138-7 
S.PAT 7-57# 7-58 67-12" 119-9 
5. SCHR ee aos 43-6 44-9 44-53 67-107* 76-15 76-64% 76-72 107-56 108-28 115-6 132-25 143-11 
S.SDCL 7-568 7-57 64-461 46-43 76-75" 76-79 
iT 769% 7-70 83-21 83-23" 84-6 84-57 84-58 107-30 113-11 113-13) 114-8 = 114-9 
S.TGSS 7-70 64-11 67-37 83-13 84-62 84-68 107-40 109-27 110-22 113-15 114-16 114-21 
S.TRKL 7-58 7-59 76-33" 107-52 108-21 111-13 112-16 116-10 
SBCRES 6-444 -8 
SCR 36-8 36-27 
SCTWRD 7-84 131-9 141-42 161-51 
SDIVER 5-4# 
SEARCH 142-28 145-24 
SECCYL 59-2 78-17 81-21 82-13 
SECGRP 59-254 81-14" 81-18 82-20 85-12 . 
SECMAX 45-16# 60-13" 94-78 94-80 
SECPTR 40-13" 41-12 45-19H 130-18 
SECTOR 41-26  45-10# 
SECTRK 59-24# 76-37% 81-11 85-14 
SEEK 94-86) -124-10H 126-46 127-57 143-26 144-47 147-26 14832 
SEKCNT 127-29 127-378 
SEKEXT 124-43 124-4 
SEKINP 8-154 54-16 87-48 124-37 127-25 
SEKOUT 124-45 124-47 
SEKTST 124-42 127-108 127-43 
SEND 4-7# 35-11 = 55-30 = 89-23 
SEQBE 95-22 99-24 
SEQLP 47-114 94 7=46 
SEQNCR 46-23 47-2 73-13 
SEQSEK 8-34H 50-64 94-64 95-9 123-11 





POETS cae eo nee eee inpermenin 
F 6 

/UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:03 PAGE S=-14 SEQ 0484 

| CROSS REFERENCE TABLE (CREF v01-05 ) 


SEQTG am +3 108-24 


84 
a ited 148-16 


111-25 115-24 116-6 
33-58 87-50 94-10 94-58 129-47 129-76 129-84 134-47 138-20 141-120 146-18 


35-48 35-51 35-554 


36-6 36-7 36-8 36-9 36-10 36-11 36-12 36-13 36-15 36-16 36-404 55-53 56-14 
56-25 56-25 56-25 56-25 56-25 56-25 56-25 56-44 57-11 57-34 75-14 75-21 75-24 
75-32 75-36 76-33 76-35 76-61 77-36 77-39 79=29 79-39% 79-41% 79-42 79-42 80-23 
80-27 81-9 81-16 82-10 82-18 83-30 83-32 84-40 84-42 90-5 


30-54 
44-33% 44-42e = 4am he = 44-58 44-58 45-S# 
60-14 





———— —$—— —_— 


UDATS DISK EXERCISER MACRO X04.00 9=JUL=81 01:12:07 PAGE S=15 SEQ 0485 
| CROSS REFERENCE TABLE (CREF v01-05 ) 


'STATEX 21-16 27-18 = 21-22 
1STATLP 21-9 21-14 21-20 
STATOK 21-12 1-17" 


1 1-9 
STSERR 127-23 127-418 


STSERK 127-49 127-53 =127=578 
| STSEXT sag tes 4 y 127-S9# 


T4B8B1 6-84 65-8 67-77 

T4BB2 6-94 7-89 

T4MPRM = 6-64 88-24 ™ 
TOMXFR = 6-124 55-9 55-61 129-92 141-117 
T4SOFT 6-108 Fg 134-72 137-69 147-86 


TALK 35-28 56-30 56-36 56-48 56-57 56-65 57-19 75-8 76-25 126-10 140-7 


TGS 59-274 83-12 83-34 84-5 84-43 


22 
39-15* 42-6" 42-7 45-944 


08-16 108-25 
15 


U. CBN 7-414 7-42 39-13 39-14 94-23 94-25% 94-27 94-29% 94-66" 94-68% 


1 125-14 129-40 129-40 
132-12 §=69132-12 «= 132-17) 132-17 Ss: 1133-7 133-8 134-40 134-40 135-12 135-12 ’ 
; 


13 
-17 135-17 136-7 
44 144-46" 146-13" 146-17% 


5 
5 
4 
3-8 113=-10* 114-11" 114-13* 
7 
5 
7 


-— 


143-20* +. * 144-28 = 144-28 )=— 144-32 144-32 144-34 144-34 144-41 144-42 


51 127-51) 127-55) 3S: 127-55 

“18 135-18 135-39 135-39 

1 85 137-85 141-66 141-66 

U.CGRP 7-49 7-50 39-25 74-18% 127-47 127-51 =127-55) 132-13) 132-18 = 1132-49 2-65 135-13 «135-18 135-39 
135-44 137-27 137-42) =—137-55 137-73) )=—:137-85 =—-:141-66 =: 148 -30* 


50-50* 94-18 94-22% 94-708 94-74 142-18 146-11 
11-17" 8112-11) 112-14 115-92 
37-51 144-17 


1 
U.CTRK 7=24# 7-25 «111-146 
U.ECCT 7-348 7-35 75-27* 1 





UDATS DISK EXERCISER MACRO X06.00 9=JUL-81 01:12:03 PAGE S-16 


| CROSS REFERENCE TABLE (CREF v0O1-05 ) 


SEQ 0486 
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108-35* 123-19* 


107-91* 


91-16 


91-7 





I 
UDAT4 DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE S=17 SEQ 0487 
CROSS REFERENCE TABLE (CREF VO1-05 ) 
UPLBN 99-70 103-2 
UPT 108-18» 109-2" = 111-39 
UREAD 4-148 © 48-16 
USED 59-238 76-11" 76-14" 76-878 
UTOTST 6-134 91-4 


WAITS] 4-134 132-28 135-24 
WBLOCK 129-57 139-28 eee 


WBLFLN 3-684 3-6 60-23 

WCK=CK 8-374 50-14 94-38 94-40 3117-8 120-10 §=120-19 =121=12 
WCHK 94-63 120-24 , 

WCHKAL 8-394 120-14 

WEXT 132-36 132-43 132-70 132-734 


WOUT 132-16 132-21 132-52 132-63 132-68 132-72 132-748 
3-434 


36-234 
WRITE 128-32 129-104 129-72 
WRONG 5-6 
WRTEXT 129-30 129-49 129-67 129-954 


KWRITE 4-64 132-2 
33-23 


33-554 





——— 


SEQ 0488 


04.00 9-JUL-81 01:12:03 PAGE M-1 


UDATS DISK EXERCISER MACRO X 
CROSS REFERENCE TABLE (CREF V01-05 ) 
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Marr AM Wo0OoM) Fr mM NN TFWRDUNAMMMMMMMMMMM st ster am 
ce -- - -— - Cel oe ol el el ek ol cel eel el el el ek ol el ee -- 
oor ovo —mwaTcu wns oO hRNMNNOMWOOTeO OARS SEAS wo 
rere 7s SS speah oe «: DT PETTITT IPT TTT PPT eT OS 
wo oOo RK adas uN ~ SOBDOR AAAS AARR ER oe end Kw 
awh Fr aM ~w om. me N STMNODNAANMMMMMMMMMMmnm st sr sr arm) NM 
-- - oe - o-oo - Sel el seed ee el el ee eel el el el el ee oe ol el el -- 
own NM An-@® or) oO Alnmennt eterno wourw am 
Ooms N We emo Wr FS DNNMAM THE FOF eEMSAUMR ODMR ws 
oe | .- 2» 2 dda 1 ! bbe dh beer ucuruceuneheieteren teoee ‘i 
ROX N KK one Nn nN son ORR ONIN AMAR I ee ino CK 
Onn rr om ~r OOM mM) NM TAK ANAMMMMMMMMMMmM st st om 
--— - =e - taal aed - FEE CCC CSC CC CCC CCF SCE -— 
—MNR 00 00 N00 COW” an WTR INIAWINOOR. st 00 <7 OT OOMR CUKUnNoOMmns 00.00 
Rom — N WN N-TO rw ) aoe oh wh bb bake hake owe rN 
‘oe 8 ae FP ete io RESP r errr? (#e+t1rteteetteete 't 
ROX nN RNR oon An ON FTOR ARERR ONNTAMNMNRRR RRR no RN 
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UDAT4 DISK EXERCISER MACRO X04.00 9-JUL=81 01:12:03 PAGE M-2 SEQ 0489 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


OVTERM 2-39 2-398 2-398 92-9 92-94 94-1 94-18 124-2 124-24 127-2 127-24 128-2 128-24 129-2 
yom cd 134-2 134-24 137-2 137-24 § 142-2 142-24 148-2 148-24 148-35 


PARGS. 
POP 12-118 21-22 22-28 33-11 35-55 37-22 41-21 46-32 47-33 48-19 48-30 50-57 50-87 54-31 
54-40 55-45 55-52 56-71 61-37 61-50 62-16 65-10 67-10 67-79 67-91 69-23 71-19 72-24 
76-26 76-71 76-80 76-94 76-97 77-49 79-58 80-36 81-22 82-30 84-82 84-86 86-15 89-37 
2 97-36 97-43 98-15 103-18 104-14 105-14 106-13 107-47 107-72 114-30 122-25 123-20 
ita? 129-8 131-25 §=132=30) = 133-25) 134-72 = 136-22 )=—-137=40) = 137-53) 137-64 = 137-69) 141-54 = 141-57 = 141-61 
PUSH 12-34 21-7 22-12 33-7 35-7 37-7 41-17 46-32 47-27 47-35 48-6 48-20 50-9 50-57 
54 55-25 56-6 61-28 61-48 62-14 65-6 67-6 67-75 67-87 69-7 71-6 72-6 76-7 
76-20 76-24 76-65 77-7 79-8 80-7 81-7 82-7 83-11 84-59 86-7 89-8 9- 97-5 


1 
131-6 132-22 133-6 134-72 136-6 137-36 3=6137-69 = 141-6 141-58 141-86 
REPSFT 16-10# 129-83 134-72 137-69 141-86 


RSTRS 15-88 
RXOR 18-44 33-21 
SAVRS 15-14 


SOFTER 16-4# 44-57 87-53 126-32) «127-54 132-12) 132-17) 132-48) = 132-64) = -135=12 ) = 135-17) =: 135-38 =—s:*1135=43 =: 1137-26 


SYSFTL 16-434 
TALK 19-34 





